VB.NET里面的Event机制(一)
2006-09-29 11:40
375 查看
自从VB6开始,Event这个东西就已经深入了VB系列程序中间。在VB6中,我们是简单的通过诸如TextBox1_TextChanged这样一个函数了解到当文字变化的时候,就能够自动触发这个函数。进入了.NET之后,是我们有幸第一次看到了Event的真面目。现在我们在VB.NET里面直接写入下面的函数
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
看来是不能够达到VB6的效果的。原因是我们少写了Handles TextBox1.TextChanged。
这个就是真实存在的Event了。VB.NET对于Event终于可以脱离了函数名的限制(但是不是函数的全部限制),自由的使用。只要我们喜欢,我们也可以写成
Private Sub ThisIsMyTextChangedMethod(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
完全可以。
现在我们就来看看我们如何在自己的类里面加入我们需要的Event。
(1)首先我们需要一个类
Public Class Class1
Inherits Object
End Class
(2)然后我们就可以在这个类里面加入我们的Event了。
Public Class Class1
Inherits Object
Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
End Class
Event里面是可以携带参数的。就好像TextChanged Event一样,他携带了sender和e。sender表示这个Event触发源的实例,也就是这个TextBox1;e是一个事件参数,我们可以将需要传达给使用的信息通过继承自EventArgs的类的实例来传递出去。而这里,EventArgs里面并没有什么有价值的信息。
现在这个类里面已经有了我们要的Event,但是这个Event仅仅是一个声明。也就是说,我们告诉编译器和使用者,Class1里面有一个叫做MyEvent的Event。我们的下一个步骤就是确定什么时候,我们要引发这个Event。
(3)引发Event的语句很简单。
RaiseEvent MyEvent(Me, New EventArgs)
但是值得我们注意的是,Event是不能凭空触发的。我的意思是,RaiseEvent也是一条VB语句,我们只能将这条语句写在Function、Sub或者Property里面。这就意味着我们的Event的触发,要么是通过别人调用了某一个方法,要么通过现在已经存在Handle Sub来触发。
现在我们使用第一种方法,我们通过一个Public函数来触发这个Event。
Public Sub DoSomething()
RaiseEvent MyEvent(Me, New EventArgs)
End Sub
这就意味着,当用户调用了DoSomething方法的时候,Class1就会自动抛出一个MyEvent事件出来。
到这里,一个完整的Event就已经做完了。很简单吧。
(4)同样的方法,我们可以在一个Handle Sub里面抛出我们Event。
Public Class Class1
Inherits Object
Private WithEvents MyButton As New Button
Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click
RaiseEvent MyEvent(Me, New EventArgs)
End Sub
End Class
这里我们同过一个WithEvents的成员MyButton的Click事件函数,触发我们自己的MyEvent事件。
(5)使用这个Class1,我们就可以看到我们自己做的这个MyEvent事件了。
Public Class Test
Inherits Object
Private WithEvents MyClass1 As Class1
Private Sub MyClass1_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyClass1.MyEvent
End Sub
End Class
很简单吧,但是使用Event并不止如此。随后我们将会看到这样简单的使用Event会导致的一些问题。
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
看来是不能够达到VB6的效果的。原因是我们少写了Handles TextBox1.TextChanged。
这个就是真实存在的Event了。VB.NET对于Event终于可以脱离了函数名的限制(但是不是函数的全部限制),自由的使用。只要我们喜欢,我们也可以写成
Private Sub ThisIsMyTextChangedMethod(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
完全可以。
现在我们就来看看我们如何在自己的类里面加入我们需要的Event。
(1)首先我们需要一个类
Public Class Class1
Inherits Object
End Class
(2)然后我们就可以在这个类里面加入我们的Event了。
Public Class Class1
Inherits Object
Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
End Class
Event里面是可以携带参数的。就好像TextChanged Event一样,他携带了sender和e。sender表示这个Event触发源的实例,也就是这个TextBox1;e是一个事件参数,我们可以将需要传达给使用的信息通过继承自EventArgs的类的实例来传递出去。而这里,EventArgs里面并没有什么有价值的信息。
现在这个类里面已经有了我们要的Event,但是这个Event仅仅是一个声明。也就是说,我们告诉编译器和使用者,Class1里面有一个叫做MyEvent的Event。我们的下一个步骤就是确定什么时候,我们要引发这个Event。
(3)引发Event的语句很简单。
RaiseEvent MyEvent(Me, New EventArgs)
但是值得我们注意的是,Event是不能凭空触发的。我的意思是,RaiseEvent也是一条VB语句,我们只能将这条语句写在Function、Sub或者Property里面。这就意味着我们的Event的触发,要么是通过别人调用了某一个方法,要么通过现在已经存在Handle Sub来触发。
现在我们使用第一种方法,我们通过一个Public函数来触发这个Event。
Public Sub DoSomething()
RaiseEvent MyEvent(Me, New EventArgs)
End Sub
这就意味着,当用户调用了DoSomething方法的时候,Class1就会自动抛出一个MyEvent事件出来。
到这里,一个完整的Event就已经做完了。很简单吧。
(4)同样的方法,我们可以在一个Handle Sub里面抛出我们Event。
Public Class Class1
Inherits Object
Private WithEvents MyButton As New Button
Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click
RaiseEvent MyEvent(Me, New EventArgs)
End Sub
End Class
这里我们同过一个WithEvents的成员MyButton的Click事件函数,触发我们自己的MyEvent事件。
(5)使用这个Class1,我们就可以看到我们自己做的这个MyEvent事件了。
Public Class Test
Inherits Object
Private WithEvents MyClass1 As Class1
Private Sub MyClass1_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyClass1.MyEvent
End Sub
End Class
很简单吧,但是使用Event并不止如此。随后我们将会看到这样简单的使用Event会导致的一些问题。
相关文章推荐
- VB.NET里面的Event机制
- VB.NET里面的Event机制(二)
- VB.NET里面的Event机制(三)
- VB.NET里面的Event机制(二)
- VB.NET里面的Event机制(一)
- VB.NET里面的Event机制(三)
- VB.NET里面的Event机制(二)
- VB.NET里面的Event机制(三)
- VB.NET里面的Event机制(三)
- VB.NET里面的Event机制(一)
- vb和vb.net事件机制
- [VB.NET]如何把.TXT的文件内容传到DATAGRID里面
- 。net里面的垃圾回收机制
- VB.NET 反射机制取得当前函数名 类名等
- vb.net---如何用二维数组逐个逐个地把TEXTBOX文本框里面的数字读取
- VB.NET 反射机制取得当前函数名 类名
- 【Question】在VB.net里面怎么可以把字符串的内容转换为可执行的代码呢??
- The VB.NET sender and e Event Parameters
- [VB.NET]困扰我几天的问题..一直想不出~~关于VB.NET的Event~~~~急~~~~~~~~!!!
- 在vb.net 里面实现对sql server 存储过程的操作