VB 6 - controllo tastiera

[angelicab]

salve!
E' possibile controllare se l'utente spinga un tasto prestabilito sulla tastiera??

[buba88]

be ci sono vari modi per farlo
uno dei più facili è usare l'evento form_keydown(KeyCode As Integer, Shift As Integer)

il parametro keycode contiene un codice che identifica il carattere
poi lo confronti con delle constanti del visual basic e capisci che tasto è stato premuto
le costanti del visual basic sono tipo vbKeyUp (tasto giù) , vbKeyA(tasto a)

ti scrivo un esempio
form_keydown(KeyCode As Integer, Shift As Integer)
if keycode = vbkeya then
msgbox "hai premuto a"
end if

un altro evento è il form_keypress(KeyAscii As Integer)
dentro keyascii c'è il codice asci del tasto premuto l'unico problema è che questo evento nn riconosce caratteri tipo le freccette,ctrl acc...

es.
form_keypress(KeyAscii As Integer)
msgbox "hai premuto" & chr$(keyascii)
end sub


ciaoz

[angelicab]

a me servirebbe controllare se viene premuto il tasto TAB...

[xegallo]

Originariamente inviato da angelicab
a me servirebbe controllare se viene premuto il tasto TAB...

il tasto tab è purtroppo una cosa che va aldisopra delle possibilità di vb ma si può porre rimedio

Public Enum KeyTab
    NoTabPress = 0
    OnlyTab = 1
    ShiftTab = 2
End Enum

Private Declare Function GetKeyState Lib "user32" _
 (ByVal nVirtKey As Long) As Integer

Public Function CheckKeyTab() As KeyTab

Dim retval As Integer

    retval = GetKeyState(vbKeyTab)
    If retval < 0 Then
        retval = GetKeyState(vbKeyShift)
        If retval < 0 Then
            CheckKeyTab = ShiftTab
        Else
            CheckKeyTab = OnlyTab
        End If
    End If
       
End Function

nell' evento lostfocus del controllo

    Dim TTab As KeyTab
    TTab = CheckKeyTab
        
    Select Case TTab
        Case Is = NoTabPress
            'perso il fuoco per altri motivi
        Case Is = OnlyTab
            'premuto tab
        Case Is = ShiftTab
            'premuto ShiftTab
    End Select

[angelicab]

grazie mille!