Comment vérifier si une form existe [Résolu]
cs_zarkor
- Messages postés
- 19
- Date d'inscription
- mardi 7 juin 2005
- Dernière intervention
- 19 août 2006
- Messages postés
- 19
- Date d'inscription
- mardi 7 juin 2005
- Dernière intervention
- 19 août 2006
A voir également:
- Comment vérifier si une form existe
- Verifier si un fichier existe - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Vérifier si un fichier existe - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Vérifier si une clé existe dans la base de registre - Codes sources - Visual Basic / VB.NET (VBScript)
- [vb6] vérifier qu'un fichier existe par son url - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Vérifier si une forme est chargée ✓ - Forum - Visual Basic 6
5 réponses
Meilleure réponse
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Dernière intervention
- 24 septembre 2014
C'est ce que je te disait, dans le cas de cet exemple, le tableau ne sert à rien.
Si tu met ce code tel quel dans une procédure, le tableau est recréer et redimentionné à chaque appel de la procédure. A la fin de la procédure, il est automatiquement détruit, et tu perd donc les références sur tes fenetres.
Au premier appel, tu crée la form n°1. A la fin de la procedure, tu perd la référence à cette form. Donc au second appel, ton tableau venant d'etre créé, est parfaitement vierge. Tu vas donc créer une "seconde" form n°1.
Il faudrait que tu déclare ton tableau en variable globale, que tu le dimentionne 1 seule fois dans une phase d'initialisation voire directement à la déclaration.
Ensuite dans la procedure que tu appele pour créer les forms, tu ne garde que ce qui est entre le If et le End If
Sevyc64 (alias Casy)
<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Si tu met ce code tel quel dans une procédure, le tableau est recréer et redimentionné à chaque appel de la procédure. A la fin de la procédure, il est automatiquement détruit, et tu perd donc les références sur tes fenetres.
Au premier appel, tu crée la form n°1. A la fin de la procedure, tu perd la référence à cette form. Donc au second appel, ton tableau venant d'etre créé, est parfaitement vierge. Tu vas donc créer une "seconde" form n°1.
Il faudrait que tu déclare ton tableau en variable globale, que tu le dimentionne 1 seule fois dans une phase d'initialisation voire directement à la déclaration.
Ensuite dans la procedure que tu appele pour créer les forms, tu ne garde que ce qui est entre le If et le End If
Sevyc64 (alias Casy)
<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 19
- Date d'inscription
- mardi 7 juin 2005
- Dernière intervention
- 19 août 2006
Oui effectivement je m'en suis apperçu en essayent de mieux comprendre le code (il est pas de moi ).
Donc je viens de trouver une solution un peu boucher :
Dim Form(99) As Form2
Private Sub Command2_Click()
On Error Resume Next
Unload Form(3)
Form(3).Caption = "Titre3"
Form(3).Show
End If
End Sub
Unload Form(3) me génère une erreur si la form(3) n'existe pas encore donc j'avais rajouté un On Error Resume Next.
Puis du coup j'ai réessayé ta solution à toi :
Dim Form(99) As Form2
Private Sub Command2_Click()
If Form(3) Is Nothing Then
Set Form(3) = New Form2
Form(3).Caption = "Titre3"
Form(3).Show
End If
End Sub
Et la miracle ça marche
Merci !
Donc je viens de trouver une solution un peu boucher :
Dim Form(99) As Form2
Private Sub Command2_Click()
On Error Resume Next
Unload Form(3)
Form(3).Caption = "Titre3"
Form(3).Show
End If
End Sub
Unload Form(3) me génère une erreur si la form(3) n'existe pas encore donc j'avais rajouté un On Error Resume Next.
Puis du coup j'ai réessayé ta solution à toi :
Dim Form(99) As Form2
Private Sub Command2_Click()
If Form(3) Is Nothing Then
Set Form(3) = New Form2
Form(3).Caption = "Titre3"
Form(3).Show
End If
End Sub
Et la miracle ça marche
Merci !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Dernière intervention
- 24 septembre 2014
Déjà, tu peux essayer comme ça
Dim Form() as Form1
dim i as integer
redim Form(1 to 10) as form1
If Form(i) Is Nothing Then
set Form(i) = new form1
Form(i).caption = Titre (i)
Form(i).show
end if
Et au passage, je sais pas si le code que tu donne est juste un exemple, mais tu risque d'avoir un problème d'indices. Deplus ton tableau ne sert à rien dans ce cas là.
Sevyc64 (alias Casy)
<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Dim Form() as Form1
dim i as integer
redim Form(1 to 10) as form1
If Form(i) Is Nothing Then
set Form(i) = new form1
Form(i).caption = Titre (i)
Form(i).show
end if
Et au passage, je sais pas si le code que tu donne est juste un exemple, mais tu risque d'avoir un problème d'indices. Deplus ton tableau ne sert à rien dans ce cas là.
Sevyc64 (alias Casy)
<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
salut,
essaye avec un tableau de type (form / boolean <- existance)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
essaye avec un tableau de type (form / boolean <- existance)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.