这个函数怎么写?

解决方案 »

  1.   

    给我个email 我给你发个示例
      

  2.   

    我有个笨方法
    设个公共变量
    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)
      

  3.   

    可用控件数组,这样读取index参数即可得出点击的是哪个picturebox
      

  4.   

    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