共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]tabbar 不能切换默认
1楼
zswushi 发表于：2024/2/3 11:34:00大师好！麻烦协助下！
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编辑过]
2楼
有点蓝 发表于：2024/2/3 11:39:00没看到有tabbar啊，切换默认指什么
3楼
zswushi 发表于：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
多谢您
4楼
有点蓝 发表于：2024/2/3 13:39:00 With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") '增加订单成功提示框
.AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","否","default.htm").Attribute="........" 这里不要换行
5楼
zswushi 发表于：2024/2/4 9:27:00就是本来 不换行 实现不了 跳转，然后才 换行去试，也不行的！ 您 微信多少，我加下您微信，适当的支付些费用，帮处理下，谢谢
6楼
有点蓝 发表于：2024/2/4 9:42:00只能按下面的方法使用：
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：1.png因为点击按钮后会进入【default.htm】页面，其它页面的代码是不会起作用的，进入【default.htm】页面会执行下面代码，效果一样的
此主题相关图片如下：2.png7楼
zswushi 发表于：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.png8楼
有点蓝 发表于：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")
9楼
zswushi 发表于：2024/2/4 10:42:00我自己试试，非常感谢！
共9 条记录, 每页显示 10 条, 页签:
[1]