[原创]窗口中二维码取数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]窗口中二维码取数据问题

共有4522人关注过本帖树形打印复制链接主题：[原创]窗口中二维码取数据问题

sysckj

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）Dim bar As WinForm.BarCode = e.For... 发帖心情

Post By：2017/7/17 13:59:00 [显示全部帖子]

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

sysckj

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）dim d as date = "2017-01-01 10:10:... 发帖心情

Post By：2017/7/17 14:36:00 [显示全部帖子]

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

sysckj

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）bar.Text = "1234" & vbcrlf &am... 发帖心情

Post By：2017/7/17 15:49: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)

bar.Code = "*" & str

bar.Text = str

说明文本是读的这个数字，代码应该加在哪里啊

sysckj

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）Dim bar As WinForm.BarCode = e.For... 发帖心情

Post By：2017/7/17 16:52: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)

bar.Code = "*" & str

bar.Text = str.substring(0,12) & vbcrlf & vbcrlf & str.SubString(24, 12) & vbcrlf & str.SubString(25)

我改成报错：索引和长度必须引用该字符串内的位置。

参数名: length

我要前面两行打印12个数字，第三行打印11个数字

sysckj

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）bar.Text = str.substring(0,12) &am... 发帖心情

Post By：2017/7/17 17:03:00 [显示全部帖子]

第一行和第二行之间怎么会出现一个空行呢

sysckj

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）以下是引用sysckj在2017/7/17 10:28:... 发帖心情

Post By：2017/7/18 10:39: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)

bar.Code = "*" & str

bar.Text = str.substring(0,12) & vbcrlf & str.SubString(12, 12) & vbcrlf & str.SubString(24)

我窗口里面已经拉宽复制了两份，另外两个是BarCode2和BarCode3，其他的内容都是绑定字段的，这个怎么加到里面去呢，我不知道复制代码到哪个位置

sysckj

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：125 积分：1551 威望：0 精华：0 注册：2014/6/9 14:21:00

回复：（有点甜）Dim cnames() As String = {"BarCode... 发帖心情

Post By：2017/7/18 14:23:00 [显示全部帖子]

Dim cnames() As String = {"BarCode1", "BarCode2", "BarCode3"}
for each cname as string in cnames
    Dim bar As WinForm.BarCode = e.Form.Controls(cname)
    Dim str As String = ""
    For i As Integer = 1 To 35
        str &= Rand.Next(10)
    Next
    bar.Code = "*" & str
    bar.Text = str.substring(0,12) & vbcrlf & str.SubString(12, 12) & vbcrlf & str.SubString(24)
Next