كليد up

[m_zamani]

سلام
با كليد up چطور ميتونم برگردم به آيتم قبلي روي فرم يعني بدون اينكه بخوام با focuse
تعريف كنم كه برگرده

[anooshiran]

سلام دوست عزيز

به كد زير توجه كن




Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Up Then
Dim Tb As Int16 = Me.ActiveControl.TabIndex
If Tb > 0 Then
For Each ctr As Control In Me.Controls
If ctr.TabIndex = Tb - 1 Then
Me.ActiveControl = ctr
Exit For
End If
Next

End If

End If
End Sub

[m_zamani]

ممنون از شما
با اجازه من يه كم كد رو تغيير دادم


Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean

If msg.WParam.ToInt32() = CInt(Keys.Up) Then
Dim Tb As Int16 = Me.ActiveControl.TabIndex
If Tb > 0 Then
For Each ctr As Control In Me.Controls
If ctr.TabIndex = Tb - 1 Then
Me.ActiveControl = ctr
Exit For
End If
Next
End If
End If
Return MyBase.ProcessCmdKey(msg, keyData)
End Function

و جواب گرفتم.