View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
jrpfinch jrpfinch is offline
external usenet poster
 
Posts: 6
Default 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.