| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3553 人关注过本帖
标题:批量插入barcode 控件并设置LINKCELL 属性和大小 ???
只看楼主 加入收藏
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
结帖率:66.67%
收藏
已结贴  问题点数:20 回复次数:8 
批量插入barcode 控件并设置LINKCELL 属性和大小 ???
我想用 barcode 控件生成条形码,但需要一个个地插入并设置LINKCELL 属性和调整大小, 不知是否可以批量处理?
搜索更多相关主题的帖子: 批量 插入 控件 属性 大小 
2018-04-20 21:06
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:10 
第一个按钮是初始化【控件必须建成控件数组】
Private Sub Command1_Click()
BarCodeCtrl1(0).Style = 7          '标准code_128
BarCodeCtrl1(0).LineWeight = 1     '线宽
BarCodeCtrl1(0).Direction = 0      '方向
BarCodeCtrl1(0).Value = 1234567890 '条码数字
BarCodeCtrl1(0).Width = 2000       '条码宽度
BarCodeCtrl1(0).Height = 1000      '条码高度
BarCodeCtrl1(0).Top = 100
End Sub
,第二个按钮是复制第一个控件【只复制了10个】
Private Sub Command2_Click()
For i = 1 To 10
Load BarCodeCtrl1(i)            '生成控件
BarCodeCtrl1(i).Value = 98765000 + i   '条码数字
BarCodeCtrl1(i).Top = 1100 + 1000 * i '生成控件位置
BarCodeCtrl1(i).Visible = True       '显示新生成控件
Next i
End Sub


[此贴子已经被作者于2018-4-21 20:32编辑过]

2018-04-21 20:28
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
收藏
得分:0 
以下是引用wds1在2018-4-21 20:28:26的发言:

第一个按钮是初始化【控件必须建成控件数组】
Private Sub Command1_Click()
BarCodeCtrl1(0).Style = 7          '标准code_128
BarCodeCtrl1(0).LineWeight = 1     '线宽
BarCodeCtrl1(0).Direction = 0      '方向
BarCodeCtrl1(0).Value = 1234567890 '条码数字
BarCodeCtrl1(0).Width = 2000       '条码宽度
BarCodeCtrl1(0).Height = 1000      '条码高度
BarCodeCtrl1(0).Top = 100
End Sub
,第二个按钮是复制第一个控件【只复制了10个】
Private Sub Command2_Click()
For i = 1 To 10
Load BarCodeCtrl1(i)            '生成控件
BarCodeCtrl1(i).Value = 98765000 + i   '条码数字
BarCodeCtrl1(i).Top = 1100 + 1000 * i '生成控件位置

BarCodeCtrl1(i).Visible = True       '显示新生成控件
Next i
End Sub




谢谢大神关注回复!

本人对数组不是很了解。以下代码不是很明白,还请指教:

控件必须建成控件数组----具体如何操作?
BarCodeCtrl1(0),BarCodeCtrl1(i) ----代表什么意思?
BarCodeCtrl1(i).Value = 98765000 + i   ----代表什么意思? 我想每个值需与单元格数据连接

候复,感谢!!

[此贴子已经被作者于2018-4-22 10:45编辑过]

2018-04-22 10:43
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:10 
正常你放一个条码控件,名称为BarCodeCtrl1,这时他只是普通的一个控件,它的index是空的,你应用时就用他的名字以及属性。

如果你复制,再粘贴会提示你是否创建数组控件,如果是那么原来的控件名称不变,但是它的index就会变为0,新粘贴的名称与原控件相同,他的index为1,之后类似。
不过这时候,你在使用第一个控件时,名称就变为元原来BarCodeCtrl1(0),之后的依次类推。
当然,你放完了第一个控件后,直接把index写成0,那么他也就变为数组控件,引用名称就必须是BarCodeCtrl1(0)

BarCodeCtrl1(0):是一个BarCodeCtrl1控件,它的index=0,不过他是排在第一个的
BarCodeCtrl1(i):是一个BarCodeCtrl1控件,他们的index=1,2,3,...n。么一个不同的index相当于一个独立控件。
          通过index你能用循环变量控制每个空间的属性。
BarCodeCtrl1(i).Value = 98765000 + i:是条码控件的条码序号【98765000】是你要产生的条码序号,你可以改为任意数字,i控制你要连续产生的数量
         假如i=1 to 10,那么产生的条码为:98765001、98765002、98765004、...\098765009、98765010

2018-04-22 12:40
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
收藏
得分:0 
以下是引用wds1在2018-4-22 12:40:04的发言:

正常你放一个条码控件,名称为BarCodeCtrl1,这时他只是普通的一个控件,它的index是空的,你应用时就用他的名字以及属性。

如果你复制,再粘贴会提示你是否创建数组控件,如果是那么原来的控件名称不变,但是它的index就会变为0,新粘贴的名称与原控件相同,他的index为1,之后类似。
不过这时候,你在使用第一个控件时,名称就变为元原来BarCodeCtrl1(0),之后的依次类推。
当然,你放完了第一个控件后,直接把index写成0,那么他也就变为数组控件,引用名称就必须是BarCodeCtrl1(0)

BarCodeCtrl1(0):是一个BarCodeCtrl1控件,它的index=0,不过他是排在第一个的
BarCodeCtrl1(i):是一个BarCodeCtrl1控件,他们的index=1,2,3,...n。么一个不同的index相当于一个独立控件。
          通过index你能用循环变量控制每个空间的属性。
BarCodeCtrl1(i).Value = 98765000 + i:是条码控件的条码序号【98765000】是你要产生的条码序号,你可以改为任意数字,i控制你要连续产生的数量
         假如i=1 to 10,那么产生的条码为:98765001、98765002、98765004、...\098765009、98765010



见识了!

先试试,再研究下,感谢!
2018-04-22 17:41
caome
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-4-23
收藏
得分:0 
2018-04-23 08:58
caome
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-4-23
收藏
得分:0 
在研究一下谢谢
2018-04-23 08:59
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
收藏
得分:0 
以下是引用wds1在2018-4-21 20:28:26的发言:

第一个按钮是初始化【控件必须建成控件数组】
Private Sub Command1_Click()
BarCodeCtrl1(0).Style = 7          '标准code_128
BarCodeCtrl1(0).LineWeight = 1     '线宽
BarCodeCtrl1(0).Direction = 0      '方向
BarCodeCtrl1(0).Value = 1234567890 '条码数字
BarCodeCtrl1(0).Width = 2000       '条码宽度
BarCodeCtrl1(0).Height = 1000      '条码高度
BarCodeCtrl1(0).Top = 100
End Sub
,第二个按钮是复制第一个控件【只复制了10个】
Private Sub Command2_Click()
For i = 1 To 10
Load BarCodeCtrl1(i)            '生成控件
BarCodeCtrl1(i).Value = 98765000 + i   '条码数字
BarCodeCtrl1(i).Top = 1100 + 1000 * i '生成控件位置
BarCodeCtrl1(i).Visible = True       '显示新生成控件
Next i
End Sub


自已试了一下,这样的确可以做到批量插入。但位置只可以纵向或橫向增加,我有上千个条码要插入,想放在A4纸大小打印出来,一页满后,自动插入下一页并打印,不知怎样才能实现? 求大神回复,谢谢。
2018-04-23 19:14
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
收藏
得分:0 
==......
2018-04-24 21:57
快速回复:批量插入barcode 控件并设置LINKCELL 属性和大小 ???
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.072290 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved