自制控件 自定义函数解决思路

自制控件 自定义函数
如何给自定义的控件添加一个像mscomm的OnComm事件 让外部调用时可以不断地接收自定义控件的数据

[解决办法]

VB code

'新建立一个工程'以下代码在工程窗体中'窗体中再增加一个按扭Dim WithEvents A1 As Class1  Private Sub A1_newEvent(N As Variant)  MsgBox NEnd SubPrivate Sub Command1_Click()  Set A1 = New Class1  A1.newFunction 3  '调用方法,参数3表示,产生事件3次.End Sub'再建立一个类,类名 class1'以下代码在此类中Event newEvent(N)  '声明事件Public Function newFunction(ByVal N As Long)   For i = 1 To N      RaiseEvent newEvent(i) '产生N次事件 ,当调用此方法，则产生事件   NextEnd Function