Library code snippets

Passing variable values to a form

Object oriented programming guidelines stipulate that objects --
including forms -- should maintain their own internal values. With
this in mind, you'll need a way to pass values to loaded forms without
using universally global variables. Fortunately, Visual Basic provides
just such a way with its property Let() and Get() procedures.

For example, suppose you have a button Click() event on Form1 that
loads Form2. Form2 displays a value collected in Form1. In the past,
you may have created a public variable with an application scope, and
then read this variable in Form2 to obtain the proper value. Using
this technique, however, soon results in hard-to-manage, spaghetti code.

As a more elegant alternative, you can add a property to Form2 that
Form1 can then set.

For instance, in Form2 you would add the following property procedures
along with the variable declaration:

Private myVar as Variant

Public Property Get PassVar() As Variant
PassVar = myVar
End Property

Public Property Let PassVar(ByVal vNewValue As Variant)
If IsNumeric(vNewValue) Then myVar = vNewValue
End Property

For these procedures, you can change the property type, but it must
match in both the Get and Let procedures. Also notice that we included
some validation code to ensure that the passed value is a number.
 
Now, to read or assign a value to this property, use the following
code on Form1

 Private Sub Command1_Click()
 With Form2
     .PassVar = 25
     .Show
     Debug.Print .PassVar
 End With
 End Sub

Comments

  1. 23 Dec 2004 at 04:49

    Good

  2. 28 Jul 2004 at 01:18

    i got rid of all the hell publics vars
    with help of this code

  3. 01 Jan 1999 at 00:00

    This thread is for discussions of Passing variable values to a form.

Leave a comment

Sign in or Join us (it's free).