Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","test")
wb.AppendHTML("<script src='./lib/html5-qrcode.min.js'></script>",True) '引入脚本文件
With wb.AddInputGroup("form1","ipg1","销售统计")
.AddInput("cp","产品","text")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("scan", "扫码", "button").Attribute= "" '调用开始扫码的js函数
.Add("btn2", "统计", "button").Attribute= ""
End With
wb.InsertHTML("<div id=""reader"" width=""300px""></div>")
wb.InsertHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的查询结果
wb.AppendHTML("<script src='./lib/scan.js'></script>") '引入脚本文件
'wb.AppendHTML("<script>let html5QrcodeScanner = new Html5QrcodeScanner('reader', { fps: 10, qrbox: 250 } , true);</script>" ) '引入脚本文件
wb.AppendHTML("<script>const html5QrCode = new Html5Qrcode( ""reader"");</script>" ) '初始化二维码对象,绑定id为"reader"的div控件
e.WriteString(wb.Build)
加好友 
发短信
Post By：2020/10/27 8:01:00 [只看该作者]
此主题相关图片如下：无标题.png