WithEvents問題

Question

我在一個類模塊中用到WinSock
Option Explicit
Private WithEvents m_WinSock As Winsock
Private Sub Class_Initialize()
      Set m_WinSock = New Winsock
End Sub在IDE中的m_WinSock中可以選擇編寫ConnectionRequest事件。但當我連接上機器，觸發了此事件時，為什麼會報錯
出現編譯錯誤，沒有定義這個SUB 或Function .Private Sub m_WinSock_ConnectionRequest(ByVal requestID As Long)
                                                     '接收到對方聯接，請求觸發這個事件

    If m_WinSock.State <> sckClosed Then m_WinSock.Close '在Socket在接收
                                                                   '聯接請求之前保持關閉
    m_WinSock.Accept requestID                           'm_WinSock自己接收聯接請求與客戶端Socket
                                                        '建立聯接
    IsConnectionOpen = True
    MsgBox " 聯接成功！"
End Sub

Answer 1

IDE 菜单“Tools\Options...”，“General”下的“Compile On Demand”不要选上！
运行程序务必先保证全编译通过。

Answer 2

謝謝TIGER，這裡確實編譯通不過。那為什麼不能這樣添加它的事件呢？

Answer 3

我暈。發現是我注釋出現的問題。
在空白處有非空格的空白非法字符。
再次謝謝TIGER

Answer 4

用 IDE 首先就是为了避免语法错误，全编译是必须的。