vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Tastenkombination systemweit abfragen 
Autor: Franki
Datum: 19.02.18 02:28

Hallo,
bei den Funktionstasten musst du getrennt auswerten auf die Funktionstaste selbst bzw. deren Kombination mit ALT/STRG/SHIFT usw.

Schau dir mal dieses alte Beispiel an:


option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal _
  hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Sub Form_Activate()
    Dim Top As Single
    Top = 0
    Line1(0).X1 = 0
    Line1(0).X2 = Me.ScaleWidth
    Line1(0).Y1 = Top
    Line1(0).Y2 = Top
 
    Top = Screen.TwipsPerPixelY
    Line1(1).X1 = 0
    Line1(1).X2 = Me.ScaleWidth
    Line1(1).Y1 = Top
    Line1(1).Y2 = Top
 
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim I As Integer
 
    lblTT(0).Caption = ""
    lblTT(1).Caption = ""
    lblASC.Caption = ""
    lblTT(0).Caption = KeyCode
    KeyCode = 0
    For I = 0 To 2
        If (2 ^ I) And Shift Then
            lblShift(I).ForeColor = vbRed
        Else
            lblShift(I).ForeColor = &H80000011
        End If
    Next I
 
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    lblTT(1).Caption = KeyAscii
    lblASC.Caption = Chr$(KeyAscii)
End Sub
 
Private Sub Form_Load()
    lblASC.Caption = ""
End Sub
 
Private Sub mnuAnsItem_Click()
 
    Dim Switch As Long
    mnuAnsItem.Checked = Not mnuAnsItem.Checked
    If mnuAnsItem.Checked Then
       Switch = -1  'im Vordergrund
    Else
       Switch = -2  'nicht im Vordergrund
    End If
    'Switch:  - 1 = immer im Vordergrund ein / -2 = normal (nicht im 
    ' Vordergrund)
    Call SetWindowPos(Me.hwnd, Switch, 0, 0, 0, 0, &H53)
 
End Sub
Da siehst du, dass jede Funktionstaste immer den selbsn Wert liefert egal mit was zusätzlich aufgerufen. Aber dennoch hast du eine Denkanstoß wie du die Zusatztaste auswerten kannst. (Ist unten in rot jeweils hervorgehoben)

Gruß
Frank
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tastenkombination systemweit abfragen1.677Spitzbube6614.02.18 12:22
Re: Tastenkombination systemweit abfragen741Franki19.02.18 02:28
Re: Tastenkombination systemweit abfragen677Spitzbube6619.02.18 09:38
Re: Tastenkombination systemweit abfragen668markusxy20.02.18 19:28
Re: Tastenkombination systemweit abfragen628Spitzbube6621.02.18 17:01

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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