Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]控件


  共有103人关注过本帖树形打印复制链接

主题：[求助]控件
帅哥，在线噢！
苏州老街
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：801 积分：5112 威望：0 精华：0 注册：2016/10/19 16:45:00 		[求助]控件  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/9 20:00:00 [只看该作者]

一个窗口里多个控件不要使用相同的名称，没有办法区分

 回到顶部
帅哥，在线噢！
苏州老街
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：801 积分：5112 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/9 20:34:00 [只看该作者]

控件是怎么添加的？

 回到顶部
帅哥，在线噢！
苏州老街
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：801 积分：5112 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/3/10 1:31:00 [只看该作者]

老师好，关闭窗口报错。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


图片点击可在新窗口打开查看此主题相关图片如下：2025-03-10 01 20 43.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/10 8:51:00 [只看该作者]

只是定义了控件，根本就没有添加到窗口里，没有必要移除

 回到顶部
帅哥，在线噢！
苏州老街
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：801 积分：5112 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/3/10 9:50:00 [只看该作者]

老师，我添加到窗口了，没有把代码写进去，现在移除代码报错。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/10 10:03:00 [只看该作者]

怎么添加的？

 回到顶部
帅哥，在线噢！
苏州老街
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：801 积分：5112 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112701 积分：573844 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/10 10:56:00 [只看该作者]

麻烦发完整代码

 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询