| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助 容器中的控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102549) |
|
| -- 作者：jackyfashion -- 发布时间：2017/6/22 10:19:00 -- 求助 容器中的控件 老师: 您好! 我的窗口有两个panel 两个容器都有加入PictureBox控件 加什么代码可以分清点击的是那个容器的PictureBox 请指教!!! 谢谢!!! Dim pan1 As WinForm.Panel = e.Form.Controls("panel1") Dimpan2 As WinForm.Panel = e.Form.Controls("panel2") If e.Sender.Name Like "PictureBox*" Then Dim idx As Integer = e.Sender.Name.Replace("PictureBox", "") Tables("表A").Position = idx Dim r As Integer = idx End If If e.Sender.Name Like "PictureBox*" Then Dim idx As Integer = e.Sender.Name.Replace("PictureBox", "") Tables("表B").Position = idx Dim r As Integer = idx End If |
|
| -- 作者：有点色 -- 发布时间：2017/6/22 10:44:00 -- 不是可以直接判断控件名？
If e.Sender.Name = "PictureBox1" Then |
|
| -- 作者：有点色 -- 发布时间：2017/6/22 10:45:00 -- 如果要根据panel1、2判断也可以
If e.Sender.Parent.Name = "panel1" Then
|
|
| -- 作者：jackyfashion -- 发布时间：2017/6/22 11:28:00 -- 谢谢老师 |
|
| -- 作者：jackyfashion -- 发布时间：2017/6/22 12:02:00 -- 老师: 您好! 我的控件位于SplitContainer(分区面板)的一个页面中 e.Form.Controls("SplitContainer1").Panel2
[此贴子已经被作者于2017/6/22 12:02:07编辑过]
|
|
| -- 作者：有点色 -- 发布时间：2017/6/22 12:42:00 -- 弹出值看看
msgbox(e.sender.parent.name) msgbox(e.sender.parent.parent.name) |
|
| -- 作者：jackyfashion -- 发布时间：2017/6/22 13:47:00 -- 谢谢老师!!! OK!
|