VB realize the COM components encapsulation of events-CodePudding

COM component in VB reference after check out results:
The Event AEvent (Message As a String)
Member of THREADEVENTSLib. EventThreadObj
Method AEvent

 
Option Explicit 
Dim WithEvents obj As THREADEVENTSLib. EventThreadObj 

Private Sub Command1_Click () 
If obj Is Nothing Then 
The Set obj=New THREADEVENTSLib. EventThreadObj 
End the If 
End Sub 

 'run to the place the VB error: no SUB or FUNCTION of the definition of  
Private Sub obj_AEvent (ByVal Message As String) 
MesBox "123" 
End Sub

How be to return a responsibility excuse me

CodePudding user response:

Obj and AEvent should appear in the code editor interface at the top of the two drop-down boxes,

If not, that is wrong,

CodePudding user response:

 Event AEvent (Message As a String) 
Private Sub obj_AEvent (ByVal Message As String)

After more than a ByVal, parameters,