以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 动态控件PictureBox 的 Click事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101220)
--  作者：jackyfashion
--  发布时间：2017/5/26 21:15:00
--  求助 动态控件PictureBox 的 Click事件

老师:

              您好!

PictureBox 的click 没反应

 

If e.Sender.Name Like "PictureBox*" Then
    Dim idx As Integer = e.Sender.Name.Replace("PictureBox", "")
    Tables("表A").Position = idx
    msgbox(idx)
End If

 

请老师指教!

          谢谢!!!
--  作者：有点蓝
--  发布时间：2017/5/26 21:21:00
--  
测试没有问题呀

创建控件时的名称可能不是代码中的PictureBox
--  作者：wyz20130512
--  发布时间：2017/5/26 21:31:00
--  
If e.Sender.Name Like "PictureBox*" Then
msgbox(1)
    Dim idx As Integer = e.Sender.Name.Replace("PictureBox", "")
    Tables("表A").Position = idx
    msgbox(idx)
End If
若没有弹出对话框“1”，说明条件不满足。
--  作者：jackyfashion
--  发布时间：2017/5/26 21:43:00
--  
是没有弹出1.谢谢!
--  作者：jackyfashion
--  发布时间：2017/5/26 22:20:00
--  

谢谢!

Dim pic As WinForm.PictureBox
    pic = e.Form.CreateControl("Pic_" & i, ControlTypeEnum.PictureBox)

改成

   pic = e.Form.CreateControl("PictureBox" & i, ControlTypeEnum.PictureBox)

问题解决了.

谢谢!