fdiedler2000
Messages postés383Date d'inscriptionsamedi 29 janvier 2005StatutMembreDernière intervention 1 décembre 2008
-
29 nov. 2007 à 19:04
fdiedler2000
Messages postés383Date d'inscriptionsamedi 29 janvier 2005StatutMembreDernière intervention 1 décembre 2008
-
29 nov. 2007 à 22:32
Salut à tous,
Je vais sans doute poser une question débile mais je n'arrive pas à lister toutes les forms de mon projet !
En 2.0, il y a la propriété OpenForms mais cela ne me convient pas
Voici mon code :
<!-- BEGIN TEMPLATE: bbcode_code -->
Code :
<!--[if !IE]><--><!----><!--[endif]--><!--[if IE]>
<![endif]-->PrivateSub OuvrirEnigme(ByVal name AsString)
ForEach ctrl As Control InMe.Controls
IfTypeOf ctrl Is Form Then'vérifie que c'est une form
If ctrl.Name = name Then
ctrl.Show()
Me.Dispose()
Else
MsgBox("impossible de trouver")
EndIf
EndIf
Next
EndSub
<!-- END TEMPLATE: bbcode_code -->Et j'ai remarqué que les forms ne sont pas listées, normal puisque ce ne sont pas des controles...
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 29 nov. 2007 à 21:38
Salut,
Tiens, j'ai fait un essai cette semaine(en VB6) de ce que tu as fais, même boucle For Each, et je me suis apperçu que pour avoir tous les noms de mes Forms, il fallait qu'elles soient visibles(Show ou Visible = True)...Ou alors je ne pas su me débrouiller avec For Each...lol..