- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]tabbar 不能切换默认 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190379)
-- 发布时间：2024/2/3 11:34:00
-- [求助]tabbar 不能切换默认
大师好！麻烦协助下！
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编辑过]
-- 发布时间：2024/2/3 11:39:00
--
没看到有tabbar啊，切换默认指什么
-- 发布时间：2024/2/3 12:06:00
--
我刚上传了图片，就是 直接放在
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
多谢您
-- 发布时间：2024/2/3 13:39:00
--
With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") \'增加订单成功提示框
.AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","否","default.htm").Attribute="........" 这里不要换行
-- 发布时间：2024/2/4 9:27:00
--
就是本来 不换行 实现不了 跳转，然后才 换行去试，也不行的！ 您 微信多少，我加下您微信，适当的支付些费用，帮处理下，谢谢
-- 发布时间：2024/2/4 9:42:00
--
只能按下面的方法使用：
此主题相关图片如下：1.png
因为点击按钮后会进入【default.htm】页面，其它页面的代码是不会起作用的，进入【default.htm】页面会执行下面代码，效果一样的
此主题相关图片如下：2.png
-- 发布时间：2024/2/4 9:56:00
--
以下是引用有点蓝在2024/2/4 9:42:00的发言：
只能按下面的方法使用：
此主题相关图片如下：2.png
只能按下面的方法使用：
这样的 设计很不合理，比如我 访问 default.htm 时，默认是 PAGE1 ,但我在 page3 页面里操作时，操作后，我就没法直接返回到 page3 了！这样的 框架 没法用呀，除非有更好的解决方案 ！
此主题相关图片如下：1.png
此主题相关图片如下：1.png因为点击按钮后会进入【default.htm】页面，其它页面的代码是不会起作用的，进入【default.htm】页面会执行下面代码，效果一样的
此主题相关图片如下：2.png-- 发布时间：2024/2/4 10:10:00
--
可以给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")
-- 发布时间：2024/2/4 10:42:00
--
我自己试试，非常感谢！