PharmacodeGenerator.PharmacodeType Property

Specifies whether the Pharmacode bar code has one or two tracks.

Namespace: DevExpress.XtraPrinting.BarCode

Assembly: DevExpress.Printing.v24.1.Core.dll

NuGet Package: DevExpress.Printing.Core

Declaration

C#

[XtraSerializableProperty]
public PharmacodeType PharmacodeType { get; set; }

VB.NET

<XtraSerializableProperty>
Public Property PharmacodeType As PharmacodeType

Property Value

Type	Description
PharmacodeType	The type of the Pharmacode bar code.

Available values:

Name	Description	Example
OneTrack	A one-track Pharmacode bar code.
TwoTrack	A two-track Pharmacode bar code.

Remarks

The Pharmacode bar code can have one or two tracks.

PharmacodeType	Example
PharmacodeType.OneTrack
PharmacodeType.TwoTrack

The following code creates a one-track Pharmacode and specifies its properties:

View Example: How to add a bar code to a report

Form1.cs

using System;
using System.Collections.Generic;
using System.Drawing.Printing;
using System.Windows.Forms;
using DevExpress.XtraPrinting.BarCode;
using DevExpress.XtraReports.UI;
// ...
public XRBarCode CreatePharmacodeBarCode(string BarCodeText) {
    // Create a bar code control.
    XRBarCode barCode = new XRBarCode();

    // Set the type to the Pharmacode.
    barCode.Symbology = new PharmacodeGenerator() {
        // Specify the Pharmacode type.
        PharmacodeType = PharmacodeType.OneTrack
    };

    // Adjust the appearance.
    barCode.Text = BarCodeText;
    barCode.Height = 100;
    barCode.Width = 220;

    return barCode;
}

Form1.vb

Imports System
Imports System.Collections.Generic
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports DevExpress.XtraPrinting.BarCode
Imports DevExpress.XtraReports.UI
' ...
Public Function CreatePharmacodeBarCode(ByVal BarCodeText As String) As XRBarCode
    ' Create a bar code control.
    Dim barCode As New XRBarCode()

    ' Set the bar code's type to Pharmacode
    barCode.Symbology = New PharmacodeGenerator() With {.PharmacodeType = PharmacodeType.OneTrack}

    barCode.Text = BarCodeText
    barCode.Height = 100
    barCode.Width = 220

    Return barCode
End Function