Redonner le focus au précédent

Résolu
vercomax Messages postés 547 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 11 septembre 2013 - 19 sept. 2006 à 22:37
Dolphin Boy Messages postés 630 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 17 février 2007 - 19 sept. 2006 à 23:28
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

Dolphin Boy Messages postés 630 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 17 février 2007
19 sept. 2006 à 22:58
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
3
vercomax Messages postés 547 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 11 septembre 2013 2
19 sept. 2006 à 23:14
ok, merci, c bon
fo juste penser à déclarer pic as object dans la procédure text1
0
Dolphin Boy Messages postés 630 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 17 février 2007
19 sept. 2006 à 23:28
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.
0
Rejoignez-nous