请问用VB设置附件所示的条码打印程序，怎样做啊？谢谢大家！

如果你知道 编码 与 条形码的 换算关系，就自己 用 line 命令带每一根线
如果不知道 换算关系 ，那你去找 控件吧。

使用微软的 BarCodectrl。 BarCode1.Value = Trim(Text1.Text)。

不明；qq：274672776

您好，用了bcode9.ocx,控件，试了这个控件的所有属性和方法，没有找到控件输出条码的方法，帮忙指导下怎么用，谢谢

Dim b As New BarCodeCtrl


Private Sub Command1_Click()
b.BackColor = RGB(255, 0, 0)
b.LineWeight = 100
b.Style = 1
b.SubStyle = 1
b.Direction = 1
b.Value = 12345
End Sub