Ouvrir plusieurs form en même temps

Soyez le premier à donner votre avis sur cette source.

Vue 12 276 fois - Téléchargée 624 fois

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

celiphane
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007
-
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

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.