vb和vb.net事件机制
2013-06-25 20:14
459 查看
学习java事件前,回顾了下vb6和vb.net的事件机制,总结在这里,供对比用。
事件是面对对象中对象间通信的方法。事件发生者(又叫事件源)发生一个事件时,通过发送一条消息,给事件接受者(事件处理者),事件接受者可以做出响应的处理。比如在某登录界面中,单击一个按钮,系统会验证用户的用户名和密码是否正确。用户单击按钮后,按钮(事件源)发出了单击事件,产生了自己被单击的消息给窗体,窗体(事件接受者)在自身代码窗口中进行响应的处理。
我们分别看下在vb和vb.net中是怎么实现事件机制的。
在vb6中,使用Event关键字定义事件,raiseEvent发出事件消息,在接受者的类中使用WithEvent表明自己是某个类的事件的接受者,我们看这样两段代码:
首先建立一个窗体,是一个登录窗体,输入用户名和密码后,点击登陆按钮可以登陆,代码(vb6)如下,使用了WithEvent来接收验证类(verifyClass)的消息:
接下来添加一个类模块,是登陆窗体中用到的验证类(verifyClass)的代码,里面定义(Event)了并引发(raiseEvent)了事件:
在vb.net中事件的实现机制同vb基本相同,并且有了优化,通过Handles关键字,使事件实现的机制更灵活,handles可以使多个事件到同一个事件处理程序:
也可以通过AddHandler动态的绑定事件处理程序,即可以根据当时的条件选择将要绑定的事件处理程序,看下面这个例子。
首先定义一个person类,有走路这个事件,在走路方法中触发走路事件
接下来新建一个窗体类,窗体上有一个文本框和一个按钮,代码如下
这就是vb和vb.net的事件处理机制,等学了java事件机制后将进行对比。
事件是面对对象中对象间通信的方法。事件发生者(又叫事件源)发生一个事件时,通过发送一条消息,给事件接受者(事件处理者),事件接受者可以做出响应的处理。比如在某登录界面中,单击一个按钮,系统会验证用户的用户名和密码是否正确。用户单击按钮后,按钮(事件源)发出了单击事件,产生了自己被单击的消息给窗体,窗体(事件接受者)在自身代码窗口中进行响应的处理。
我们分别看下在vb和vb.net中是怎么实现事件机制的。
在vb6中,使用Event关键字定义事件,raiseEvent发出事件消息,在接受者的类中使用WithEvent表明自己是某个类的事件的接受者,我们看这样两段代码:
首先建立一个窗体,是一个登录窗体,输入用户名和密码后,点击登陆按钮可以登陆,代码(vb6)如下,使用了WithEvent来接收验证类(verifyClass)的消息:
Option Explicit '本句代码表明该窗体能接受验证类的事件消息 Private WithEvents vfClass As VerifyClass Private Sub cmdLogin_Click() '定义用户名和密码 Dim userName As String Dim password As String '定义返回结果 Dim Result As Boolean Set vfClass = New VerifyClass userName = txtUserName.Text password = txtPassword.Text '将用户名和密码传到验证类进行验证 Result = vfClass.Verify(userName, password) End Sub Private Sub Form_Load() End Sub '引发验证失败事件后,在此处可以进行相应处理 Private Sub vfClass_loginFail(ByVal userName As String) MsgBox (userName + "登录失败") End Sub '验证成功事件 Private Sub vfClass_LoginSuccess(ByVal userName As String) MsgBox (userName + "登录成功") End Sub
接下来添加一个类模块,是登陆窗体中用到的验证类(verifyClass)的代码,里面定义(Event)了并引发(raiseEvent)了事件:
Option Explicit '定义验证成功和失败的事件 Public Event LoginSuccess(ByVal userName As String) Public Event loginFail(ByVal userName As String) '验证方法:对用户名和密码进行验证 Public Function Verify(ByVal userName As String, ByVal password As String) As Boolean Dim blnResult As Boolean If userName = "123" And password = "123" Then '如果正确,发出登陆成功的消息 RaiseEvent LoginSuccess(userName) blnResult = True Else '错误则发出登陆失败的消息 RaiseEvent loginFail(userName) blnResult = False End If Verify = blnResult End Function
在vb.net中事件的实现机制同vb基本相同,并且有了优化,通过Handles关键字,使事件实现的机制更灵活,handles可以使多个事件到同一个事件处理程序:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button3.Click System.Windows.Forms.MessageBox.Show("我被触发了") End Sub
也可以通过AddHandler动态的绑定事件处理程序,即可以根据当时的条件选择将要绑定的事件处理程序,看下面这个例子。
首先定义一个person类,有走路这个事件,在走路方法中触发走路事件
Public Class Person Public Event walked(ByVal Distance As Integer) Public Sub walk(ByVal Distance As Integer) RaiseEvent walked(Distance) End Sub End Class
接下来新建一个窗体类,窗体上有一个文本框和一个按钮,代码如下
Public Class Form1 '本句代码表明该窗体能接受验证类的事件消息 Public WithEvents objPerson As Person Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click objPerson = New Person() '满足条件下才执行绑定操作 If (TextBox1.Text = "1") Then '满足条件,执行动态绑定,将事件绑定到某方法,该方法转变成事件处理程序 AddHandler objPerson.walked, AddressOf Person_walk objPerson.walk(50) Else System.Windows.Forms.MessageBox.Show("您输入的文本不是1") End If End Sub '触发的事件将绑定到本事件处理程序 Public Sub Person_walk(ByVal Distance As Integer) System.Windows.Forms.MessageBox.Show("a person walked" + Distance.ToString() + " kilometer!") End Sub End Class
这就是vb和vb.net的事件处理机制,等学了java事件机制后将进行对比。
相关文章推荐
- vb和vb.net事件机制
- 用VB.NET实现AUTOCAD中鼠标选中后显示事件
- vb.net 类中属性中的事件 并向新加窗体中用代码添加控件
- ASP.NET事件回传机制
- 转载NET体系下的回调与异步调用之委托与事件机制
- 不同语言中事件的实现(VB6,VB.Net,C#,Java)
- 【原创】vb.net 动态控件 事件添加
- VB.NET里面的Event机制(二)
- vb.net 事件相关概念的入门理解
- [VB.NET]TextChanged ValueChanged 事件
- vb.net 用MenuStrip动态创建菜单,怎样添加子菜单,并增加click事件
- VB.NET之旅(十三)—标准事件处理程序
- [VB.NET]为ToolStrip动态加入的按钮怎么写点击事件?
- [VB.NET]关于combobox的selectchanged事件
- VB.NET下的事件和委托
- VB.NET窗体关闭事件
- vb.net中的自定义事件
- VB.NET 反射机制取得当前函数名 类名等
- C#事件机制初次接触 http://blog.csdn.net/fenghao_5555/archive/2007/08/23/1756424.aspx
- [VB.NET] 事件的应用:父窗体和子窗体的数据传送