- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]控件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195794)
-- 发布时间：2025/3/9 11:34:00
-- [求助]控件
老师好，窗口中有4个”TblCt”的控件，下面代码怎样重新编写。
Dim TblCtl As Windows.Forms.TableLayoutPanel = e.Form.Panel.Controls("TblCtl")
e.Form.Panel.Controls.Remove(TblCtl)
TblCtl.Dispose
-- 发布时间：2025/3/9 20:00:00
--
一个窗口里多个控件不要使用相同的名称，没有办法区分
-- 发布时间：2025/3/9 20:26:00
--
老师，我分别用”TblCt1、TblCt2、TblCt3、TblCt4来做名称的。
下面代码分别写也不行。
Dim TblCtl As Windows.Forms.TableLayoutPanel = e.Form.Panel.Controls("TblCtl") e.Form.Panel.Controls.Remove(TblCt1) TblCtl.Dispose |
[此贴子已经被作者于2025/3/9 20:26:52编辑过]
-- 发布时间：2025/3/9 20:34:00
--
控件是怎么添加的？
-- 发布时间：2025/3/10 1:31:00
--
老师好，关闭窗口报错。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：2025-03-10 01 20 43.png
-- 发布时间：2025/3/10 8:51:00
--
只是定义了控件，根本就没有添加到窗口里，没有必要移除
-- 发布时间：2025/3/10 9:50:00
--
老师，我添加到窗口了，没有把代码写进去，现在移除代码报错。
-- 发布时间：2025/3/10 10:03:00
--
怎么添加的？
-- 发布时间：2025/3/10 10:47:00
--
老师好
For i As Integer = 0 To 7
.Controls.Add(e.Form.Controls("A" & i).BaseControl , 0 , i)
Next
e.Form.Panel.Controls.Add(TblCt)
TblCt.SetColumnSpan(e.Form.Controls("A0").BaseControl,2)
End With
e.Form.ResumeRedraw
-- 发布时间：2025/3/10 10:56:00
--
麻烦发完整代码