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

不对啊，我加到按钮里面也显示不出来啊，而且预览看到的数字和扫出来的数字不一样，我是要这个二维码下面打出来的说明内容和二维码扫描出来的内容一样，打印三个加三个控件打？把我设置的窗口拉宽再加控件和其他内容吗？还有其他办法可以实现吗？

代码没问题，不会做，请上传实例说明。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:二维码1.zip

来起了，我理解错了，只要后面那个代码就可以了。我再研究下，才接触，谢谢啦，甜老师

说明文本要去除*号，后面还应该怎么写代码呢

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

2017-01-01 10:10:10改成2017.01.01怎么写呢

dim d as date = "2017-01-01 10:10:10"
Dim str As String = format(d, "yyyy.MM.dd")
msgbox(str)

说明文本太长了打印出来显示不全，可以设置自动换行吗

bar.Text = "1234" & vbcrlf & "5678" & vbcrlf "aaaa"