EVENT事件不是過程,要處理事件要用到HANDLES 或ADDHANDLER 將事件處理過程關(guān)聯(lián)起來:
勐海ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)的ssl證書銷售渠道,可以享受市場價格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:13518219792(備注:SSL證書合作)期待與您的合作!
PUBLIC EVENT USERNAME()
SUB DOENENT() HANDLES ME.USERNAME
觸發(fā)事件用RAISEEVENT USERNAME
所以WITHEVENTS是聲明該類有事件過程而已
RaiseEvent只能在類的定義中用 不能通過實例引用 也就是說Event是由類的開發(fā)者封裝好的,不允許使用者自己在代碼中來引發(fā)事件,用戶只能編寫處理事件的代碼(也就是你程序中的Sub EventHandler()和Sub EventHandler1())
Public?Sub?Delay(Second?As?Bouble)
Dim?tempTime?As?DateTime?=?DateTime.Now
While?(tempTime.AddSeconds(second).CompareTo(DateTime.Now)??0)
Application.DoEvents()
End?While
End?Sub
放在模塊里,使用時 Delay(1) 即可。