[محمود اكرم]

[SIZE=5]السلام عليكم
الذي فهمته من الكود ان هناك خطأ بان KeyDown فيها Keys.Right و Keys.Left
وفي حدث KeyUp فيها Keys.Up و Keys.Down
[/SIZE]وهذا ليس معقول انك تضغط ازرار اليمين واليسار وترفع الزر من الفوق والتحت
[الاقتباس مبتدئ]
Private Sub TrackBar2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyDown
If e.KeyCode = Keys.Right Then
Label1.Visible = True
End If
If e.KeyCode = Keys.Left Then
Label1.Visible = True
End If
End Sub

Private Sub TrackBar2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyUp
If e.KeyCode = Keys.Up Then
Label1.Visible = False
End If
If e.KeyCode = Keys.Down Then
Label1.Visible = False
End If
End Sub

المشكلة هنا انى TrackBar واحد فقط يعمل اما الثانى لا
[انتهى الاقتباس]
لذا الجواب هو لحدثي TrackBar 2
Private Sub TrackBar2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyDown
If e.KeyCode = Keys.Right Then
Label1.Visible = True
End If
If e.KeyCode = Keys.Left Then
Label1.Visible = True
End If
End Sub


Private Sub TrackBar2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyUp
If e.KeyCode = Keys.Right Then
Label1.Visible = False
End If
If e.KeyCode = Keys.Left Then
Label1.Visible = False
End If
End Sub