View Full Version : كليد up
m_zamani
سه شنبه 03 شهریور 1388, 10:45 صبح
سلام
با كليد up چطور ميتونم برگردم به آيتم قبلي روي فرم يعني بدون اينكه بخوام با focuse
تعريف كنم كه برگرده
anooshiran
سه شنبه 03 شهریور 1388, 12:08 عصر
سلام دوست عزيز
به كد زير توجه كن
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
چهارشنبه 04 شهریور 1388, 08:06 صبح
ممنون از شما
با اجازه من يه كم كد رو تغيير دادم
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
و جواب گرفتم.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.