Bonjour a tous,
Je cherche à rendre invisible tout mes pictureBox de ma forme sauf
une. Alors j'ai tenté avec se bout de code, mais je reçois le message
d'erreur "Variable non définie"sur PictureBox après le for Each. Quelqu'un
peut me dire ce que je ne fais pas.
For Each PictureBox In Me
If PictureBox.Name = "picMenu" Then GoTo Suivant
PictureBox.Visible = False
Suivant:
Next
Question, que se passe-t-il lorsqu'il y a un timer sur la feuille? Réponse : L'objet ne gère pas cette propriété ou cette méthode En effet, le contrôle timer n'a pas de propriété visible...
Question, que se passe-t-il si je n'ai pas de timer mais un frame ou un command button? Réponse: Disparu! (et dans les pictureboxes, picMenu est la seule des picturebox qui disparait)
Zoury voulait sans doutes dire: Dim ctl As Control ' on boucle un collection de Controls.
For Each ctl In Me.Controls ' notre collection If TypeOf ctl Is PictureBox Then ctl.Visible = (ctl.Name = "picMenu") End If Next ctl
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"Zoury" a écrit dans le message de news:
naaaaaaarrrggg!!! erreur de copier/coller.. désolé :O/
Hello,
Question, que se passe-t-il lorsqu'il y a un timer sur la feuille?
Réponse :
L'objet ne gère pas cette propriété ou cette méthode
En effet, le contrôle timer n'a pas de propriété visible...
Question, que se passe-t-il si je n'ai pas de timer mais un frame ou un
command button?
Réponse:
Disparu! (et dans les pictureboxes, picMenu est la seule des picturebox qui
disparait)
Zoury voulait sans doutes dire:
Dim ctl As Control ' on boucle un collection de Controls.
For Each ctl In Me.Controls ' notre collection
If TypeOf ctl Is PictureBox Then
ctl.Visible = (ctl.Name = "picMenu")
End If
Next ctl
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"Zoury" <yanick_lefebvre@hotmail.com> a écrit dans le message de
news:uMr36BCdEHA.996@TK2MSFTNGP12.phx.gbl
naaaaaaarrrggg!!! erreur de copier/coller.. désolé :O/
Question, que se passe-t-il lorsqu'il y a un timer sur la feuille? Réponse : L'objet ne gère pas cette propriété ou cette méthode En effet, le contrôle timer n'a pas de propriété visible...
Question, que se passe-t-il si je n'ai pas de timer mais un frame ou un command button? Réponse: Disparu! (et dans les pictureboxes, picMenu est la seule des picturebox qui disparait)
Zoury voulait sans doutes dire: Dim ctl As Control ' on boucle un collection de Controls.
For Each ctl In Me.Controls ' notre collection If TypeOf ctl Is PictureBox Then ctl.Visible = (ctl.Name = "picMenu") End If Next ctl
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"Zoury" a écrit dans le message de news:
naaaaaaarrrggg!!! erreur de copier/coller.. désolé :O/
Fournier Raymond
"François Picalausa" wrote in news:#L0r$TCdEHA.3928 @TK2MSFTNGP09.phx.gbl:
For Each ctl In Me.Controls ' notre collection If TypeOf ctl Is PictureBox Then ctl.Visible = (ctl.Name = "picMenu") End If Next ctl
Merci a vous deux de votre aide, sa fonctionne très bien
Raymond Fournier
"François Picalausa" <fpicalausa@chez.com> wrote in news:#L0r$TCdEHA.3928
@TK2MSFTNGP09.phx.gbl:
For Each ctl In Me.Controls ' notre collection
If TypeOf ctl Is PictureBox Then
ctl.Visible = (ctl.Name = "picMenu")
End If
Next ctl
Merci a vous deux de votre aide, sa fonctionne très bien
