vi sottopongo una mia idea, che pero' purtroppo non
sono riuscito a realizzare;
per far si' che il tasto Enter venisse assimilato al
tasto Tab ho inserito in ciasun form del mio progetto
il seguente codice:
Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
If TypeOf Screen.ActiveControl Is TextBox Then
SendKeys "{TAB}"
KeyAscii = 0 ' elimina il beep
End If
End Sub
e tutto funziona regolarmente;
ed ecco l' idea; per non ripetere il codice in ciascun form
ho pensato di creare un form che viene caricato in
modalita' nascosta all' avvio dell' applicazione; all' interno di
questo form ho inserito il seguente codice:
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub §Timer_Timer()
If GetAsyncKeyState(13) Then
If TypeOf Screen.ActiveControl Is TextBox Then
SendKeys "{TAB}"
KeyAscii = 0 ' elimina il beep
End If
End Sub
pensando cosi' di dover scrivere una sola volta il codice;
ma purtroppo non funziona nel senso che il cursore non
si muove e fa comunque il beep;
domanda: sbaglio qualcosa o l' idea non e' realizzabile?
grazie anticipate
P.S. nella precedente discussione ho utilizzato il tag CODE
ma come vedete non ho ancora capito come si usa
Rispondi quotando
