用向导新建一个方法,控件代码出现如下一段: '注意!不要删除或修改下列被注释的行! 'MemberInfo=0 Public Function test() As BooleanEnd Function在里面写: UserControl.Parent.Cls 表示调用使用该控件的窗体的cls方法 编译后在使用控件的窗体中: Private Sub Command4_Click() Me.Print "123" End SubPrivate Sub Command5_Click() 控件名字.test End Sub 以上在VB6中运行通过
完成任务后触发此Event,
然后在处理这个Event的方法中调用容器窗体中的方法即可。
'注意!不要删除或修改下列被注释的行!
'MemberInfo=0
Public Function test() As BooleanEnd Function在里面写:
UserControl.Parent.Cls
表示调用使用该控件的窗体的cls方法
编译后在使用控件的窗体中:
Private Sub Command4_Click()
Me.Print "123"
End SubPrivate Sub Command5_Click()
控件名字.test
End Sub
以上在VB6中运行通过