以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]定义父容器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109836)
--  作者：blsu33
--  发布时间：2017/11/21 9:20:00
--  [求助]定义父容器

老师，

   如何使用这个父容器，不理解，帮助文档一直都是空，劳烦您给解答下如何有父容器的情况，没有怎么定义一个呢。

使用PageTitle

PageTile用于给页面加上标题。

添加PageTitle的语法是：

AddPageTitle(ParentID, ID, Title, SubTitle)

ParentID 父容器的ID,如果是顶层对象，设置为""即可。
ID PageTitle的ID。
Title 标题。
SubTitle 副标题。

 

 

例如 ：

new1.htm可以显示，为啥new2.htm就显示不出来呢，假如想用定义 new2.htm 这个字符 就是父容器（或者定义一个容器），还要它显示出来（标注颜色的部分代码），如何做？

 

Dim wb As New weui
Select Case e.Path
Case "new1.htm"
        wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")
End Select
    Case "new2.htm"
        wb.AddPageTitle("new2.htm","ph1","FoxUI","为Foxtable用户量身设计")
End Select
e.WriteString(wb.Build)

[此贴子已经被作者于2017/11/21 9:30:43编辑过]
--  作者：有点蓝
--  发布时间：2017/11/21 10:25:00
--  
这是2个网页了，就好像是2个窗口。想想能把A窗口的控件放入B窗口的panel中吗，当然不行了

Dim wb As New weui
Select Case e.Path
    Case "new1.htm"
        wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")
    Case "new2.htm"
        wb.AddPageTitle("","ph1","FoxUI","为Foxtable用户量身设计")
End Select
e.WriteString(wb.Build)
--  作者：blsu33
--  发布时间：2017/11/21 10:34:00
--  

老师，

   我的意思是，下列代码如何能显示出来，如何定义这个父容器

Dim wb As New weui
Select Case e.Path
       Case "new2.htm"
        wb.AddPageTitle("AAA","ph1","FoxUI","为Foxtable用户量身设计")
End Select
e.WriteString(wb.Build)
--  作者：blsu33
--  发布时间：2017/11/21 10:35:00
--  

或者

下列代码 能显示出来，如何处理

Dim wb As New weui
Select Case e.Path
    Case "new2.htm"
        wb.AddPageTitle("new2.htm","ph1","FoxUI","为Foxtable用户量身设计")’这块没有定义这个父容器
End Select
e.WriteString(wb.Build)
--  作者：有点甜
--  发布时间：2017/11/21 10:49:00
--  

父容器是相对来说的，比如下面，先创建了一个form1，然后要在里面加入按钮，就要写父容器form1

 

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列
            .Add("btn1", "按钮")
            .Add("btn4", "按钮", "reset")
            .Add("btn5", "按钮", "", "http://www.foxtable.com") \'单击这个按钮可以打开foxtable主页
        End With
        e.WriteString(wb.Build) \'生成网页
End Select