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天聽書卡免費領，點擊下方圖片即可領取