- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 插入窗口菜单的CheckedListBox1如何重新移到窗口Panel1中？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127874)
-- 发布时间：2018/11/24 7:18:00
-- 插入窗口菜单的CheckedListBox1如何重新移到窗口Panel1中？
如题，详见附件。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
一、用以下代码可以将窗口Panel1中的CheckedListBox1插入窗口菜单项目中：
Forms("窗口1").Strips("工具栏1").Items("项目1").Items.InsertControl("CheckedListBox1",Forms("窗口1").Controls("CheckedListBox1"),1)
二、想将窗口中CheckedListBox1重新移到窗口Panel1中，用以下代码未成功。提示“CheckedListBox1”控件不存在。
Dim CheckedListBox1 As WinForm.CheckedListBox = Forms("窗口1").Controls("CheckedListBox1")
Forms("窗口1").Controls("Panel1").AddControl(CheckedListBox1 )
三、如何更改代码或者如何做可以达到目的？
-- 发布时间：2018/11/24 9:14:00
--
这个控件插入后有点变味了
Dim CheckedListBox1 As object = Forms("窗口1").Strips("工具栏1").Items("项目1").Items("CheckedListBox1").basecontrol.control
Forms("窗口1").Controls("Panel1").basecontrol.controls.Add(CheckedListBox1 )
-- 发布时间：2018/11/24 21:42:00
--
