- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 在窗口添加第三方控件的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107987)
-- 发布时间：2017/10/13 17:28:00
-- 在窗口添加第三方控件的问题
帮助文档中的事例代码是这样的
Dim ct As New
Windows.Forms.RichTextBox
ct.Dock =
Windows.Forms.DockStyle.Fill
e.Form.Panel.Controls.Add(ct)
如果我只是要提添加狐表中建好的窗口1 到 Panel 去应该怎么写呢? 谢谢
-- 发布时间：2017/10/13 17:36:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104923&skin=0
-- 发布时间：2017/10/13 18:04:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104923&skin=0
下面这段代码是在全局变量中的, 这样好像无法实现对么?
Dim PB As WinForm.Panel = Forms("Main").Controls("Panel10")
Dim Name As String = "日历窗口"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
此主题相关图片如下：2.png
-- 发布时间：2017/10/13 18:07:00
--
日历窗口 要改成独立窗口
-- 发布时间：2017/10/13 18:38:00
--
日历窗口 要改成独立窗口
我改了没有实现
下面这段代码是在全局变量中的, 这样好像无法实现对么?
Dim PB As WinForm.Panel = Forms("Main").Controls("Panel10")
Dim Name As String = "日历窗口"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
PB.BaseControl.Controls.add(Forms(Name).BaseForm
-- 发布时间：2017/10/13 20:15:00
--
放到自定义函数中，然后调用。