Keypress e routine alcuni chiarimenti.

[Clipper_71]

Non preoccupatevi, mi sopporterete ancora per poco... il tempo di gestire ste TextBox come dico io .......

Dunque, la prima domanda è questa:
- Per passare da una textbox all'altra dopo la pressione del tasto INVIO, ho usato l'evento Keypress n volte quante sono le TextBox nel form.
Per ogni oggetto textbox ho rilevato l'evento keypress e con la funzione sendkeys ho simulato la pressione del tasto {Tab}.
Dico, ma è possibile che per una cosa così semplice sono costretto a inserire così tante righe di codice???? Secondo me sto usando il modo peggiore per ottenere sto risultato.:master:

- Come faccio invece a simulare la pressione di un CommandButton che non sia con il mouse ma bensì con un tasto della tastiera?????

- Ho un blocco di codice che viene richiamato spesso da più parti del progetto. Esiste la possibilità di scrivere il codice stesso una sola volta e richiamarlo con un alias o qualcosa del genere (in clipper si chiamavano subroutine) ?????

Ringrazio anticipatamente chi vorrà rispondermi.

[xegallo]

ho una sensazione di dejavu ma oggi sono svogliato e non controllo

1) se crei una matrice di controllo puoi ripetere un evento per tutti gli elementi della matrice

2) all'evento form_keypress ci scrivi dentro command1_click

3) si scrive una funzione e basta chiamarla per nome

[Clipper_71]

Senti Xegallo, ma ce una cosa di VB che non conosci???? Ma beato te!!!!!
Per il discorso del dejavu, ho provato a fare lelle ricerche ma non sono riuscito a trovare nulla.
Comunque un grazie infinito - Gab.
:quote: :quote: :quote:

[Clipper_71]

XeGallo, ho provato a simulare la pressione del CommandButton usando l'evento Form_Keypress, ma il pulsante non si preme.... Tutto il resto funziona ma sta cosa non vuole funzionare. come mai????
il codice è il seguente:

Private Sub Form_Keypress(KeyAscii As Integer)
        if Keyascii= vbKeyReturn then
              ' il pulsante si chiama Conferma_form
              Conferma_form_click
        endif
End Sub

Dove commetto l'errore?????
Grazie X e a presto - Gab.

[xegallo]

Originariamente inviato da Clipper_71
XeGallo, ho provato a simulare la pressione del CommandButton usando l'evento Form_Keypress, ma il pulsante non si preme.... Tutto il resto funziona ma sta cosa non vuole funzionare. come mai????
il codice è il seguente:

Private Sub Form_Keypress(KeyAscii As Integer)
        if Keyascii= vbKeyReturn then
              ' il pulsante si chiama Conferma_form
              Conferma_form_click
        endif
End Sub

Dove commetto l'errore?????
Grazie X e a presto - Gab.

ma tu ce l'hai una routine del click del pulsante

[vonkranz]

Originariamente inviato da Clipper_71
XeGallo, ho provato a simulare la pressione del CommandButton usando l'evento Form_Keypress, ma il pulsante non si preme.... Tutto il resto funziona ma sta cosa non vuole funzionare. come mai????
il codice è il seguente:

Private Sub Form_Keypress(KeyAscii As Integer)
        if Keyascii= vbKeyReturn then
              ' il pulsante si chiama Conferma_form
              Conferma_form_click
        endif
End Sub

Dove commetto l'errore?????
Grazie X e a presto - Gab.

...imposta la prop. KeyPreviw del form a TRUE

[Clipper_71]

Allora, ho impostato la proprietà KeyPreview a True ma la cosa non funge...
X, dove la trovo la routine del click del pulsante????
Devo crearla io????
Potresti darmi qualche indizio?????
Quando il focus è sul Pulsante in oggetto funziona solo se premo la spaziatrice, ma con l'invio non va...
Devo simulare forze la pressione ti tale tasto con il comando Sendkeys?????
Grazie e buona giornata

[vonkranz]

Originariamente inviato da Clipper_71
Allora, ho impostato la proprietà KeyPreview a True ma la cosa non funge...
X, dove la trovo la routine del click del pulsante????
Devo crearla io????
Potresti darmi qualche indizio?????
Quando il focus è sul Pulsante in oggetto funziona solo se premo la spaziatrice, ma con l'invio non va...
Devo simulare forze la pressione ti tale tasto con il comando Sendkeys?????
Grazie e buona giornata

in fase di progettazione, fai doppio click sul pulsante in questione.
la chiama forzata delle'vento Conferma_form_click ti genera solo quella chiamata, se non hai codice scritto all'interno di quella routine, non succedera' nulla.

[Clipper_71]

Sei un mago!!!!!!!!!

Private Sub Conferma_form_Click()
    Unload Me
    Anagrafica_comune_modifica_frm.Show 1
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
    Conferma_form_Click
    End If
End Sub

Adesso funziona grazzzzieeeee