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

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

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)