Soyez le premier à donner votre avis sur cette source.
Vue 12 763 fois - Téléchargée 648 fois
'================================================================= '================================================================= 'à mettre dans un formulaire se nommant ButtonForm avec dedans un CommandButton '================================================================= '================================================================= Private Sub CmdOk_Click() Unload Me 'décharge le formulaire lorsque l'on clique sur OK End Sub '================================================================= '================================================================= 'à mettre dans un formulaire se nommant ButtonGen avec dedans deux CommandButtons '================================================================= '================================================================= Private Function CréerDesForm() 'fonction qui permet d'afficher le même formulaire plusieurs fois Dim NewForm As ButtonForm 'Défini la variable NewFrom comme le formulaire ButtonFrom Set NewForm = New ButtonForm 'attribue à la variable NewForm un nouveau formulaire ButtonForm NewForm.Show 'Montre le formulaire créé End Function Private Sub CmdNo_Click() End 'si on clique sur non quit le programme End Sub Private Sub CmdYes_Click() 'sub s'éxécutant lorsque l'on clique sur oui x = 50 'x = nombre de formulaire (alias boutons) à afficher While x <> 0 'tant que x est différent de 0 éxécute le code entre While et Wend x = x - 1 'enlève une unité à x CréerDesForm 'éxécute la fonction qui permet d'afficher le même formulaire plusieurs fois Wend End Sub
je trouve que le titre de ta source ne reflete pas son contenu. Je ne suis pas choqué bien entendu ;)
Je l'aurais plutot nommé : OUVRIR PLUSIEURS FOIS LA MEME FEUILLE. En gros, c'est un exemple d'utilisation POO...
En revanche, grâce à ton titre, ça m'a donné l'envie de poser ma class qui elle génère des formulaires, dit moi ce que tu en penses :
http://www.vbfrance.com/code.aspx?ID=30651
Quoi qu'il en soit, bonne prog ! ;)
@+
Celiphane
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.