Referencing ActiveX control from module

[greg_quinn]

When I add a module to my ActiveX control,

I am trying to reference my ActiveX control from my module..

i.e

UserControl.CommonDialog ....

But I always get the error, UserControl is not defined, when that is definately the name of the control.

what am I doing wrong

[crptcblade]

You need to pass a reference to the current instance into the module procedure. The module has no way of knowing what instance of your control you are referring to since it is shared across all instances, so you need to tell it.

Example

'UserControl
Public Sub DoSomething()
    Call mDoSomething(Me)
End Sub
 
'Module
Pubic Sub mDoSomething(c As YourUserControl)
    c.SomeProperty = SomeValue
End Sub

[greg_quinn]

Hi,

I tried that, but then I get the error, type mismatch on the line

Call FileOpenProc(Me)

Here is my code...


' UserControl code

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Open"
CallFileOpenProc
End Select
End Sub

Public Sub CallFileOpenProc()
Call FileOpenProc(Me)
End Sub

' Module

Sub FileOpenProc(uc As UserControl)
' Do something here...
uc.CommonDialog1.DialogTitle = "Open"
End Sub

[crptcblade]

Don't reference it as UserControl, reference it by the type name you gave it.

' UserControl code
Public Property Get Controls() As Object '<-- Very important
    Set Controls = UserControl.Controls
End Property
 
Public Sub CallFileOpenProc()
    Call FileOpenProc(Me)
End Sub
 
' Module code
Sub FileOpenProc(uc As [i]MyUserControl[/i])
    ' Do something here...
    uc.Controls("CommonDialog1").DialogTitle = "Open"
End Sub

[greg_quinn]

Thanks, that works perfectly!!!