移动开发TabBar怎么固定在页面时，不占用页面空间呢？操作中，会产生新的空白页面空间，求解 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

移动开发TabBar怎么固定在页面时，不占用页面空间呢？操作中，会产生新的空白页面空间，求解

代码如下：

Dim wb As New weui

Select Case e.Path

Case "xjrjzjf.htm"

With wb.AddTabBar("", "tb1", 0)

.AddPage("page1","微信","./images/button.png")

.AddPage("page2","通讯录","./images/msg.png")

.AddPage("page3","发现","./images/article.png")

.AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")

End With

If e.PostValues.Count = 0 Then

wb.AddPageTitle("","ph1","博融现金日记账")

wb.AddForm("","form1","xjrjzjf.htm")

With wb.AddInputGroup("form1","ipg1","现金日记账【收入记账】")

.AddInput("日期","日期","date")

.AddSelect("凭证种类","凭证种类","|fa piao|收据|收条|小piao|物流单|快递单|其它单据")

.AddInput("凭证号数","凭证号数","Text")

.AddInput("摘要","内容摘要","Text")

With .AddInput("借方金额","收入金额","number")

.Step = "0.01"

.Attribute = ""

End With

.AddSelect("借方","收入人员","|肖妍|费泓纶|田景兰")

With wb.AddInputGroup("form1","ipg22","文件上传")

With .AddUploader("up1","图片",True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传

End With

[此贴子已经被作者于2019/10/12 8:50:10编辑过]

主题：移动开发TabBar怎么固定在页面时，不占用页面空间呢？操作中，会产生新的空白页面空间，求解