VB6, Tastensteuerung wenn Programm minimiert läuft

Computer: Software & Programmierung Visual Basic
#1

Hallo,

man kann ja mit Taste ALT + Buchstabe (bei entsprechender Einstellung)
einen CommandButton Event erzeugen. Leider funktioniert das nicht, wenn das Programm minimiert läuft.

Hat jemand eine Idee wie man in diesem Fall den Event auslöst.

Danke.

Gruß
Gunter

#2

Hallo,

man kann ja mit Taste ALT + Buchstabe (bei entsprechender
Einstellung)
einen CommandButton Event erzeugen. Leider funktioniert das
nicht, wenn das Programm minimiert läuft.

Hat jemand eine Idee wie man in diesem Fall den Event auslöst.

ja, mit einem Timer und GetasyncKeystate.
Biestpiel für !Alt & A’

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" \_
 (ByVal vKey As Long) As Integer

Private Sub Form\_Load()
 Timer1.Interval = 100
 Timer1.Enabled = True
End Sub

Private Sub Timer1\_Timer()
 If GetAsyncKeyState(164) And GetAsyncKeyState(65) Then
 Me.Caption = "Atlt & A gedrückt"
 Else
 Me.Caption = "Atlt & A nicht gedrückt"
 End If
End Sub

Gruß Rainer

#3

Hallo Rainer,

funktioniert bestens.

Vielen Dank.

Gruß
Gunter