NSDCodeUPC メンバ

UPC-A/UPC-Eのバーコードを出力します。


●表現可能なバーコード

すべて半角数字です。

表現可能なバーコード 説明
UPC-A Universal Product CodeのAバージョン(12桁)
UPC-A 2 add on Universal Product CodeのAバージョン(12桁) + 追加シンボル2桁
UPC-A 5 add on Universal Product CodeのAバージョン(12桁) + 追加シンボル5桁
UPC-E Universal Product CodeのEバージョン(8桁)
UPC-E 2 add on Universal Product CodeのEバージョン(8桁) + 追加シンボル2桁
UPC-E 5 add on Universal Product CodeのEバージョン(8桁) + 追加シンボル5桁

●コンストラクタ

名前 説明
NSDCodeUPC NSDCodeUPCを初期化します。

●プロパティの一覧

名前 説明
PicBox ピクチャーボックスを設定します。
DATAINFO 描画情報の設定をします。
GUnit Print関数で指定するX座標,Y座標の単位を設定します。

●メソッドの一覧

名前 引数 戻り値 説明
Dispose なし なし リソースの解放を行います。
SetPicBoxBitmap ( [Integer], [Integer] ) Boolean型 ビットマップの幅、高さを指定しビットマップをセットします。
( Bitmap ) Boolean型 セットするビットマップを指定し、ビットマップをセットします。
GetStandardWidth ( NSD_CODE_UPC_STYLE , NSD_CODE_UPC_ADDSYMBOL_STYLE ) Single型 標準の幅を返します。
GetCheckDegit ( String ) String型 チェックデジットを返します。
Print ( Single, Single, String ) Boolean型 画面にバーコードを出力します。
( Single, Single, String , Bitmap ) Boolean型 指定したビットマップにバーコードを出力します。
( Single, Single, String , PrintPageEventArgs ) Boolean型 プリンターにバーコードを出力します。

●データ用クラスの一覧

名前:NSD_CODE_UPC_INFO

構文:

Public Class NSD_CODE_UPC_INFO
    Public Int_CodeStyle As NSD_CODE_UPC_STYLE
    Public Int_Standard_Width As NSDBarcode.NSD_STANDARD_WIDTH
    Public Sng_MinimumLineWidth As Single
    Public Sng_AllWidth As Single
    Public Bln_QuietZonePrint As Boolean
    Public Int_QuietZonePrintHoseiHeight As Integer
    Public Int_QuietZonePrintHosei_Y As Integer
    Public Int_QuietZoneCharcterSize AS NSD_CODE_UPC_QUIETZONECHARCTER_SIZE
    Public Str_FontName As String
    Public Bln_CheckDegit As Boolean
    Public Int_Addon_Start_HoseiX As Integer
End Class

内容:描画情報用クラス。

名前 説明
Int_CodeStyle NSD_CODE_UPC_STYLE コードスタイル。 (既定値:NSD_CODE_UPC_STYLE.AUTO)
Int_Standard_Width NSDBarcode.NSD_STANDARD_WIDTH 幅の基準。 (既定値:NSDBarcode.NSD_STANDARD_WIDTH.ALL_WIDTH)
Sng_MinimumLineWidth Single 最小ラインの幅(mm)。 (既定値:0.33)
Sng_AllWidth Single 全体幅(mm)。 (既定値:0)
Int_Standard_WidthがNSDBarcode.NSD_STANDARD_WIDTH.ALL_WIDTHの時に反映されます。
値0の場合は標準幅が適用されます。
指定範囲は標準幅の0.8〜2.0倍。
Bln_QuietZonePrint Boolean クワイエットゾーンを示す">"の描画有無。
True :描画します。(既定値)
False:描画しません。
※追加シンボルが存在するときのみ描画します。
Int_QuietZonePrintHoseiHeight Integer クワイエットゾーン表示用フォントの高さ補正値。 (既定値:0)
Int_QuietZonePrintHosei_Y Integer クワイエットゾーン表示用のY補正値。 (既定値:0)
Int_QuietZoneCharcterSize NSD_CODE_UPC_QUIETZONECHARCTER_SIZE クワイエットゾーンのキャラクタサイズ。 (既定値:NSD_CODE_UPC_QUIETZONECHARCTER_SIZE.SIZE_SMALL)
Str_FontName String コード文字の出力時フォント名。 (既定値:システムのフォント)
Bln_CheckDegit Boolean チェックデジットの追加有無。
True :追加します。
False:追加しません。(既定値)
Int_Addon_Start_HoseiX Integer 追加シンボルまでの補正値X。 (既定値:0)

※ここで設定した高さ、細線の幅について出力時には最も近い数字(切り上げ)で丸められます。
全体幅については、出力時に幅を超えない最大の値が自動計算されます。
最も近い数字は出力デバイスの解像度によって変わります。


●定数の一覧

名前:NSD_CODE_UPC_STYLE コードスタイル
名前 内容
AUTO 自動。
UPC_A UPC-A。
UPC_E UPC-E。

 

名前:NSD_CODE_UPC_QUIETZONECHARCTER_SIZE クワイエットゾーンの文字サイズ
名前 内容
SIZE_SMALL 縮小サイズ。
SIZE_STANDARD 標準サイズ。

 

名前:NSD_CODE_UPC_ADDSYMBOL_STYLE 追加シンボルスタイル
名前 内容
ADDSYMBOL_UNKOWN 不明。
ADDSYMBOL_NOTHING 追加シンボルなし。
ADDSYMBOL_2 2桁の追加シンボル。
ADDSYMBOL_5 5桁の追加シンボル。

●NSDCodeUPCコンストラクタの説明

構文:Public Sub New()

使用法:Dim Cls_BarcodeUPC As New NSDCodeUPC

引数:なし。

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As New NSDCodeUPC
        :
End Class

●NSDCodeUPCプロパティの説明

名前:PicBox

構文:Public Property PicBox() As PictureBox

機能:ピクチャーボックスを設定します。

Set値:ピクチャーボックスをセットします。

Get値:ピクチャーボックスを取得します。

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

 

名前:DATAINFO

構文:Public Property DATAINFO() As NSD_CODE_UPC_INFO

機能:描画情報の設定をします。

Set値:描画情報をセットします。

Get値:描画情報を取得します。

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE_UPC_INFO.Bln_QuietZone = True
        Cls_BarcodeUPC.SetPicBoxBitmap()
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print( 10, 10, "012345678905")
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

 

名前:GUnit

構文:Public Property GUnit() As NSDBarcode.NSD_GRAPHICS_UNIT

機能:Print関数で指定するX座標,Y座標の単位を設定します。

Set値:座標の単位をセットします。

Get値:座標の単位を取得します。

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE_UPC_INFO.Bln_QuietZone = True
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.SetPicBoxBitmap()
        Cls_BarcodeUPC.GUnit = NSDBarcode.NSD_GRAPHICS_UNIT.Millimeter
        Cls_BarcodeUPC.Print( 10, 10, "012345678905")
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

●NSDCodeUPCメソッドの説明

名前:Dispose
構文:Public Overridable Sub Dispose() Implements IDisposable.Dispose

機能:リソースを解放します。

※終了時に必ず呼び出します。

引数:なし。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

 

名前:SetPicBoxBitmap
機能:ビットマップをセットします。

@ビットマップの幅、高さを指定しビットマップをセットします。

構文:Public Overloads Function SetPicBoxBitmap( [Width] , [Height] ) As Boolean

引数:

名前 引数渡しの方法 説明
[Width] Integer 値渡し(ByVal) ビットマップの幅を渡します。(既定値:0)
0または指定なしの場合は、ピクチャーボックスの幅が用いられます。
[Height] Integer 値渡し(ByVal) ビットマップの高さを渡します。(既定値:0)
0または指定なしの場合は、ピクチャーボックスの高さが用いられます。

戻り値:Boolean

戻り値の説明:

True:成功 、 False:失敗、エラー発生

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE_UPC_INFO.Bln_QuietZone = True
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.SetPicBoxBitmap()
        Cls_BarcodeUPC.Print( 10, 10, "012345678905")
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

 

Aセットするビットマップを指定し、ビットマップをセットします。

構文:Public Overloads Function SetPicBoxBitmap( Bmp ) As Boolean

引数:

名前 引数渡しの方法 説明
Bmp Bitmp 参照渡し(ByRef) セットするビットマップを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 、 False:失敗、エラー発生

使用例:

Public Class Form1
    Dim Cls_PicBmp As Bitmap = Nothing
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_PicBmp = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Cls_BarcodeUPC.SetPicBoxBitmap(Cls_PicBmp)
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE_UPC_INFO.Bln_QuietZone = True
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print( 10, 10, "012345678905")
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing

        If Not (Cls_PicBmp Is Nothing) Then
           Cls_PicBmp.Dispose()
           Cls_PicBmp = Nothing
        End If
    End Sub
End Class

 

名前:GetStandardWidth
構文:Public Function GetStandardWidth( Style , AddSymbol ) As Single

機能:標準の幅を返します。

引数:

名前 引数渡しの方法 説明
Style NSD_CODE_UPC_STYLE 値渡し(ByVal) コードスタイルを渡します。
AddSymbol NSD_CODE_UPC_ADDSYMBOL_STYLE 値渡し(ByVal) 追加シンボルスタイルを渡します。

戻り値:String

戻り値の説明:

標準の幅を返します。

使用例:

Public Class Form1
    Dim Cls_PicBmp As Bitmap = Nothing
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_PicBmp = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Cls_BarcodeUPC.SetPicBoxBitmap(Cls_PicBmp)
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE_UPC_INFO.Int_Standard_Width = NSDBarcode.NSD_STANDARD_WIDTH.ALL_WIDTH
        Cls_CODE_UPC_INFO.Sng_AllWidth = ClsPub_BarcodeUPC.GetStandardWidth( _
                                          NSDCodeUPC.NSD_CODE_UPC_STYLE.UPC_A, _
                                          NSDCodeUPC.NSD_CODE_UPC_ADDSYMBOL_STYLE.ADDSYMBOL_NOTHING)
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print( 10, 10, "012345678905")
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing

        If Not (Cls_PicBmp Is Nothing) Then
           Cls_PicBmp.Dispose()
           Cls_PicBmp = Nothing
        End If
    End Sub
End Class

 

名前:GetCheckDegit
構文:Public Function GetCheckDegit( Code ) As String

機能:チェックデジットを返します。
※モジュラス10ウェイト3・1で算出します。

引数:

名前 引数渡しの方法 説明
Code String 値渡し(ByVal) チェックデジットなしのコードを渡します。

戻り値:String

戻り値の説明:

チェックデジットを返します。

使用例:

Public Class Form1
    Dim Cls_PicBmp As Bitmap = Nothing
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_PicBmp = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Cls_BarcodeUPC.SetPicBoxBitmap(Cls_PicBmp)
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE_UPC_INFO.Int_CodeStyle = NSDCodeUPC.NSD_CODE_UPC_STYLE.UPC_A
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Dim Str_Code As String = "01234567890"
        Str_Code &= Cls_BarcodeUPC.GetCheckDegit(Str_Code)
        Cls_BarcodeUPC.Print( 10, 10, Str_Code)
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing

        If Not (Cls_PicBmp Is Nothing) Then
           Cls_PicBmp.Dispose()
           Cls_PicBmp = Nothing
        End If
    End Sub
End Class

 

名前:Print
機能:バーコードを出力します。

@画面にバーコードを出力します。

構文:Public Function Print( X , Y , Code ) As Boolean

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code String 値渡し(ByVal) 出力するコードを渡します。
※追加シンボルを指定する場合は、-(マイナス)記号で区切ります。
例:012345678905-12345
012345678905-24

戻り値:Boolean

戻り値の説明:

True:成功 、 False:失敗、エラー発生

使用例:

例@:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_BarcodeUPC.SetPicBoxBitmap()
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print( 10, 10, "012345678905")
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

例A:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_BarcodeUPC.PicBox = Me.PictureBox1
        Cls_BarcodeUPC.SetPicBoxBitmap()
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Dim Str_SCode As String = Nothing

        ' UPC-Aの指定例.
            Cls_CODE_UPC_INFO.Int_CodeStyle = NSDCodeUPC.NSD_CODE_UPC_STYLE.UPC_A
            Str_SCode = "012345678905"          ' 追加シンボルなし.
            Str_SCode = "012345678905-10"       ' 2桁の追加シンボル.
            Str_SCode = "012345678905-12345"    ' 5桁の追加シンボル.

        ' UPC-Eの指定例(ゼロ抑制まえのデータ).
            Cls_CODE_UPC_INFO.Int_CodeStyle = NSDCodeUPC.NSD_CODE_UPC_STYLE.UPC_E
            Str_SCode = "007834000091"          ' 追加シンボルなし.
            Str_SCode = "007834000091-10"       ' 2桁の追加シンボル.
            Str_SCode = "007834000091-12345"    ' 5桁の追加シンボル.

        ' UPC-Eの指定例.
            Cls_CODE_UPC_INFO.Int_CodeStyle = NSDCodeUPC.NSD_CODE_UPC_STYLE.UPC_E
            Str_SCode = "00783491"              ' 追加シンボルなし.
            Str_SCode = "00783491-10"           ' 2桁の追加シンボル.
            Str_SCode = "00783491-12345"        ' 5桁の追加シンボル.

        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print( 10, 10, Str_SCode)

    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

 

A指定したビットマップにバーコードを出力します。

構文:Public Function Print( X , Y , Code , Bmp ) As Boolean

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code String 値渡し(ByVal) 出力するコードを渡します。
※追加シンボルを指定する場合は、-(マイナス)記号で区切ります。
例:012345678905-12345
012345678905-24
Bmp Bitmp 参照渡し(ByRef) 出力先のビットマップを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 、 False:失敗、エラー発生

使用例:

Public Class Form1
    Dim Cls_PicBmp As Bitmap = Nothing
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_PicBmp = New Bitmap(100, 100)
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print( 10, 10, "012345678905", Cls_PicBmp)
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing

        If Not (Cls_PicBmp Is Nothing) Then
           Cls_PicBmp.Dispose()
           Cls_PicBmp = Nothing
        End If
    End Sub
End Class

 

Bプリンターにバーコードを出力します。

構文:Public Function Print( X , Y , Code , e ) As Boolean

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code String 値渡し(ByVal) 出力するコードを渡します。
※追加シンボルを指定する場合は、-(マイナス)記号で区切ります。
例:012345678905-12345
012345678905-24
e PrintPageEventArgs 参照渡し(ByRef) PrintPageイベントのSystem.Drawing.Printing.PrintPageEventArgsを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 、 False:失敗、エラー発生

使用例:

Public Class Form1
    Dim Cls_BarcodeUPC As NSDCodeUPC = Nothing
    Dim Cls_CODE_UPC_INFO As NSDCodeUPC.NSD_CODE_UPC_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_BarcodeUPC = New NSDCodeUPC
        Cls_CODE_UPC_INFO = New NSDCodeUPC.NSD_CODE_UPC_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Me.PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage( ByVal sender As Object, _
                                          ByVal e As System.Drawing.Printing.PrintPageEventArgs _
                                         ) Handles PrintDocument1.PrintPage
        Cls_BarcodeUPC.DATAINFO = Cls_CODE_UPC_INFO
        Cls_BarcodeUPC.Print(10, 10, "012345678905", e)
        e.HasMorePages = False
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_BarcodeUPC Is Nothing) Then
            Cls_BarcodeUPC.Dispose()
            Cls_BarcodeUPC = Nothing
        End If
        Cls_CODE_UPC_INFO = Nothing
    End Sub
End Class

Copyright (C) 2013 Nihon System Developer Corp. All Rights Reserved.