vb.net – 如何使用相同的Sub处理多个单击事件

我正在为我的视觉基础课程制作游戏.我有多个图片框,点击后会分别显示隐藏的图像.游戏的目的是找到匹配的图片(足够简单).

在最简单的层面上,我有16个图片框.随着难度的增加,图片框的数量增加.

对于每个图片框,我目前有一个事件处理程序如下(默认由visual studio创建)：

Private Sub pictureBox1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles pictureBox1.Click

在里面,我打算用它来改变图片框中的图像,如下所示：

pictureBox1.Image = (My.Resources.picture_name)

我想知道是否有办法让一个Sub处理所有按钮单击,并更改相应的图片框,而不是有16个单独的处理程序.例如：

Private Sub pictureBox1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) _
     Handles pictureBox1.Click,pictureBox2.Click,pictureBox3.Click,... pictureBox16.Click

并执行以下操作：

' Change appropriate picture Box

这是它的样子(现在)：

要找出单击了哪个PictureBox,您只需查看sender变量即可.显然你必须将它从Object类型转换为PictureBox类型：

Dim ClickedBox As PictureBox

ClickedBox = CType(sender,PictureBox)

原文地址：https://www.jb51.cc/vb/255902.html