条码插件TBarCode Office系列教程七（OCX篇）

TBarCode Office 是一款适用于 Microsoft? Word 2007、 2010和2013等具有强大功能的条码插件。通过此插件只需点击几下鼠标便可在您的 Word 文档 – 包括支持系列信件中添加所有条码。从本篇文章开始，我们将讲解在TBarCode Office中关于TBarCode OCX的常见问题解答。

TBarCode Office 是一款适用于 MicrosoftWord 2007、 2010和2013等具有强大功能的条码插件。通过此插件只需点击几下鼠标便可在您的 Word 文档 – 包括支持系列信件中添加所有条码。

从本篇文章开始，我们将讲解在TBarCode Office中关于TBarCode OCX的常见问题解答。

TBarCode Office最新版免费下载试用

※如何生成EAN数据矩阵/ GS1数据矩阵/span>

• 将Data Matrix调整为符 系统
• 将Data Matrix格式参数设置为EAN（枚举eDMPr_UCCEAN）。这会在条形码的第一个位置插入FNC1，并将条形码标记为GS1 / EAN类型。
• 启用转义序列
• 使用序列 F在可变长度AI之间编码FNC1分隔符。

※如何将十六进制序列编码为二进制值/span>

要使用TBarCode V9编码十六进制值，必须使用“Escape Sequences”格式为“ xhh”（hh =十六进制值）。有必要将十六进制序列（例如，从DP Premiumadress）转换为此格式，并打开TBarCode属性“EscapeSequences”。下面我们为此转换提供VBA示例代码：

'CreateTBCHEXString（sHexValue）'sHexValue ....转换后的数据流在每个字节之前'设置' x“私有函数CreateTBCHEXString（sHexValue）    Dim sTBCText As String    '设置TBarCode所需的前缀“ xhh”    sHexPrefix =“ x”     '将生成的字符串变为“ xhh”格式    对于i = 1到Len（sHexValue）步骤2        sTBCText = sTBCText＆sHexPrefix＆Mid $（sHexValue，i，2）    下一个我     CreateTBCHEXString = sTBCText结束功能

※如何编码二进制数据（二维码）/span>

即使您对二进制数据使用转义序列，编码器也将使用代码页转换（例如： x88根据需要在Data Matrix中导致不同的值）。

• 关闭代码页转换（使用编码模式LowByte）
• 强制二进制编码模式（如果可用）（参见PDF417编码模式，数据矩阵EnforceBinaryEncoding）

※在Microsoft Visual Basic，Visual C ++，VBscript，PHP中更改HRT字体

Visual Basic

Dim fnt As stdole.StdFont设置fnt = new stdole.StdFontfnt.Name =“Arial”设置TBC.Font = fnt

Microsoft Visual C ++

COleFont cOF = m_TBarCode.GetFont（）;tagCY cy = cOF.GetSize（）;cOF.SetName（ “Arial字体”）; //字体系列= Arialcy.int64 = cy.int64 * 1.5; //将50％添加到原始大小cOF.SetSize（CY）;m_TBarCode.SetFont（（LPDISPATCH）cOF）;cOF.ReleaseDispatch（）;

VBscript的^/span>（ASP）：

朦胧的fntset fnt = Server.CreateObject（“StdFont”）fnt.name =“Arial”设置TBC.Font = fnt

PHP（Windows）：

$ bcobj = new COM（“TBarCode9.TBarCode9”）;$ fntobj = new COM（“StdFont”）;$ fntobj->名称= “时 ”;$ fntobj->尺寸= 12;$ bcobj->字体= $ fntobj;

※如何更改Navision / Dynamics NAV中的HRT字体/span>

您需要生成OLE Automation.StdFont类型的自动化变量。然后将此字体对象分配给TBarCode COM对象。

名称数据类型子类型StdFont Automation'OLE Automation'.StdFont

CLEAR（BC）;BC.Refresh;如果ISCLEAR（StdFont）那么  CREATE（标准体）;StdFont.Size：= 30;StdFont.Name：='Arial';BC.Font：= StdFont;

※如何向控件添加其他文本行/span>

这可以通过以编程方式更改活动文本索引来实现。以下是Excel VBA的示例。TBarCode111是工作表上TBarCode实例的名称。

'首先为我们的文本区添加一个安静的区域TBarCode111.QuietZoneTop = 10TBarCode111.QuietZoneUnit = eMUMM'在文本区＃0中设置条形码数据（+正常HRT）TBarCode111.ActiveTextIndex = 0TBarCode111.BarCode = eBC_Code128TBarCode111.Text =“1234567890”TBarCode111.DisplayText =“”Dim fontBarcode As New stdole.StdFontfontBarcode.Name =“Arial”fontBarcode.Size = 12TBarCode111.font = fontBarcode'将文本索引更改为（辅助）文本区域＃1TBarCode111.ActiveTextIndex = 1'现在调整文本区域＃1的所有设置TBarCode111.DisplayText =“我的标签文字”TBarCode111.TextPositionLeft = 0TBarCode111.TextPositionTop = 0TBarCode111.TextClipping = FalseTBarCode111.PrintDataText = TrueDim fontLabel As New stdole.StdFontfontLabel.Name =“Arial”fontLabel.Size = 10fontLabel.Weight = 800TBarCode111.font = fontLabel'将文本索引重置为条形码文本TBarCode111.ActiveTextIndex = 0

– 未完待续 –

其他精彩教程，尽在资源列表

世界读书日，“樊登读书”21天听书卡免费领，点击下方图片即可领取

标签：条形码条形码生成