Accessing Class Properties from Other Subs

[byoung]

I have a Class oMenu that I have defined in a sub called cmdBox1_Click

I have another event called cmdBox2_Click tha I want to access the properties, etc from the object defined in cmdBox1_Click.

Any way to do this?

Example:

Sub cmdBox1_Click

Dim oMenu as New oClassMenu

'Set the property here...
oMenu.MenuSelection = "Edit"

End Sub

Sub cmdBox2_Click

'Want to access the property MenuSelection set from cmdBox1_ Click sub

msgbox( oMenu.MenuSelection)

End Sub

 

[Iceplug]

Can't you declare your oMenu outside of your form's procedures so that all of the subs can access it?

 

[Nerseus]

Your best bet is to define oMenu at the form level instead of inside the cmdBox1_Click event. Then it's accessible anywhere on the form. From within cmdBox2_Click, you can first check if it's been set with something like:

If Not (oMenu Is Nothing) Then
    ' Use oMenu
End If

At least, that's how you'd check it in VB6 - I think it's the same syntax

-nerseus