Focus sur TextBox

Bonjour à tous

Ai créé un navigateur Web avec VB6 et j'aimerais que le curseur clignote à la fin de la TextBox (txtAddress)

Exemple: http://google.fr/

Code:

---

1 2 3 4 5 6 7

Private Sub txtAddress_GotFocus() With txtAddress .SelStart = Len(.Text) .SetFocus End With End Sub

---

A la fin du Form_Load, ai mis

Code:

---

1 2	Me.Show txtAddress.SetFocus

---

Mais rien ne clignote, comme si txtAddress n'avait pas le focus...

Quelqu'un a-t-il une idée

Essais de mettre un point d'arret ou un Stop dans Private Sub txtAddress_GotFocus(), à la ligne, With txtAddress pour le point d'arret ou la commande Stop avant cette ligne, lances ton programme, il doit s'interompre dans cette sub, si non c'est que ton Error Resume Next (sans traitement) fait quitter la sub Load avant la ligne de commande txtAddress.SetFocus.

Merci ProgElect

Ai testé le point d'arrêt et le Stop
C'est pareil, toujours rien

Citation:

---

Ai testé le point d'arrêt et le Stop
C'est pareil, toujours rien

---

au lancement du programme, il y a arret dans la sub GotFocus ?
Je ne parviens pas a reproduire ton probléme, essais çà, pour voire si le focus est bien sur le txtAddress suite a l'ouverture de ton programme

Code:

---

1 2 3 4 5 6 7 8

Private Sub txtAddress_GotFocus() Stop With txtAddress .SelStart = Len(.Text) .SetFocus End With txtAddress.BackColor = &HC0FFC0 '<========= End Sub

---

Bonjour,

1) Commence par mettre en commentaire le On Error Resume Next que tu as mis dans l'évènement Load de ta Form (tu y verras plus clair)

2) donner le focus à ta textbox lors de l'évènement Load (chargement) n'est pas la meilleure idée ...

3) je ne comprends pas que tu veuilles donner le focus à ta textbox dans l'évènement GotFocus de la dite textbox ! (si cet évènement intervenait, c'est que ta textbox aurait déjà le focus ! ce serait comme enfoncer une porte ouverte ...)