点首页，不能返回指定的页面default.htm
wb = new weui
If e.PostValues("扫描结果")=Nothing
wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
wb.AddForm("","form1","scan1")
With wb.AddInputGroup("form1","ipg1","扫描")
.AddInput("扫描结果","扫描结果","Text")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn0", "首页","/default.htm")
.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
.Add("btn1", "确定")
End With
wb.AppendHTML("<script src='./lib/scan1.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
e.Handled = True '通知系统异步函数执行完毕,可以关闭信道
End If
此主题相关图片如下：无标题.png
[此贴子已经被作者于2018/12/26 19:39:33编辑过]
加好友 
发短信
Post By：2018/12/26 19:33:00 [显示全部帖子]
