Passer un (ou plus) parametre(s) à une form...

0/5 (8 avis)

Snippet vu 6 095 fois - Téléchargée 51 fois

Commenter

Contenu du snippet

Ce code a pour but de passer un ou plusiseurs parametres à une form lors de son chargement. Ceci evite la création de variables public et de sa gestion.
L'exemple (très simple) ici montre l'utilisation de cette fonction pour passer le titre de la form a charger.

Source / Exemple : 


'Code de la Form1 qui va appeler la Form2

Option Explicit

Private Sub Command1_Click()
    With Form2
        .PassMonParam = "Titre en parametre"
        .Show
    End With
End Sub

'-----------------------------------------------

'Code de la Form2 qui recoit le parametre

Option Explicit

Private monParam As Variant

Private Sub Form_Load()
    Me.Caption = monParam
End Sub

'-------------------------------------
' Var Parametres
'-------------------------------------
Public Property Get PassMonParam() As Variant
PassMonParam = momParam
End Property

Public Property Let PassMonParam(ByVal xNewValue As Variant)
monParam = xNewValue
End Property

Conclusion :


Merci pour vos commentaires....-))

A voir également

Ajouter un commentaire Commentaires
infoamz Messages postés 4 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 23 août 2006
12 août 2006 à 14:44
tres bien ,bon travail ,code simple
mc_at_vb Messages postés 1 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 31 mai 2005
31 mai 2005 à 19:02
ca laisse quelques truc en public mais
c'est simple et efficace..
merci
cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
13 janv. 2002 à 18:04
Bon code quand même sa commence a être rare ceux qui sont pas en double
Setaou Messages postés 127 Date d'inscription mercredi 28 mars 2001 Statut Membre Dernière intervention 4 octobre 2004
13 janv. 2002 à 17:31
je crois qu'il y a directement dans les menus de vb la commande "add -> property" pour une form ou une classe
cs_Geff Messages postés 192 Date d'inscription vendredi 2 mars 2001 Statut Membre Dernière intervention 10 janvier 2006
13 janv. 2002 à 17:14
C po mal!
S'inscrire maintenant

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.

Du même auteur (cs_birdie)