17-07-13, 05:07 PM
ارجو التوضيح مالذي تريده من المزلاج الثاني هذا الكود يعمل معي وقد اختصرته ايضا
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
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
If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then
Label1.Visible = False
End If
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
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 Or e.KeyCode = Keys.Left Then
Label1.Visible = False
End If
End Sub
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
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
If e.KeyCode = Keys.Right Or e.KeyCode = Keys.Left Then
Label1.Visible = False
End If
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
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 Or e.KeyCode = Keys.Left Then
Label1.Visible = False
End If
End Sub
