|
If KeyCode = 38 Then
'Se il controllo attivo e' una classe TextBox... If TypeOf ActiveControl Is TextBox Then '...allora passo il focus al controllo precedente SendKeys "+{TAB}" 'Azzero il KeyCode KeyCode = 0 End If 'Tasto freccia UP ElseIf KeyCode = 40 Then 'Se il controllo attivo e' una classe TextBox... If TypeOf ActiveControl Is TextBox Then '...allora passo il focus al controllo successivo SendKeys "{TAB}" 'Azzero il KeyCode KeyCode = 0 End If End If |