Oppure

Loading
23/09/10 5:54
By Salv
Ciao A tutti, in questo mio primo post, un semplice quesito per voi, un problema per me.

Avevo postato nella sezione sbagliata

Sto creando il mio primo programmino con VB.net, devo usare un file Excel come base dati, purtroppo questo è il file che mi passano.

uso VB.net 2008 espress

Ho creato il form con alcune textbox 4-5 ed un pulsante, il problema che riscontro e il seguente, scrivo i dati nel primo textbox, e premendo "Invio" non passa al successivo, devo passarci con il tasto "Tab", Come posso fare per far passare al textbox successivo con invio, devo abilitare qualche Proprietà del form oppure dei textbox.

Premetto che ho variato anche le proprietà dei Textbox, "AcceptsReturn & AcceptsTab" mettendole a "True", ma e come se non avessi fatto niente.

forse qualche proprietà del form?

Per il momento un grazie a chi vorrà aiutarmi.

Un Saluto By Salv (8D)
aaa
23/09/10 10:07
HeDo

ora non ricordo esattamente il nome della proprietà, credo fosse tabindex.
ad ogni modo se vuoi scorrere gli elementi del form in un preciso ordine usando il tab devi impostare i numeri di tabindex nell'ordine corrispondente.
aaa
23/09/10 10:50
By Salv
Ciao HeDo, grazie per la risposta, ma non e quello che volevo, il tab non devo usarlo.

In effetti apro il Form1 ci sono due Textbox1-2, una l'ID utente e l'altra la Pw, metto il nominativo nella prima, poi premo invio e lo stato attivo rimane nel Textbox1 non passa al Textbox2.

Questo quello che vorrei premendo invio dovrebbe passare al Textbox2 e poi al pulsante per la conferma.

Però già all'apertura il focus non va su TextBox1 cosa che vorrei.

Ciao By Salv (8D)

aaa
23/09/10 11:02
Il Totem
Usa l'evento KeyDown (o KeyPress, non ricordo) della TextBox per verificare se invio è premuto. In questo caso, leggi il TabIndex del controllo e scorri tutti i controlli del form, trova quello il cui indice sia il successivo e usa Focus per attivarlo. Questa è una versione manuale del tabbing (che è implementato di default). Esempio:
If e.KeyCode = Keys.Enter Then
   For Each C As Control In Me.Controls
      If C.TabIndex = DirectCast(sender, Control).TabIndex + 1 Then
         C.Focus()
         Exit For
      End If
   Next
End If
aaa