Redonner le focus au précédent

Résolu
Messages postés
548
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
11 septembre 2013
-
Messages postés
630
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
17 février 2007
-
Bonsoir,

J'ai une série de picturebox ayant chacun un nom différent qui, si on clique dessus, active un textbox dans lequel on mettra un commentaire.
Au LastFocus de ce textbox, je souhaite redonner le focus au picturebox qui l'a activé.
En passant par un groupe de controle, j'y serait arrivé sans problème, mais là, chaque picturebox a un nom différent.
comment faire ?
merci.

3 réponses

Messages postés
630
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
17 février 2007

Salut, essaie quelquechose comme ça dans une form :

Dim pic As PictureBox

Private Sub Picture1_Click()
Set pic = Picture1
Text1.SetFocus
End Sub

Private Sub Picture2_Click()
Set pic = Picture2
Text1.SetFocus
End Sub

Private Sub Text1_LostFocus()
pic.SetFocus
End Sub
Messages postés
548
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
11 septembre 2013
2
ok, merci, c bon
fo juste penser à déclarer pic as object dans la procédure text1
Messages postés
630
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
17 février 2007

Heu, je crois qu'il vaut mieux déclarer pic as object ou pic as picturebox au niveau général de la form en dim ou dans un module en public. Comme ça, elle sera connue plus largement que dans la simple procédure de text1.