COM組件中在VB參考之后查詢出來的結果：
Event AEvent(Message As String)
Member of THREADEVENTSLib.EventThreadObj
method AEvent
Option Explicit
Dim WithEvents obj As THREADEVENTSLib.EventThreadObj
Private Sub Command1_Click()
If obj Is Nothing Then
Set obj = New THREADEVENTSLib.EventThreadObj
End If
End Sub
‘運行到這個地方VB報錯：沒有定義的SUB或FUNCTION
Private Sub obj_AEvent(ByVal Message As String)
MesBox "123"
End Sub
請問是怎么回事
uj5u.com熱心網友回復：
obj和AEvent應該出現在代碼編輯界面上方的二個下拉框里。如果沒有。那就是錯誤的。
uj5u.com熱心網友回復：
Event AEvent(Message As String)
Private Sub obj_AEvent(ByVal Message As String)
后一個多了 ByVal，引數不一致。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119371.html