我有个笨方法 设个公共变量 public strpic as string 在picturebox1的click中加入 strpic="pic1" call deal(strpic) 在picturebox2的click中加入 strpic="pic2" call deal(strpic)在picturebox3的click中加入 strpic="pic3" call deal(strpic)
可用控件数组,这样读取index参数即可得出点击的是哪个picturebox
Dim con As ControlPrivate Sub Command1_Click() MsgBox con.Name End SubPrivate Sub Picture1_Click() Set con = Picture1 End SubPrivate Sub Picture2_Click() Set con = Picture2 End SubPrivate Sub Picture3_Click() Set con = Picture3 End Sub
设个公共变量
public strpic as string 在picturebox1的click中加入
strpic="pic1"
call deal(strpic)
在picturebox2的click中加入
strpic="pic2"
call deal(strpic)在picturebox3的click中加入
strpic="pic3"
call deal(strpic)
MsgBox con.Name
End SubPrivate Sub Picture1_Click()
Set con = Picture1
End SubPrivate Sub Picture2_Click()
Set con = Picture2
End SubPrivate Sub Picture3_Click()
Set con = Picture3
End Sub