以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]窗口中二维码取数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103743)
--  作者：sysckj
--  发布时间：2017/7/16 9:20:00
--  [原创]窗口中二维码取数据问题
现在窗口中增加了一个标签窗口，设计标签窗口，在其中增加了一个BarCode控件,条码类型设置为QRCode，现在需要这个二维码生成35位数字，数字前面带一个*符号，数字全部随机生成，如何实现
--  作者：有点甜
--  发布时间：2017/7/16 10:54:00
--  
Dim str As String = "*"
For i As Integer = 1 To 35
    str &= Rand.Next(10)
Next
msgbox(str)
--  作者：sysckj
--  发布时间：2017/7/16 14:50:00
--  
写入到BarCode控件事件里吗？写了没发生变化啊
--  作者：sysckj
--  发布时间：2017/7/16 14:59:00
--  
写入到BarCode控件事件里吗？写了没发生变化啊
--  作者：sysckj
--  发布时间：2017/7/16 16:00:00
--  回复：（有点甜）Dim str As String = "*"For i As In...
写入到BarCode控件事件里吗？写了没发生变化啊
--  作者：有点甜
--  发布时间：2017/7/16 16:30:00
--  
以下是引用sysckj在2017/7/16 16:00:00的发言：
写入到BarCode控件事件里吗？写了没发生变化啊

 

AfterLoad事件，写代码

 

Dim bar As WinForm.BarCode = e.Form.Controls("BarCode1")
Dim str As String = "*"
For i As Integer = 1 To 35
    str &= Rand.Next(10)
Next
bar.Code = str
--  作者：sysckj
--  发布时间：2017/7/16 17:00:00
--  回复：（有点甜）以下是引用sysckj在2017/7/16 16:00:...
说明文本该如何调用这个啊，调用过程中要去掉*号
--  作者：有点甜
--  发布时间：2017/7/16 17:48:00
--  

Dim bar As WinForm.BarCode = e.Form.Controls("BarCode1")
Dim str As String = "*"
For i As Integer = 1 To 35
    str &= Rand.Next(10)
Next
bar.Code = str

bar.Text = str
--  作者：sysckj
--  发布时间：2017/7/17 10:28:00
--  回复：（有点甜）Dim bar As WinForm.BarCode = e.For...
这个事件应该加在哪里啊，说明文本内容显示不出来啊，还有请教一下，一排打印三个应该怎么设置呢
--  作者：有点甜
--  发布时间：2017/7/17 11:00:00
--  
以下是引用sysckj在2017/7/17 10:28:00的发言：
这个事件应该加在哪里啊，说明文本内容显示不出来啊，还有请教一下，一排打印三个应该怎么设置呢

 

写在按钮或者afterLoad事件。我测试没问题。

 

要打印多少个，那就放入多少个控件，代码拷贝三份，修改控件名。