vb6 - intercettazione Shift + Tab

[Luberto Mario]

per evitare di scrivere il codice per ogni controllo
ho pensato di utilizzare un timer posto in una videata
nascosta, utilizzando il seguente codice:

Private Sub §TimerIntercettazioneTasti_Timer()     If GetAsyncKeyState(vbKeyTab) Then         If GetShift Then             MsgBox "Shift Tab"           Else             MsgBox "Tab"         End If     End If End Sub   Public Function GetShift() As Boolean     GetShift = CBool(GetAsyncKeyState(vbKeyShift)) End Function

solo che ho l' impressione che non sempre mi da la risposta esatta;
il codice e' sbagliato?
ho provato
GetAsyncKeyState(vbKeyShift + vbKeyTab)
ma non funziona

esiste un metodo alternativo?

grazie

[Luberto Mario]

sapevo che avrei sbagliato a inserire il codice

Private Sub §TimerIntercettazioneTasti_Timer()
    If GetAsyncKeyState(vbKeyTab) Then
        If GetShift Then
            MsgBox "Shift Tab"
          Else
            MsgBox "Tab"
        End If
    End If
End Sub


Public Function GetShift() As Boolean
    GetShift = CBool(GetAsyncKeyState(vbKeyShift))
End Function

[oregon]

Non ho capito il problema iniziale ... perché devi intercettare Shift+Tab ?

[Luberto Mario]

perche' in qualche caso la tabulazione indietro non mi deve andare
sul campo immediatamente precedente, ma su campi diversi a seconda
di alcuni valori

[oregon]

Non puoi usare opportunamente la proprietà TabIndex dei controlli?

[Luberto Mario]

no. ti faccio un esempio:
supponiamo di avere tre campi: Campo1, Campo2 e Campo3
con tabindex rispettivamente 1, 2 e 3.
mi trovo su Campo3 e con ShiftTab andrei su Campo2 ma
se esistono combinazioni particolari (anche al di fuori dei
tre campi in questione) devo andare su Campo1 o in
generale su CampoX
spero di essere stato chiaro

[oregon]

In base alle condizioni di cui parli (e che sarebbe meglio conoscere in dettaglio per darti maggiori informazioni) puoi intervenire negli eventi LostFocus e GotFocus ...

[Luberto Mario]

si certo
volevo trovare un sistema che mi evitasse di scrivere il
codice per ogni controllo di ogni form
ma se non e' possibile pazienza

[oregon]

Ma se usi array di controlli non dovrai fare tanta fatica.

[Luberto Mario]

verissimo
ma non posso farlo perche' mi sono creato delle routine standard
per la lettura e scrittura dei record;
in pratica quando leggo un record, in automatico mi vengono
riempiti tutti i campi della maschera che hanno lo stesso nome,
e quando lo scrivo verranno prelevati i valori dai campi della maschera
con lo stesso nome;
quindi i nomi dei campi non posso toccarli