Foxtable(狐表)用户栏目专家坐堂 → 如何在二维码中加入Tab 控制符


  共有3456人关注过本帖树形打印复制链接

主题:如何在二维码中加入Tab 控制符

帅哥哟,离线,有人找我吗?
lanbor
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:433 积分:4351 威望:0 精华:0 注册:2017/3/20 21:08:00
如何在二维码中加入Tab 控制符  发帖心情 Post By:2020/3/9 8:48:00 [只看该作者]

我制作一个二维码,里面有多栏位
如何在二维码的栏位中加入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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/9 10:21:00 [只看该作者]

txt1.Value + vbtab'+ "@"

 回到顶部