彩票走势图

TBarCode SDK是一款可以在任意应用程序和打印机下生成和打印所有条码的条码软件组件。TBarCode SDK对于Microsoft® Office 用户以及软件开发者提供条码打印。使用此款条码软件组件您可以以完美效果生成和打印所有用于工业和商业条码符号。

【TBarCode SDK最新版下载】

一. 关于Crystal Reports中的条形码

无法将TBarCode直接添加到报表中，但您可以“动态”创建条形码图像并将其加载到图片框中。按照以下说明查看如何将TBarCode嵌入到Crystal Reports 8中。

通过图片框嵌入（VB6例子）

在一个表格（名为“Form1”）中嵌入一个TBarCode Control（名为“tbc”）和一个图片框（名为“TmpPicture1”）。然后将下面的功能代码添加到表单中。它“on the fly”创建条形码图像，并使用PictureBox作为绘图表面。

Public Function BarcodeGenerate(Id As String, Width As Long, Height As Long) As PictureBox
Dim nSizing, cm

    tbc.Text = Id
    cm = tbc.CountModules
    TmpPicture1.Cls
    TmpPicture1.ScaleMode = vbPixels
    Form1.ScaleMode = vbPixels

    Width = ScaleX(Width, vbTwips, vbPixels)
    Height = ScaleY(Height, vbTwips, vbPixels)
    nSizing = Int(Width / cm)
    If nSizing < 1 Then nSizing = 1

    TmpPicture1.Width = cm * nSizing
    TmpPicture1.Height = Height
    DoEvents
    tbc.BCDraw TmpPicture1.hDC, 0, 0, TmpPicture1.Width, TmpPicture1.Height
    Set BarcodeGenerate = TmpPicture1

End Function

在Report事件代码（Format事件）中调用条形码生成器功能，并将新创建的条形码图像分配给报告中的Picture Box(图片框)（名为Picture1）。

 Private Sub Section3_Format(ByVal pFormattingInfo As Object)
    'create the bar code for each record set
    Dim data As String
    data = Field1.Value
    Set Me.Picture1.FormattedPicture =
           Form1.BarcodeGenerate(data, Me.Picture1.Width, Me.Picture1.Height).Image
End Sub

通过位图文件嵌入（VB6例子）

在一个表格（名为“Form1”）中嵌入一个TBarCode Control（名为“TBarCode”）并根据需要调整条形码类型和所有其他设置。该条形码对象将在报告运行期间用于“on the fly”创建条形码。

在Report事件代码（格式事件）中，在临时文件夹中创建动态条形码图像，并将此图像加载到报告中的Picture Box（名为pictBarCode）。

 Private Sub Section3_Format(ByVal pFormattingInfo As Object)

' Simulate data binding
' by saving the bar code as bitmap with data from fldArticleID
' then reload it to a picture control

On Error Resume Next

Dim nWidth
Dim path
Dim fso
    
    ' here we use hard coded temp path (must exist!)
    path = "c:\temp\CR8_" & Me.fldArticleID.Value & ".bmp"
    
    ' reference the TBarCode Control in the Form1
    Form1.TBarCode.Text = Me.fldArticleID.Value
    Form1.TBarCode.PrintDataText = False
    nWidth = Form1.TBarCode.CountModules * 3 'adapt width to number of graphical modules
    
    Form1.TBarCode.SaveImage path, eIMBmp, nWidth, 100, 96, 96
    Me.pictBarcode.SetOleLocation (path)

End Sub

如果您不想在表单上添加条形码控件，则可以在内存中创建TBarCode实例并以编程方式应用设置。

二. 关于VB运行时错误'429'：ActiveX组件无法创建对象

如果未使用CreateObject指定完整的Prog-ID，则可能会收到此运行时错误。在项目设置中引用TBarCode Type Lib，并使用以下命令在VB中创建TBarCode对象（TBarCode OCX V9的例子）：

      Dim objTB As TBarCode9
      Set objTB = CreateObject("TBarCode9.TBarCode9")
      objTB.AboutBox

三. 为什么我应该使用TBarCode而不是条形码字体？

*条形宽度的微调可以为您提供更好的条形码质量结果

四. 关于Microsoft Excel - 打开期间的许可

其中包含ActiveX Control文档的启动过程中发生的许可。

• 使用打开Microsoft VBA编辑器Alt+F11。
• 在Project Explorer选择中This Workbook。
• 现在输入以下代码Workbook-Open Event（TBarCode OCX V11的例子）：

Private Sub Workbook_Open()
 Dim tbc As TBarCode11
 Set tbc = CreateObject ("TBarCode11.TBarCode11")
 tbc.LicenseMe "Mem:Licensee", eLicKindDeveloper, 1, "Key", TBarCode11Lib.eLicProd1D
 Set tbc = Nothing
End Sub

我们建议在项目属性窗口中使用密码保护您的VBA代码。

福利时间：点击此处>>>>>>获得TBarCode SDK的完整应用示例。