批量插入barcode 控件并设置LINKCELL 属性和大小 ???
我想用 barcode 控件生成条形码,但需要一个个地插入并设置LINKCELL 属性和调整大小, 不知是否可以批量处理?
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编辑过]