H5 嵌入条码和二维码生成

效果动画演示

 

 实现步骤

第一步：创建窗口“H5”

第二步：找到对应的H5处理页面（自己可以自行开发，或开发打印功能都可以的）

 Html5页面对应的页面代码如下：

第三步：在窗体打开的时候，加载 Web浏览器 对应的 条码生成h5

 

Dim h5Path,codeValue
h5Path="file:///"&Sys.ProjectDir &"\H5CreateCode\index.html"
codeValue=文本框0.Text
If Len(codeValue)<=0 then
    Exit Sub
End If
h5Path=h5Path&"?code="&codeValue
Web浏览器0.Url=h5Path
Web浏览器0.print()

 第四步：生成按钮的事件代码

Dim h5Path,codeValue
h5Path="file:///"&Sys.ProjectDir &"\H5CreateCode\index.html"
codeValue=文本框0.Text
If Len(codeValue)<=0 then
    MsgBox "请输入要生成的条码内容！"
    Exit Sub
End If
h5Path=h5Path&"?code="&codeValue
Web浏览器0.Url=h5Path
Web浏览器0.print()