[求助]tabbar 不能切换默认 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大师好！麻烦协助下！

Case "addnewkh.htm" '新增客户信息

此主题相关图片如下：tabbar.png

wb.AddForm("","khform1","handlekh.htm") '指定接收表单数据的的页面为handlekh.htm

With wb.AddInputGroup("khform1","ipg1","新增客户")

.AddInput("客户名称","客户名称","text")

.AddInput("联系手机","联系手机","text")

.AddInput("联系地址","联系地址","text")

End With

With wb.AddButtonGroup("khform1","btg1",False)

.Add("btn1", "确定", "button").Attribute= ""

.Add("btn2", "取消", "button").Attribute= ""

End With

With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") '增加订单成功提示框

.AddButton("btnYes","是").Attribute = ""

.AddButton("btnNo","否","default.htm")

.Attribute="""

'wb.InsertHTML("<script>document.getElementById('page3_btn').click();</script>")

'wb.AppendHTML("<script>hide('page2');show('page3')</script>")

End With

[此贴子已经被作者于2024/2/3 12:02:04编辑过]

没看到有tabbar啊，切换默认指什么

我刚上传了图片，就是直接放在

Case "default.htm" '首页

Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

'增加三个页面,一个按钮

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

wb.AppendHTML("<script>hide('page1');show('page3')</script>")

这里是正常的，

但放从 dialog 里边的否按钮里，无论如何都不能打开默认的 page3 ；

Case "addnewkh.htm" '新增客户信息

wb.AddForm("","khform1","handlekh.htm") '指定接收表单数据的的页面为handlekh.htm

With wb.AddInputGroup("khform1","ipg1","新增客户")

.AddInput("客户名称","客户名称","text")

.AddInput("联系手机","联系手机","text")

.AddInput("联系地址","联系地址","text")

End With

With wb.AddButtonGroup("khform1","btg1",False)

.Add("btn1", "确定", "button").Attribute= ""

.Add("btn2", "取消", "button").Attribute= ""

End With

With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") '增加订单成功提示框

.AddButton("btnYes","是").Attribute = ""

.AddButton("btnNo","否","default.htm")

.Attribute="""

'wb.InsertHTML("<script>document.getElementById('page3_btn').click();</script>")

'wb.AppendHTML("<script>hide('page2');show('page3')</script>")

End With

多谢您

With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") '增加订单成功提示框

.AddButton("btnYes","是").Attribute = ""

.AddButton("btnNo","否","default.htm").Attribute="........" 这里不要换行

就是本来不换行实现不了跳转，然后才换行去试，也不行的！您微信多少，我加下您微信，适当的支付些费用，帮处理下，谢谢

只能按下面的方法使用：

此主题相关图片如下：1.png

因为点击按钮后会进入【default.htm】页面，其它页面的代码是不会起作用的，进入【default.htm】页面会执行下面代码，效果一样的

此主题相关图片如下：2.png

以下是引用有点蓝在2024/2/4 9:42:00的发言：
只能按下面的方法使用：

这样的设计很不合理，比如我访问 default.htm 时，默认是 PAGE1 ,但我在 page3 页面里操作时，操作后，我就没法直接返回到 page3 了！这样的框架没法用呀，除非有更好的解决方案！
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

因为点击按钮后会进入【default.htm】页面，其它页面的代码是不会起作用的，进入【default.htm】页面会执行下面代码，效果一样的

此主题相关图片如下：2.png

可以给default.htm加个get参数，指定进入页面后需要默认打开的page。

default.htm的代码

……

if e.GetValues.ContainsKey("p") then ‘如果有get参数就跳转到需要的页面

wb.AppendHTML("<script>hide('page1');show('" & e.GetValues("p") & "')</script>")

end if

然后addnewkh.htm的代码

.AddButton("btnNo","否","default.htm").Attribute="........"

改为

.AddButton("btnNo","否","default.htm?p=page3")

我自己试试，非常感谢！

主题：[求助]tabbar 不能切换默认