17-07-13, 09:40 PM
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
اخي الخطأ بكودك ضع هذا الكود الصحيح[/COLOR]
اخي الخطأ بكودك ضع هذا الكود الصحيح[/COLOR]
كود :
Private Sub TrackBar1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.KeyDown
If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then
Me.Label1.Visible = True
End If
End Sub
Private Sub TrackBar1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar1.KeyUp
Me.Label1.Visible = False
End Sub
Private Sub TrackBar2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TrackBar2.KeyDown
If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then
Me.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
Me.Label1.Visible = False
End Sub
