Hey,
Ich wollte abfragen, wenn z.B KEy.A gedrückt wurde dann mach das und das .... etc... . Und das halt in nem Array mit ner For Next schleife.
Hier der Code:
Problem ist jetzt nur, dass er bei " If GetAsyncKeyState(Key(i)) = -32767 Then " den Fehler bringt : Ungültige Konvertierung von der Zeichenfolge False in Typ Integer.
Kann mir da einer weiterhelfen ?
Ich wollte abfragen, wenn z.B KEy.A gedrückt wurde dann mach das und das .... etc... . Und das halt in nem Array mit ner For Next schleife.
Hier der Code:
VB.NET-Quellcode
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Key(0) = Keys.A & Key(1) = Keys.B & Key(2) = Keys.C & Key(3) = Keys.D & Key(4) = Keys.E & Key(5) = Keys.F
- Key(6) = Keys.G & Key(7) = Keys.H & Key(8) = Keys.I & Key(9) = Keys.J & Key(10) = Keys.K & Key(11) = Keys.L
- Key(12) = Keys.M & Key(13) = Keys.N & Key(14) = Keys.O & Key(15) = Keys.P & Key(16) = Keys.Q & Key(17) = Keys.R
- Key(18) = Keys.S & Key(19) = Keys.T & Key(20) = Keys.U & Key(21) = Keys.V & Key(21) = Keys.W & Key(22) = Keys.X
- Key(23) = Keys.Y & Key(24) = Keys.Z
- Dim i As Integer
- For i = 0 To Key.Length - 1
- If GetAsyncKeyState(Key(i)) = -32767 Then
- MsgBox("Hellooooo")
- End If
- Next
- End Sub
Problem ist jetzt nur, dass er bei " If GetAsyncKeyState(Key(i)) = -32767 Then " den Fehler bringt : Ungültige Konvertierung von der Zeichenfolge False in Typ Integer.
Kann mir da einer weiterhelfen ?