Mehr als 2 Tastenklicks abfangen und auswerten...

enIking1998 · 12. Juni 2013, 20:19

Hallo, ist es möglich, zB zwei Tastenklicks abzufangen, und beispielweise das Rectangle diagonal zu animieren?

Mfg.eniking1998

BlackNetworkBit · 12. Juni 2013, 20:30

Ich meine das man die Tastenklicks mit der Windows-Api filtern und blockieren kann.
Das mit dem Rectangle ist möglich, du must dir halt einfach mal die Graphics Klasse ankucken da gibt es auch die Funktion RotateTransform.
Hier ist ein Beispiel Code :

VB.NET-Quellcode

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.RotateTransform(80, Drawing2D.MatrixOrder.Append)
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(0, 0, 40, 40))
End Sub

EDIT //
GetAsyncKeyState ist wohl das was du suchst

MFG BlackNetworkBit

enIking1998 · 12. Juni 2013, 20:37

Sry,das mit dem diagonalen Rectangle war als Beispiel gedacht...

Ich versuche Space + D gleichzeitig auszuführen...
Also wenn ich D drücke x -= 5 und + Space y -= 5, spricht gleichzeitig...

Mfg.eniking1998

BlackNetworkBit · 12. Juni 2013, 20:39

Naja das wäre eben mit GetAsyncKeyState möglich must halt nur eine if-verschachtelung basteln

z.b :

VB.NET-Quellcode

<DllImport("User32.Dll")> Private Shared Function GetAsyncKeyState(ByVal vKey As Integer) As Short
End Function

VB.NET-Quellcode

Dim D As Boolean = GetAsyncKeyState(Keys.D)
Dim Space As Boolean = GetAsyncKeyState(Keys.Space)
If D = True Then
If Space = True Then
'DeinQUELLCODE
End If
End If

MFG BlackNetworkBit

enIking1998 · 12. Juni 2013, 20:43

Ohh ...

Das ist doch ekelig... soviele If-Abfragen...

Mfg.eniking1998

BlackNetworkBit · 12. Juni 2013, 20:45

enIking1998 schrieb:

Ohh ...

Das ist doch ekelig... soviele If-Schleifen...

Mfg.eniking1998

Wirklich ... if-Schleifen ... WIRKLICH
anders geht es nicht

MFG BlackNetworkBit

enIking1998 · 12. Juni 2013, 20:46

Gibst doch bestimmt Möglichkeiten mit dem KeyDown_Ereigniss...
Oder ist es nur mit If + GetKeyAsynchState... möglich?
Und if-schleife.de/

Mfg.eniking1998

BlackNetworkBit · 12. Juni 2013, 20:47

naja nicht wen du mit Booleans arbeiten wilst da gibt es bekantlich nur 2 Werte Wahr und Falsch.
also kein Select Case Block.

/edit ich hasse es wenn leute ihre Post tod editieren.....
MFG BlackNetworkBit

enIking1998 · 12. Juni 2013, 20:50

Ich hab mir überlegt, eine globale Deklaration, an Booleans anzulegen, nun meine Frage,

im KeyDown_Ereigniss kann ich es ja mit Select Case e.KeyCode lösen...
Kann ich nun das soweit modifizieren, dass wenn Space zB True und D = True ist, dieses gleichzeitig ausgeführt wird?

Also zur Theorie, bzw. Idee...
Ich will ein Kampfsystem dem Game implementieren...
Dabei soll, zB D laufen sein...
Man soll ebend mehrere Tasten GLEICHZEITIG drücken können...

Mfg.eniking1998

BlackNetworkBit · 12. Juni 2013, 20:53

Ich bitte dich inständig mache das ganz mit GetKeyAsynchState oder nur mit dem KeyDown_Ereigniss.
Beides ergibt nur murks und Facepalms wenn jemand sich deinen Quellcode ankuckt.

PS Habe dir oben doch schon eine Lösung präsentiert.

MFG BlackNetworkBit

enIking1998 · 12. Juni 2013, 20:58

Das ist ekelig...
Das nehm ich nicht...

Das wird ja eine If-Abfrage, von mir aus #Region "_CrapIf",dessen Codezeile mehr als 100 haben wird...

Trotzdem "Danke"...

Mfg.eniking1998

BlackNetworkBit · 12. Juni 2013, 21:02

... Wirklich naja man kann bei IF-Abfragen ja auch nicht kombienieren nööööö

z.b so :

VB.NET-Quellcode

If D = True and Space = true then
elseif D = False and Space = true then
end if

MFG BlackNetworkBit

enIking1998 · 12. Juni 2013, 21:48

Ernsthaft?
Ich will keine Tastenkombinationen, sondern lediglich, dass wenn D und gleichzeitig Space gedrückt wird,der Charackter nicht plötzlich aufhört
sich zu bewegen...

Mfg.eniking1998

BlackNetworkBit · 13. Juni 2013, 08:12

... ernsthaft ?
wirklich ? ich habe dir doch geschrieben das du es einsetzten kannst wenn es dir nicht gefällt dann kannst du ja nach einer anderen Lösung suchen ....
indirekt ist es ja wie dein tolles KeyDown_event bloß das man mit GetAsyncKeyState eben mehrere Tasten abfragen kann.
ich glaube du solltest erst mal hier : Toller Link
rein schauen so das du weist was ich meine(falls ich mich so unverständlich ausgedrückt habe ...)

MFG BlackNetwokBit

TVX · 14. Juni 2013, 16:51

VB.NET-Quellcode

Public Class Form1
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If My.Computer.Keyboard.CtrlKeyDown = True And GetAsyncKeyState(Keys.F1) = -32767 Then
MessageBox.Show("STRG und F1 wurde gedrückt")
End If
End Sub
End Class

ODER !!!

VB.NET-Quellcode

Option Strict On
Public Class Form1
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If CBool(CShort(My.Computer.Keyboard.CtrlKeyDown = True) And GetAsyncKeyState(Keys.F1) And CShort(GetAsyncKeyState(Keys.F2) = -32767)) Then
MessageBox.Show("STRG und F1 + F2 wurde gedrückt")
End If
'oder
If CBool(GetAsyncKeyState(Keys.A)) AndAlso CBool(CBool(GetAsyncKeyState(Keys.B)) AndAlso CBool(GetAsyncKeyState(Keys.C))) Then
MsgBox("Gedrückt")
End If
End Sub
End Class

und um das ganze diagonal zu bewegen ,sagen wir wenn a+b gedrückt geh rechts und hoch .
so hab ich es bei einer form mal gemacht ging ganz gut !

Private Sub Form_nach_rechts()
x = x + 1
Me.Location = New Point(x, y)
End Sub
Private Sub Form_nach_links()
x = x - 1
Me.Location = New Point(x, y)
End Sub
Private Sub Form_nach_oben()
y = y - 1
Me.Location = New Point(x, y)
End Sub
Private Sub Form_nach_unten()
y = y + 1
Me.Location = New Point(x, y)
End Sub

LG Andre

VincentTB · 14. Juni 2013, 17:07

Oh oh, Timer... Das geht bestimmt auch mit Events!

Mehr als 2 Tastenklicks abfangen und auswerten...

Mehr als 2 Tastenklicks abfangen und auswerten...

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

enIking1998 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben