16,554
社区成员
发帖
与我相关
我的任务
分享
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim testcontrol As New MyControl
AddHandler testcontrol.Touch, AddressOf OnTouch
Me.Controls.Add(testcontrol)
End Sub
Private Sub OnTouch()
MsgBox("自定义控件中的事件Touch已触发!")
End Sub
End Class
Public Class MyControl
Inherits UserControl
Public Event Touch()
Public Sub New()
InitializeComponent()
Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
End Sub
'假设该事件在MouseEnter中触发
Private Sub MyControl_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
RaiseEvent Touch()
End Sub
End Class