| |
Fortgeschrittene ProgrammierungTastenkombination systemweit abfragen | | | Autor: Spitzbube66 | Datum: 14.02.18 12:22 |
| Liebe Gemeinde, folgendes Problem:
ich möchte mit einer frei einstellbaren Tastenkombination, welche systemweit abgefangen werden soll, in meiner Anwendung etwas auslösen. Ich nutze dazu die hier von VBMichi 2006 dargestellte Funktion, etwas abgewandelt: (http://www.vbarchiv.net/forum/read.php?id=2&t=116602&i=116602&v=f)
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Dim X As Long
For X = 48 To 90
If CompKey(X, UCase(Chr$(X))) Then Exit Sub
If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub
Next X
If CompKey(8, " {Backspace} ") Then Exit Sub
If CompKey(9, " ") Then Exit Sub
If CompKey(13, vbCrLf) Then Exit Sub
If CompKey(32, " ") Then Exit Sub
If CompKey(186, "Ü") Then Exit Sub
If CompKey(192, "Ö") Then Exit Sub
If CompKey(219, "?") Then Exit Sub
If CompKey(220, "^") Then Exit Sub
If CompKey(211, "`") Then Exit Sub
If CompKey(222, "Ä") Then Exit Sub
For X = 112 To 127
If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
Next X
End Sub
Private Function CompKey(KCode As Long, KText As String) As Boolean
Dim Result As Integer
Result = GetAsyncKeyState(KCode)
If Result = -32767 Then
Text1.Text = Text1.Text & KText
Text1.SelStart = Len(Text1.Text)
CompKey = True
Else
CompKey = False
End If
End Function Die Abfrage zum Beispiel mit "If CompKey(123) Then" (123 = F12; ich weiß es gibt auch vbKeyF12) funktioniert, auch auf zum Beispiel "If CompKey(vbKeyControl) And CompKey(vbKeyShift) And CompKey(164)" (164 = ALT), also Strg+Shift+Alt, reagiert das Programm, aber nicht auf z.B. Strg + F12, also "If CompKey(vbKeyControl) And CompKey(123)".
Ich komme hier gerade nicht weiter und hoffe auf einen guten Tipp von Euch.
Gruß Frank
Beitrag wurde zuletzt am 14.02.18 um 12:45:21 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|