数控养蜂法春繁:条形码控件

条形码控件

转贴文章一篇，原文发表于《电脑商情报》，文中虽然介绍是在Word2000中制作条形码的方法，但也可以用于Excel中。
用Word 2000制作条形码    作者：周进
　　现在条形码的应用范围非常广泛，在各种商品外包装上或者出版物封面中都可以看到它的踪影。但令人奇怪的是，
在微软公司大名鼎鼎的文字处理软件Word 2000中，微软公司却将制作条形码这项非常有用的功能隐藏在一个不易被人发觉的地方，
导致许多朋友都以为Word 2000并不具有制作条形码的功能。所以就会看到有用户利用Word 2000的绘图功能来制作条形码的例子。
一、Word 2000中条形码制作功能的藏身之处
　　在Word 2000常用工具栏中和菜单中，你找不到制作条形码的按钮或菜单，要想制作条形码，用户必须按照如下的操作方法进行操作。
　1、选择“视图”菜单下“工具栏”子菜单中的“控件工具箱”命令，在屏幕中显示“控件工具箱”工具栏。如图1所示。
　2、在“控件工具箱”工具栏上单击“其它控件”按钮，在弹出的“其它控件”下拉列表中向下拖动滚动条，找到一个名为
　　“Microsoft Barcode Control 9.0”的控件，用鼠标单击此控件。如图2所示。
　3、这时在Word 2000编辑区中就会出现一个系统默认的条形码。如图3所示。
二、编辑条形码
　　在Word 2000中，条形码控件(“Microsoft Barcode Control 9.0”)的功能相当强大，用户通过设置可以制作出完全符合用户实际
使用需要的各种类型的条形码控。下面就向大家介绍具体的操作方法。
　1．选择条形码类型
　　　在我们制作条形码时，首先必须确定条形码类型。在Word 2000中系统提供了11种条形码类型供用户选择。
　它们分别是：UPC-A、UPC-E、JAN-13、JAN-8、Casecode、NW-7、Code-39、Code-128、US Postnet、US Postal FIM和JP Post。
　Word 2000系统缺省显示的是JAN-13条形码类型。
　在Word 2000中选择条形类型的方法是：
　　(1)在条形码图案上单击鼠标右键，从弹出的快捷菜单中选择“Microsoft Barcode Control 9.0对象”子菜单中的“属性”命令，
　打开“Microsoft Barcode Control 9.0 属性”对话框。如图4所示。
　　(2)单击“样式”下拉箭头，在样式下拉列表中显示出Word 2000所支持的全部条形码类型名称。用户可以从中选择一种合适的条形码类型。
　例如目前在杂志、书籍中普遍使用的条形码类型为JAN-13。
　JAN-13 条形码一般是由 2 位数的国码、 5 位数的货物码、 5 位数的货物项目码，再加上校验位所构成的。
　2、指定条形码编号
　　　当条形码类型确定后，接下来就需要指定所产生的条形码符号的编号。
　指定条形码编号的方法是：
　　(1)选中需要为其指定编号的条形码，单击“其它控件”工具栏上的“属性”按钮，
　打开条形码“属性”对话框。如图5所示。
　　(2)在属性名称栏中选中“Value”属性，然后在“Value”名称右侧输入条形码编号。
　　(3)单击“关闭”按钮，将“属性”对话框关闭。
　　经过上述操作后，细心的朋友可能注意到了，在Word 编辑区中显示的条形码还是老样子，并没有发生变化。
不要着急，这是因为你目前还处于控件设计模式当中，这时只要单击“其它控件”工具栏上的“退出设计模式”按钮
(这是一个退出\进入设计模式的切换按钮，处于设计模式时，该按钮为按下状态，退出设计模式后，该按钮为弹起状态)，
怎么样，编辑区中的条形码就刷新为正确的式样了。如图6所示。

二、高级使用技巧
　　在Word 2000中用户除了可以选择条形码的类型、设置条形码编号外，还可以指定是否要验证数据的有效性，
并且还能够非常方便地设置条形码符号的颜色、条形码的显示方向、条形码符号的的线条宽度等。
　1、验证数据的有效性
　　　为了防止因为用户输入错误数据，从而导致产生无效的条形码符号，用户可以在条形码控件属性中指定对数据进行
　有效性验证。具体设置方法是：在条形码图案上单击鼠标右键，从弹出的快捷菜单中选择“Microsoft Barcode Control 9.0对象”子菜单
　中的“属性”命令，打开“Microsoft Barcode Control 9.0 属性”对话框。单击“有效性验证”下拉列表，选择“1-无效时修复”或
　“2-无效时空白”选项。 如果用户选择“1-无效时修复”，当用户输入的数据内不含校验位的话，那么系统会自动将正确的校验位值加入
　数据内；如果用户输入的校验位数据无效的话，系统则会以正确值替换用户输入的错误内容。 如果用户选择“2-无效时空白”选项，那么
　只有在数据的位数正确，而且校验位的值也相等的情况下才会产生条形码符号。否则就显示空白。
　2、设置条形码符号的线条宽度、显示方向
　　　在“Microsoft Barcode Control 9.0 属性”对话框，单击“线条宽度”下拉列表，可以从八种线条宽度中进行选择，
　此外还可以在“方向”下拉列表中将条形码的显示方向设置为“0度”、“90度”、“180度”或“270度”中的一种。
　3、设置条形码颜色
　　　用户可以很方便地设置条形码符号的前景、背景颜色。设置方法是：在条形码图案上单击鼠标右键，从弹出的快捷菜单
　中选择“Microsoft Barcode Control 9.0对象”子菜单中的“属性”命令，打开“Microsoft Barcode Control 9.0 属性”对话框。
　单击”颜色“选项卡”，在“属性”列表框中选择“BackColor(背景)”或者“ForeColor(前景)”，然后从右侧的“调色板”下拉列
　表中选择合适的背景或前景颜色。
　　　需要注意的是，当用户对条形码属性进行修改后，必须退出控件设计模式才能看到修改后的条形码显示效果。如图7所示条形码
是将线条宽度设置为“7-特别浓”、“方向”为“90度”、背景颜色设置为黄色后所得到的显示效果。 用户除了可以通过
“Microsoft Barcode Control 9.0 属性”对话框设置条形码外，还可以通过图5所示的条形码“属性”对话框直接设置条形码项目。

当你详细掌握条形码控件各种属性的具体涵义后，你将发现使用这种方法设置条形码会更加简单方便。
在下面的列表中给出了属性对话框中各种属性的简单说明。

属性 　　　　  说明
Style 　　　 指定条形码符号的样式。
             样式（style)中的十一个样式：0-upc-A;1-UPC-E;2-EAN-13;3-EAN-8;4-CASE-CODE;5-CODABAR(NW-7);6-CODE-39;
             7-CODE-128;8-U.S POSTNET;9-U.S POSTAL.FIM;10-JP POST. 线条宽度0-细；1-特别细；2-淡；3-普通；4-中等；5-粗；
             6-浓；7-特别浓。
SubStyle 　　指定更详细的样式。
Validation 　指定是否要验证数据的有效性。
LineWeight 　指定条形码符号的线条粗细。
Direction 　 指定条形码控件的显示方向。
ShowData 　　指定是否要显示数据数值。
ForeColor 　 指定条形码符号的前景颜色。
BackColor 　 指定条形码符号的背景色。
Value 　　　 指定所产生的条形码符号的值。但必须满足不同风格样式的文字要求。
autoload     true/false   自动加载与否，默认情况下为自动加载，即所出现的一个"4901234567894条形码
direction    最关键选项，通过它能实现“刷新”，有四个选项，0~3，其作用分别是将对象的数码放置底部（0），右侧（1），
             顶部（2），左侧（3）
enabled      true/flash
visible      true/flash
height       调整对象的位置:高
left         调整对象的位置:左边距
top          调整对象的位置:上边距
width        调整对象的位置:宽
heightweight 条形码中最粗细条的磅数，0~7磅。
locked       对应右击对象时出现的设置控件格式:锁定对象
printlbject  对应右击对象时出现的设置控件格式:打印（预览）对象
placement    对应右击对象时出现的设置控件格式:对象随单元格移动的选择。
shadow       true/falsh     对象的阴影设置
visible      0-3 四种变化，并非适用于所有样式。

'条形码控件
Me.Controls.Add bstrprogid:="BARCODE.BarCodeCtrl.1", Name:="JMK", Visible:=True
                '在容器中添加条形码控件,控件名为"JMK",显示
With Me.Controls("JMK")     '设置条形码控件
   .Style = 6               '样式
   .Left = 5                '左边距
   .Top = 55                '上边距
   .Height = 85             '高
   .Width = 220             '宽
   .Value = "5M51987AA76390AA"       当前值
End With