- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] TabControl 动态增加独立窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110334)
-- 发布时间：2017/12/1 9:15:00
-- [求助] TabControl 动态增加独立窗口
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目14.table |
点击按钮，将窗口2 的内容增加在Page2中。
-- 发布时间：2017/12/1 9:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目14.table |
-- 发布时间：2017/12/1 9:56:00
--
有点甜老师，如何做到可以关闭Page2，就像Page2的名称上面有个X，点击可以关闭
2、如何限制重复打开
[此贴子已经被作者于2017/12/1 9:59:50编辑过]
-- 发布时间：2017/12/1 10:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目14.table |
-- 发布时间：2017/12/1 21:50:00
--
在窗口2中增加一个按钮，代码：e.Form.Close
如何在关闭窗口2 的同时将TabControl 的页面也关闭
-- 发布时间：2017/12/1 22:26:00
--
e.Form.Close
If Forms("窗口1").Opened Then
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
tab.TabPages.Delete("窗口2")
End If
-- 发布时间：2018/2/12 14:36:00
--
老师，我想多次增加BOM明细，并且可以让他可以点击“X"关闭，代码应该如何修改。
Dim tb As Table = Tables("BOM总表_Table1")
Dim r As Row = tb.Current
Vars("代码") = r("代码")
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim Name As String = "BOM明细"
If tab.TabPages(name) Is Nothing Then
tab.TabPages.Add(name,name)
Dim pb = tab.BaseControl
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(name)
Else
tab.SelectedPage = tab.TabPages(name)
End If
-- 发布时间：2018/2/12 15:13:00
--
一个窗口只能打开一次，使用一次，不能重复打开。
如果你要生成表，参考
http://www.foxtable.com/webhelp/scr/1919.htm
http://www.foxtable.com/webhelp/scr/1912.htm
[此贴子已经被作者于2018/2/12 15:12:50编辑过]