以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  并列窗口贴子的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128494)

--  作者:zyxhx
--  发布时间:2018/12/8 12:01:00
--  并列窗口贴子的问题
老师您好,那天问的并列窗口问题的贴子现在我看不到了,可不可以不要删除?谢谢!


图片点击可在新窗口打开查看此主题相关图片如下:并列窗口.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/12/8 14:48:30编辑过]

--  作者:有点蓝
--  发布时间:2018/12/8 14:08:00
--  
帖子不会删除的,6号论坛被攻击,丢失了一天的帖子
--  作者:zyxhx
--  发布时间:2018/12/8 14:48:00
--  
请老师把并列窗口实现如图显示的方法及代码再次贴出一下,以备后查,谢谢老师啦!


图片点击可在新窗口打开查看此主题相关图片如下:并列窗口.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2018/12/8 14:58:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96622&skin=0
--  作者:zyxhx
--  发布时间:2018/12/8 19:15:00
--  

设置并列窗口时以下代码应该放在那个事件中:


Dim t As C1Command.C1DockingTab = e.form.panel.parent.parent
t.CanCloseTabs = True
t.CloseBox = 2
AddHandler t.TabPageClosing, AddressOf _TabPageClosing


--  作者:有点甜
--  发布时间:2018/12/9 16:32:00
--  

 

窗口的afterLoad事件。

 

 


--  作者:zyxhx
--  发布时间:2018/12/10 15:45:00
--  

 

Dim t As C1Command.C1DockingTab = e.form.panel.parent.parent

t.CanCloseTabs = True

t.CloseBox = 2

AddHandler t.TabPageClosing, AddressOf _TabPageClosing

 

将以上代码写到窗口的AfterLoad事件后预览时提示运行错误:.NET Framework 版本:2.0.50727.8937
Foxtable 版本:2018.10.9.1
错误所在事件:窗口,物资出库,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。

而在正常使用时不提示错误,是什么原因?

 


--  作者:有点甜
--  发布时间:2018/12/10 16:43:00
--  

预览的时候,看不到效果的。如果不想报错,这样写代码

 

Dim t As C1Command.C1DockingTab = e.form.panel.parent.parent
If t IsNot Nothing Then
    t.CanCloseTabs = True    
    t.CloseBox = 2

    AddHandler t.TabPageClosing, AddressOf _TabPageClosing
End If


--  作者:zyxhx
--  发布时间:2018/12/10 18:13:00
--  
谢谢老师
--  作者:zyxhx
--  发布时间:2018/12/10 19:06:00
--  

老师可以给以下代码加上注释吗?我想加深理解,谢谢!

 

 

Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件
If e.TabPage.Text = "首页" Then
    \' MessageBox.Show("首页窗口不能关闭!")
    e.Cancel = True
Else
    Forms(e.TabPage.Text).Close
    e.cancel = True
End If
End Sub

 

Dim t As C1Command.C1DockingTab = e.form.panel.parent.parent
If t IsNot Nothing Then
    t.CanCloseTabs = True    
    t.CloseBox = 2

    AddHandler t.TabPageClosing, AddressOf _TabPageClosing
End If