动态加载控件后如何调用控件的方法或属性。用Controls.Add方法只能用控件的通用的属性或方法。
qyh 2002-08-18 08:20:47 有一个用户控件有一方法:AddRow。
Option Explicit
Dim WithEvents myControl As VBControlExtender
Private Function LoadControl()
If Not myControl Is Nothing Then
Controls.Remove ("MyOcx")
End If
Set myControl = Controls.Add("OurtestOCX.MytestOCX", "MyOcx")
myControl.Height = 3500
myControl.Width = 6500
myControl.Top = 100
myControl.Visible = True
myControl.AddRow '问题在这里了,怎么才可以调用呢??
End Function
Private Sub Command1_Click()
LoadControl
End Sub
让主程序和OCX用DDE通讯???还是有其它的办法做到??