动态加载控件的问题

Question

Private Sub Command2_Click() 
Set oControl = Controls.Add("IssueMachine.DeviceRun_2", "MapView") 
With oControl 
    .Visible = True '可以看到了 
End With 
End Sub 
    Private Sub Command3_Click() 
     
'    On Error GoTo errHandle 
    With oControl 
        .object.btSwitch.Enabled = True 
        .object.btOK.Enabled = True 
        .SetConfig '这里可以执行了 
        .object.add_DevComUsed = 1000 ' EnumWindows(AddressOf MyWindowsListProc) '这里还不对，本意是要加个事件在控件里调用这个事件 
    End With 
'    Exit Sub 
'errHandle: 
'    RaiseEvent error 
    End Sub 
'这是事件处理函数 
Function MyWindowsListProc(ee As String) 
MsgBox ("aaa") 
End Function

Answer 1

AddressOf MyWindowsListProc "必需" 放在 .bas 模块里面, 你改看看.

Answer 2

用了AddressOf MyWindowsListProc'这是事件处理函数  
Function MyWindowsListProc(ee As String)  
MsgBox ("aaa")  
End Function上面这个事件处理函数参数定义错误.

Answer 3

C#写的用户控件或者class project不是标准的com组件，vb6不是事件驱动的机制，不能调用。

Answer 4

哈哈，c＃写的用户控件还是可以做成com组件的