重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
EVENT事件不是过程,要处理事件要用到HANDLES 或ADDHANDLER 将事件处理过程关联起来:
勐海ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!
PUBLIC EVENT USERNAME()
SUB DOENENT() HANDLES ME.USERNAME
触发事件用RAISEEVENT USERNAME
所以WITHEVENTS是声明该类有事件过程而已
RaiseEvent只能在类的定义中用 不能通过实例引用 也就是说Event是由类的开发者封装好的,不允许使用者自己在代码中来引发事件,用户只能编写处理事件的代码(也就是你程序中的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) 即可。