Discussion :

[Clo72]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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.

[Clo72]

Merci ProgElect

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

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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 ...)