模組中的變數 未定義

Home Home
登入註冊發表列印 載入圖片
引用 | 編輯 upside
2007-01-12 00:53		 樓主
▼
推文 x0
程式越寫越龐大 單獨使用都沒問題 一旦合併在一起就很容易出現各種錯誤
現在又出現變數未定義的問題 請大家麻煩看一下 問題出在那裡

問題出在這裡 m_cTmr.Interval = 0
會顯示 變數 未定義

Private Sub pMouseMove()
Dim iMenu As Long
Dim iLastOver As Long
iMenu = MenuHitTest()
iLas ..

訪客只能看到部份內容，免費 加入會員



獻花 x0
引用 | 編輯 法蘭克
2007-01-14 02:02		 1樓
▲   ▼
複製程式 
   If m_cTmr Is Nothing Then
      Set m_cTmr = New CTimer
   End If
這個部份,除了Nothing的判斷外.
再加上IsObject的判斷試試~
複製程式 
   If m_cTmr Is Nothing Or Not(IsObject(m_cTmr)) Then
      Set m_cTmr = New CTimer
   End If


獻花 x0
引用 | 編輯 newp
2007-06-07 00:41		 2樓
▲  
m_cTmr 並未定義
可能在最前面加上這行定義試試
dim m_cTmr as CTimer

獻花 x0