这几天学习vb类,类中的事件不明白
这几天学习vb类,类中的事件不明白,各位大哥,能出示一段简单的代码,给我讲讲吗?
我先谢了!
[解决办法]
你既然已经开始学习到类了,说明你VB的底子已经有了.你先看看一般的事件是干什么用的,这很重要,比如说,TextBox的Change事件或者Click事件,会使用才能写出有用的事件来
在你明白事件之前,你必须知道属性和方法的用法和建立方法,本人假定你已经会了
在类中,声明一个事件是非常容易的
event thisEvent ' '在类中
如上就声明了一个事件了,然后在需要触发本事件的位置写代码:
raiseevent thisevent ' '在类中
这样就可以了,但是要想在你的代码中写事件发生时的代码,你必须这样定义变量
dim withevents myObject as class1 ' '在窗体中或其它的类中,模块级变量
set myobject as new class1 ' '在使用此类之前先应该实例化它
然后,在窗体或类的代码窗口的左上方的下拉列表中(对象列表)选择这个变量,就是myobject,VB会自动把这个事件显示出来并生成一个事件的过程,接下来的事情你就再熟悉不过的了
现在给你示例代码:
'在类Class1中的代码:
Option Explicit
Event thisEvent()
Sub Test()
RaiseEvent thisEvent
End Sub
'在窗体Form1中的代码:
Option Explicit
Dim WithEvents myObject As Class1
Private Sub Form_Click()
myObject.Test
End Sub
Private Sub Form_Load()
Set myObject = New Class1
End Sub
Private Sub myObject_thisEvent()
MsgBox "事件被触发 "
End Sub
