以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在二维码中加入Tab 控制符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147065)

--  作者:lanbor
--  发布时间:2020/3/9 8:48:00
--  如何在二维码中加入Tab 控制符
我制作一个二维码,里面有多栏位
如何在二维码的栏位中加入Tab 控制符?
如下样本
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim s1 As String 
If txt1.Value IsNot Nothing Then s1 += txt1.Value + vbcrlf    \'+ "@"
If txt2.Value IsNot Nothing Then s1 += txt2.Value + vbcrlf    \' + "@"
If txt3.Value IsNot Nothing Then s1 += txt3.Value + vbcrlf    \' + "@"
 s1 += Date.Today
lab1.Code = s1
lab1.SaveImage("D:\\syt_SCM\\Bar-cord\\" & txt1.Value & txt2.Value  & ".jpg")

请教:如何将字符串中的 vbcrlf 回车符换成代表 tab 的控制符,
我的目的是希望:
在扫描二维码后,软件能自动在表格列中,每列放一个值;
[此贴子已经被作者于2020/3/9 8:49:01编辑过]

--  作者:有点蓝
--  发布时间:2020/3/9 10:21:00
--  
txt1.Value + vbtab\'+ "@"