单击矩形时如何触发事件

1. 捕获在其中绘制矩形的对象（面板，窗体，图片框）的click事件。
2. 检查鼠标指针的位置，并确定您的矩形是否落在该位置
3. 现在，以不同的标准执行操作。

例如，只需创建一个新项目并添加以下代码。

    Dim r As Rectangle
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim p As New Panel
    p.Dock = DockStyle.Fill
    Me.Controls.Add(p)
    AddHandler p.Paint, AddressOf p_Paint
    AddHandler p.Click, AddressOf P_Click
End Sub

Private Sub p_Paint(sender As Object, e As PaintEventArgs)
    Dim p As Panel = sender
    Dim g As Graphics = Graphics.FromHwnd(p.Handle)
    r = New Rectangle(New Point(10, 10), New Size(100, 100))
    g.DrawRectangle(Pens.Black, r)

End Sub

Private Sub P_Click(sender As Object, e As EventArgs)
    Dim p As Panel = sender
    Dim po As Point = p.PointToClient(MousePosition)
    Me.Text = po.X.ToString + "," + po.Y.ToString
    If r.Contains(po) Then
        MsgBox("Yup!")
    End If
End Sub