条码插件TBarCode Office系列教程七(OCX篇)

翻译|使用教程|编辑:黄竹雯|2019-04-17 12:00:01.000|阅读 67 次

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

相关链接:

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天听书卡免费领,点击下方图片即可领取



标签:条形码条形码生成

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果

登录 慧都网发表评论


暂无评论...

为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
title
title
相关厂商
相关产品
TBarCode Office

TBarCode Office 是适用于个版本Word具有强大功能的条码插件

在线
客服
在线
QQ
电话
咨询
400-700-1020
购物车 反馈 返回
顶部
在线客服系统
live chat