如何在vs.net2003代码中激发控件的click事件？

[iwebsms]

例如在：
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

'这里如何写激发label2.click的代码？
End Sub

直接要求调用label2_click的代码就不要发了。

[mzhao]

Imports System.Runtime.InteropServices
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Public Shared Function SendMessage(ByVal hWnd As HandleRef, ByVal Msg As Integer, ByRef wParam As Short, ByRef lParam As Short) As IntPtr
End Function


SendMessage(New HandleRef(Label2,Label2.Handle), 513)
SendMessage(New HandleRef(Label2,Label2.Handle), 514)

[阿牛138588]

调用控件单击代码，就是模拟单单控件（label,commandbutton等)
Label1_Click(nothing,nothing)

[mzhao]

Imports System.Runtime.InteropServices
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Public Shared Function SendMessage(ByVal hWnd As HandleRef, ByVal Msg As Integer, ByRef wParam As Short, ByRef lParam As Short) As IntPtr
End Function


SendMessage(New HandleRef(Label2,Label2.Handle), 513,0,控件位置)
SendMessage(New HandleRef(Label2,Label2.Handle), 514,0,控件位置)

[mzhao]

或创建一个继承的Label
Class InheritedLabel1
Inherits Label
Sub PerformClick()
Mybase.OnClick(EventArgs.Empty)
End Sub
End Class
然后调用PerformClick就行了

[xiaoluo5885]

写

label2.Focus()
label2.PerformClick()

[linyasa007]

不知道搂主想干吗，有什么需求需要这样吗？

[iwebsms]

是这样的，我打算做自定义控件，所以有点特殊的想法
最后用2005解决了，2005自带这样的解决方案的
谢谢各位了，上面的方法我没有测试，有兴趣的兄弟试试吧。