Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Verfolgung starten Optionen

Tastenbelegung in VB

Daniel Müller / 3 Antworten / Flachansicht Nickles

Hallo erstmal!


Ich habe ein Problem mit der Tastenbelegung in VB.


Ich habe 20 Command Buttons auf meinem Formular jeweils über KeyDown und KeyUp mit der Tastenbelegung a-t und per MouseDown und per MouseUp der Mouse programmiert. Das funktioniert ja auch schon soweit.


Nur ich habe noch ein Problem: Ich kann z.B. Button1 nur über die Taste a aktivieren, wenn ich diesen vorher mit der Mouse aktiviert habe. Genauso ist es bei den anderen Buttons.(Button2 bei b, Button3 bei c usw.)


Ich muss aber erreichen, dass ich die Buttons, sobald das Formular aktiv ist, ich diese Buttons gleichzeitig über die verschiedenen Tasten aktivieren kann und nicht  vorher erst jeden Button mit der Mouse aktivieren muss. Es sollen nämlich später mehrere Signale gleichzeitig über die COM Schnittstelle gesendet werden?  


Kann mir dabei vielleicht jemand beim Programmtext helfen? Ich weiß nicht, wie das Realisieren soll!

bei Antwort benachrichtigen
kann ich mal sehen was du in KeyDown und KeyUp stehen hast bei einem Button ... PaoloP
Daniel Müller Nachtrag zu: „Tastenbelegung in VB“
Optionen

Hey PaoloP!

Dies ist der Programmtext für die Tastfunktion eines Buttons. Ich hatte aber geschrieben, dass ich mehrere
Buttons als Taster gesetzt hatte. (belegt mit Taste a, b, c…..).
Die KeyPress Funktion kenne ich zwar, ich wüßte aber in diesem Fall nicht, wie ich das mit dieser
Funktion so umsetzen könnte, dass ich mehrere Buttons gleichzeitig über Tastatur aktivieren kann.
Es würde mir echt sehr weiter helfen, wenn mein Problem umzusetzen wäre, da ich diese Funktion eigentlich benötige.



Private Sub cmd_m1pin1t_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

cmd_m1pin1t.BackColor = vbGreen
txt_pin(101).BackColor = &HFFFFFE

End Sub
____________________________________________________________________________________

Private Sub cmd_m1pin1t_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

cmd_m1pin1t.BackColor = &H80FFFF
txt_pin(101).BackColor = &HFFFFFE

End Sub
____________________________________________________________________________________

Private Sub cmd_m1pin1t_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 0 And Chr(KeyCode) = "A" Then
cmd_m1pin1t.BackColor = vbGreen
txt_pin(101).BackColor = &HFFFFFE
End If
End Sub
_________________________________________________________________________________________________
Private Sub cmd_m1pin1t_KeyUp(KeyCode As Integer, Shift As Integer)

If Shift = 0 And Chr(KeyCode) = "A" Then
cmd_m1pin1t.BackColor = &H80FFFF
txt_pin(101).BackColor = vbWhite
End If

End Sub


bei Antwort benachrichtigen
Weiss nicht, ob dir das hilft: Lass die Eingaben in einer entspr. ... Uli M