Question

我只想问可能的代码，如

\1

^类似的东西

无论如何我可以打电话，如果点击按钮会发生什么事情？（不在button1_clicked里面）我只是需要它来完成我的作业，除了这个之外我什么都想不到

我希望有人能回答这个问题:( 提前谢谢!!

Answer 1

复制下面的代码，你就完成了。但请确保您的代码中没有处理Button_Click事件。

:)享受

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    AddHandler Button1.Click, AddressOf MyClickHandler
    AddHandler Button2.Click, AddressOf MyClickHandler
End Sub

Private Sub MyClickHandler(sender As Object, e As EventArgs)

    Select Case CType(sender, Button).Name
        Case "Button1"
               picturebox1.show()

        Case "Button2"
               picturebox2.show()

    End Select

End Sub

Answer 2

如果您想为不同形式的不同控件创建单个事件处理程序，那么这个答案就是如此。但这样的代码需要良好的异常处理。另一个缺点是调试错误的问题。

在模块中添加以下事件处理程序。

Public Sub MyClickHandler(sender As Object, e As EventArgs)


    Dim frm As Form = CType(sender, Button).Parent

    Select Case CType(sender, Button).Name
        Case "Button1"

            If frm.Name = "Form1" Then

                CType(frm.Controls.Item("PictureBox1"), PictureBox).Show()

            End If

        Case "Button2"

            If frm.Name = "Form1" Then

                CType(frm.Controls.Item("PictureBox2"), PictureBox).Show()

            End If

    End Select

End Sub

然后您可以按如下方式附加处理程序： -

    AddHandler Button1.Click, AddressOf Module1.MyClickHandler
    AddHandler Button2.Click, AddressOf Module1.MyClickHandler

视觉基本按钮，如果是其他的话

2 个答案: