OUVRIR PLUSIEURS FORM EN MÊME TEMPS , Source N°30625

Information sur la source

Catégorie :Formulaire Niveau : Débutant Date de création : 08/04/2005 Date de mise à jour : 13/04/2005 09:22:45 Vu / téléchargé: 7 169 / 455

Auteur : maxwells

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Voici un code permettant de montrerle même formulaire en même temps.
Très simple j'en ai eu besoin pour créer un éditeur de texte (il fallait pouvoir ouvrir plusieurs documents en même temps)
Sauf que ici je l'ai modifié pour en faire un générateur de boutons. si vous cliqué sur oui il affiche 50 formulaire où il y a un bouton ok

Source

'=================================================================
'=================================================================
'à 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

'=================================================================
'=================================================================
'à 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

Conclusion

Pratique et simple (cela dépend pour qui)
Je suis débutant alors soyer simpas; je sais que c'est facile. Ce code est destiné au débutant comme moi.

Je n'ai pas mis le fichier ressource avec car il contenait vb6fr.dll et un autre je sai plus lequel.
Mais le fichier ressource vous permet d'éxécuter votre programme si vous le compiler sur n'importe quel ordinateur.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

ButtonForm.frm 5 506 octets
ButtonGen.frm 6 303 octets
ButtonGenerator.vbp 763 octets
ButtonGenerator.vbw 112 octets

Télécharger le zip

Historique

13 avril 2005 09:22:45 :: c'est pas vraiment une mise à jour mais j'ai changé le titre de la source pour faciliter les recherche. j'ai suivi les conseils.

Sources du même auteur

Toutes les sources de maxwells

Sources de la même categorie

Toutes les sources de la catégorie Formulaire

Commentaires

Commentaire de celiphane le 10/04/2005 02:23:13

Salut,
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