Hiiillfeee!
Ich hab mir jetzt locker milionen Tutorials angesehen, doch irgendwie funktioniert's bei denen und bei mir nicht D:
Bin am verzweifeln
Der Nutzer hat vorher die Wahl eine Taste aus zu wählen (wird in "Starter" gespeichert),
beim drücken der angegebenen Taste sollte eigentlich die MsgBox kommen... tut sie aber nicht.
Hoffe einer kann mir helfen
Ich hab mir jetzt locker milionen Tutorials angesehen, doch irgendwie funktioniert's bei denen und bei mir nicht D:
Bin am verzweifeln
Der Nutzer hat vorher die Wahl eine Taste aus zu wählen (wird in "Starter" gespeichert),
beim drücken der angegebenen Taste sollte eigentlich die MsgBox kommen... tut sie aber nicht.
VB.NET-Quellcode
- Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
- 'f1
- If Starter = "F1" And e.KeyCode = Keys.F1 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'f2
- ElseIf Starter = "F2" And e.KeyCode = Keys.F2 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'f3
- ElseIf Starter = "F3" And e.KeyCode = Keys.F3 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'f4
- ElseIf Starter = "F4" And e.KeyCode = Keys.F4 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'f5
- ElseIf Starter = "F5" And e.KeyCode = Keys.F5 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'f6
- ElseIf Starter = "F6" And e.KeyCode = Keys.F6 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'f7
- ElseIf Starter = "F7" And e.KeyCode = Keys.F7 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'F8
- ElseIf Starter = "F8" And e.KeyCode = Keys.F8 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'F9
- ElseIf Starter = "F9" And e.KeyCode = Keys.F9 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'F10
- ElseIf Starter = "F10" And e.KeyCode = Keys.F10 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'F11
- ElseIf Starter = "F11" And e.KeyCode = Keys.F11 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- 'F12
- ElseIf Starter = "F12" And e.KeyCode = Keys.F12 Then
- If active = False Then
- active = True
- MsgBox("Fehlercode:404 Wir sind noch am bauen :D")
- Else
- active = False
- End If
- End If
- ENd Sub
Hoffe einer kann mir helfen
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Fose“ ()