Question

vb。net raiseEvent的用法。。

我怎么才能在一个过程内引发某个控件"a"的click事件？

Answer 1

举个例子，在过程Button1_Click中引发button2按钮的click事件

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Button2.PerformClick()

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        MsgBox("test!")

    End Sub

End Class

追问

如果我是一个htmlelement类型的 我定义了一个withevent的这个类型的变量 怎么引发它的事件啊？它没有这个属性啊。。

Answer 2

调用 button.PerformClick() 即可。

追问

我没说这是一个button啊。

追答

Label是没有这个属性的，我们对它做测试。它是有Click事件的，那么这个事件的处理过程必须是要有的，我们给它另外一个触发就可以了。
Public Class Form1

Private Sub test()
m_event(Me, System.EventArgs.Empty)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
test()
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Label1.Text = "做事要用心"
End Sub

Dim m_event As New EventHandler(AddressOf Label1_Click)

End Class

Answer 3

在代码的开头:
用WithEvents声明类，比如 Private WithEvents 变量名 As New 类名
用Handles邦定事件，比如Private Sub 过程名() Handles 变量.事件名

最后引发事件就相当于执行定义好的一个绑定过程

追问

如果我是一个htmlelement类型的 我定义了一个withevent的这个类型的变量 怎么引发它的事件啊？它没有这个属性啊。。

Answer 4

直接call a_click()

追问

我要是能用这个不早用了。这个是vb6才能用 的