彩票走势图

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

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

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

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

※如何将十六进制序列编码为二进制值？

要使用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
结束功能

※如何编码二进制数据（二维码）？

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

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

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

Visual Basic

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

Microsoft Visual C ++

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

VBscript的^®（ASP）：

朦胧的fnt
set 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字体?

您需要生成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;

※如何向控件添加其他文本行？

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

'首先为我们的文本区添加一个安静的区域
TBarCode111.QuietZoneTop = 10
TBarCode111.QuietZoneUnit = eMUMM

'在文本区＃0中设置条形码数据（+正常HRT）
TBarCode111.ActiveTextIndex = 0
TBarCode111.BarCode = eBC_Code128
TBarCode111.Text =“1234567890”
TBarCode111.DisplayText =“”
Dim fontBarcode As New stdole.StdFont
fontBarcode.Name =“Arial”
fontBarcode.Size = 12
TBarCode111.font = fontBarcode


'将文本索引更改为（辅助）文本区域＃1
TBarCode111.ActiveTextIndex = 1

'现在调整文本区域＃1的所有设置
TBarCode111.DisplayText =“我的标签文字”
TBarCode111.TextPositionLeft = 0
TBarCode111.TextPositionTop = 0
TBarCode111.TextClipping = False
TBarCode111.PrintDataText = True

Dim fontLabel As New stdole.StdFont
fontLabel.Name =“Arial”
fontLabel.Size = 10
fontLabel.Weight = 800
TBarCode111.font = fontLabel

'将文本索引重置为条形码文本
TBarCode111.ActiveTextIndex = 0

- 未完待续 -

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

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