Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sharing information between classes
I'm new to using class modules and was wondering how to do the
following I have a class module called DeviceList, which contains Private m_strListName As String Private m_lbLinkButton As LinkButton Property Get AddButton() As LinkButton Set AddButton = m_lbAddButton End Property Property Set AddButton(lbLinkButton As Object) Set m_lbAddButton = lbLinkButton End Property Property Get ListName() As String ListName = m_strListName End Property Property Let ListName(ByVal strNewValue As String) ' Raise an error if an invalid assignment is attempted. If Len(strNewValue) = 0 Then Err.Raise 5 m_strListName = strNewValue End Property I was wondering if there was a way to directly access ListName directly from the LinkButton module using something like myVar = Me.Parent.ListName. This doesn't work, but there must be some way of accessing the parent object instance's properties and methods right? Thanks for any forthcoming help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sharing information between classes
You just need to give your LinkButton class a DeviceList object variable and
a Parent property that sets and returns references to that object. Private mobjParent As DeviceList Public Property Set Parent(ByRef objNewValue As DeviceList) Set mobjParent = objNewValue End Property Public Property Get Parent () As DeviceList Set Parent = mobjParent End Property You then need to initialize the LinkButton object's Parent property when you create it. After that you can reference any public DeviceList method or property from within the LinkButton class using either the mobjParent object variable directly or through the LinkButton Parent property as in your request. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "jrpfinch" wrote in message ... I'm new to using class modules and was wondering how to do the following I have a class module called DeviceList, which contains Private m_strListName As String Private m_lbLinkButton As LinkButton Property Get AddButton() As LinkButton Set AddButton = m_lbAddButton End Property Property Set AddButton(lbLinkButton As Object) Set m_lbAddButton = lbLinkButton End Property Property Get ListName() As String ListName = m_strListName End Property Property Let ListName(ByVal strNewValue As String) ' Raise an error if an invalid assignment is attempted. If Len(strNewValue) = 0 Then Err.Raise 5 m_strListName = strNewValue End Property I was wondering if there was a way to directly access ListName directly from the LinkButton module using something like myVar = Me.Parent.ListName. This doesn't work, but there must be some way of accessing the parent object instance's properties and methods right? Thanks for any forthcoming help. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sharing information between classes
That's great thank you very much
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Workbooks Sharing Information | Excel Programming | |||
Formula help on information sharing between 3 worksheets | Excel Discussion (Misc queries) | |||
Sharing information between workbooks | New Users to Excel | |||
Sharing Information Between Workbooks | Excel Worksheet Functions | |||
Sharing information between Access and Excel | Excel Discussion (Misc queries) |