我在做一个扫雷的程序,用了25个picturebox,并且定义了一个数组box(4,4)来指向这组picturebox,其中随机选出3个埋雷。
当单击是我要判断我点击的picturebox 是在什么位置,就是它具体被指向的数组,不知道怎么做了。
下面是我的代码节选,打?处我想判断是不是单击的picturebox 。
Private Sub PictureBox1_MouseClick( ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim no As Integer
For Each tbox In box
If ? Then
Exit For
Else
no += 1
End If
Next
求各路大神帮帮忙!!
vb中怎样知道我点击的是哪个控件?
答案:2 悬赏:0 手机版
解决时间 2021-02-25 23:48
- 提问者网友:心如荒岛囚我终老
- 2021-02-25 13:16
最佳答案
- 五星知识达人网友:第四晚心情
- 2021-02-25 13:32
sender就是
示例:
Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim no As Integer
If sender.Tag = "是雷" Then
MessageBox.Show("是雷")
Else
MessageBox.Show("不是雷")
no += 1
End If
End Subsender是一个Object对象,支持.Net的所有控件(组件),虽然sender没有实际的属性值,但在代码里依然可以调用它。
如果有不懂可以追问
望采纳
示例:
Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim no As Integer
If sender.Tag = "是雷" Then
MessageBox.Show("是雷")
Else
MessageBox.Show("不是雷")
no += 1
End If
End Subsender是一个Object对象,支持.Net的所有控件(组件),虽然sender没有实际的属性值,但在代码里依然可以调用它。
如果有不懂可以追问
望采纳
全部回答
- 1楼网友:青灯有味
- 2021-02-25 14:49
dim text() as object private sub form_load() dim i as integer dim ntop as long redim text(1 to 10) for i = 1 to 10 set text(i) = controls.add("vb.textbox", "text1" & cstr(i)) text(i).height = 300 text(i).top = ntop text(i).visible = true ntop = ntop + 30 * 15 next i end sub 添加动态控件。你可以自己试试看。 form1上什么都不加运行这个程序后会发现自动生成了10个text控件
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯