主题：[原创]窗口中二维码取数据问题

现在窗口中增加了一个标签窗口，设计标签窗口，在其中增加了一个BarCode控件,条码类型设置为QRCode，现在需要这个二维码生成35位数字，数字前面带一个*符号，数字全部随机生成，如何实现

Dim str As String = "*"
For i As Integer = 1 To 35
    str &= Rand.Next(10)
Next
msgbox(str)

写入到BarCode控件事件里吗？写了没发生变化啊

写入到BarCode控件事件里吗？写了没发生变化啊

写入到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

说明文本该如何调用这个啊，调用过程中要去掉*号

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

这个事件应该加在哪里啊，说明文本内容显示不出来啊，还有请教一下，一排打印三个应该怎么设置呢

 

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

 

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