Private Sub Timer1_Timer()
If GetAsyncKeyState(KeyCodeConstants.vbKeyEnd) Then
If Not frmMenu.Visible = True Then
frmMenu.Visible = True
Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, 3)
Timer2.Enabled = True
Else
frmMenu.Visible = False
Call SetWindowPos(Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, 3)
Timer2.Enabled = False
End If
End If
End Sub
Private Sub Timer2_Timer()
If frmMenu.Visible = False Then Exit Sub
Up:
If GetAsyncKeyState(KeyCodeConstants.vbKeyUp) Then
If Pfeil.Top = "480" Then
Pfeil.Top = "3840"
Else
Pfeil.Top = Pfeil.Top - 240
End If
End If
Down:
If GetAsyncKeyState(KeyCodeConstants.vbKeyDown) Then
If Pfeil.Top = "3840" Then
Pfeil.Top = "480"
Else
Pfeil.Top = Pfeil.Top + 240
End If
End If
Left:
If GetAsyncKeyState(KeyCodeConstants.vbKeyLeft) Then
Select Case Pfeil.Top
Case "480"
If Value.Caption = "1" Then
Value.Caption = "0"
Else
Value.Caption = "1"
End If
End Select
End If
Right:
If GetAsyncKeyState(KeyCodeConstants.vbKeyRight) Then
Select Case Pfeil.Top
Case "480"
If Value.Caption = "1" Then
Value.Caption = "0"
Else
Value.Caption = "1"
End If
End Select
End If
Ende:
End Sub
Das Problem ist bei diesem Code Timer2, der Value von dem Label wird trotzdem gechanged obwohl der Timer2 nicht Enabled ist und die Form nicht Visible ist.Kann mir jemand helfen damit es nicht gechanged wird, wenn die Form nicht Visible ist ?Wäre sehr dankbar.
Registrieren
Login
