Esistono dei comandi VisualBasic che mi permettono di controllare lo status del Blocco Numerico e del blocco Maiuscola?????
Grazie a tutti - Mik
Esistono dei comandi VisualBasic che mi permettono di controllare lo status del Blocco Numerico e del blocco Maiuscola?????
Grazie a tutti - Mik
Per il blocco maiuscola puoi ovviare premendo un tasto e poi facendo la scansione del tasto premuto in base al codice ASCII. Se il codice ASCII del tasto premuto rientra nell'intervallo delle lettere maiuscole allora o è stato premuto il tasto Blocco Maiuscole... oppure lo Shift + la lettera e per evitare che con lo Shift + lettera venga generata una maiuscola puoi utilizzare la funzione KeyPress...
Frankleen![]()
Con questo codice, attivo e disattivo il tasto BLOC MAIUSC quando clicco sul tasto Command1
Come faccio invece a capire che il tasto BLOC MAIUSC è attivo o meno????codice:Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const KEYEVENTF_EXTENDEDKEY = &H1 Const KEYEVENTF_KEYUP = &H2 Private Sub Command1_Click() keybd_event vbKeyCapital, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event vbKeyCapital, 0, KEYEVENTF_KEYUP, 0 End Sub
io dovrei eseguire il comando solo nel caso in cui il BLOC MAIUSC è disattivato!!!!
Se oltre al codice, ti leggevi tutta la discussione, trovavi anche il controllo del tasto.Originariamente inviato da Ranch
Con questo codice, attivo e disattivo il tasto BLOC MAIUSC quando clicco sul tasto Command1
Come faccio invece a capire che il tasto BLOC MAIUSC è attivo o meno????codice:Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const KEYEVENTF_EXTENDEDKEY = &H1 Const KEYEVENTF_KEYUP = &H2 Private Sub Command1_Click() keybd_event vbKeyCapital, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event vbKeyCapital, 0, KEYEVENTF_KEYUP, 0 End Sub
io dovrei eseguire il comando solo nel caso in cui il BLOC MAIUSC è disattivato!!!!
Prego.