NSDCode128 メンバ

CODE128/GS1-128のバーコードを出力します。


●表現可能なキャラクタ

ASCIIキャラクタ。


●コンストラクタ

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

●プロパティの一覧

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

●メソッドの一覧

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

●データ用クラスの一覧

名前:NSD_CODE128_INFO

構文:

Public Class NSD_CODE128_INFO
    Public Int_OutStyle As NSD_CODE128_OUT_STYLE
    Public Sng_Height As Single
    Public Bln_HeightReCalculation As Boolean
    Public Int_Standard_Width As NSDBarcode.NSD_STANDARD_WIDTH
    Public Sng_AllWidth As Single
    Public Sng_MinimumLineWidth As Single
    Public Int_BetweenCharctersWidth As Integer
    Public Bln_QuietZone As Boolean
    Public Bln_QuietZonePrint As Boolean
    Public QuiteZoneColor As System.Drawing.Color
    Public Bln_SourceCodePrint As Boolean
    Public Int_PrintNoStyle As NSD_CODE128_PRINT_SOURCECODE_STYLE
    Public Int_SourceCodePrint_HoseiY As Integer
    Public Cls_Font As Font
    Public Int_SourceCodePrint_WidthStyle As NSD_CODE128_PRINT_SOURCECODE_WIDTH_STYLE
    Public Int_SetCodeType As NSD_CODE128_CODE_TYPE
    Public Int_SetCode_Priority As NSD_CODE128_CODE_TYPE
    Public Cls_TextEncoding As System.Text.Encoding
End Class

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

名前 説明
Int_OutStyle NSD_CODE128_OUT_STYLE 出力スタイル。 (既定値:NSD_CODE128_OUT_STYLE.CODE128)
Sng_Height Single 高さ(mm)。 (既定値:5)
Bln_HeightReCalculation Boolean 高さの再計算指定。
True :バーコードの高さを計算します。(既定値)
(Sng_Heightが最低の高さになります。)
False:バーコードの高さはSng_Heightで指定します。
Int_Standard_Width NSDBarcode.NSD_STANDARD_WIDTH 幅の基準。 (既定値:NSDBarcode.NSD_STANDARD_WIDTH.MINIMUM_WIDTH)
Sng_AllWidth Single 全体幅(mm)。 (既定値:100)
Int_Standard_WidthがNSDBarcode.NSD_STANDARD_WIDTH.ALL_WIDTHの時に反映されます。
Sng_MinimumLineWidth Single 最小ラインの幅(mm)。 (既定値:0.1)
Int_Standard_WidthがNSDBarcode.NSD_STANDARD_WIDTH.MINIMUM_WIDTHの時に反映されます。
Int_BetweenCharctersWidth Integer キャラクタ間の幅。 (既定値:0)
Bln_QuietZone Boolean クワイエットゾーンの追加有無。
True :追加します。(既定値)
False:追加しません。
Bln_QuietZonePrint Boolean クワイエットゾーンの描画有無。
True :描画します。
False:描画しません。(既定値)
クワイエットゾーンの描画は範囲確認用(テスト用)で使用します。
実際の本番データを描画する場合は必ずFalseで行います。
QuiteZoneColor System.Drawing.Color クワイエットゾーンも含めた全体枠の描画色。 (既定値:Color.Blue)
Bln_SourceCodePrint Boolean コード文字の出力有無。
True :出力します。(既定値)
False:出力しません。
Int_PrintNoStyle NSD_CODE128_PRINT_SOURCECODE_STYLE コード文字の出力位置。 (既定値:NSD_CODE128_PRINT_SOURCECODE_STYLE.Barcode_Under)
Int_SourceCodePrint_HoseiY Integer コード文字出力時の補正値Y。 (既定値:1)
Cls_Font Font コード文字出力時のフォント。 (既定値:システムのフォント、フォントサイズ 8.25)
Int_SourceCodePrint_WidthStyle NSD_CODE128_PRINT_SOURCECODE_WIDTH_STYLE コード文字を出力する時の幅スタイル。 (既定値:NSD_CODE128_PRINT_SOURCECODE_WIDTH_STYLE.Normal)
Int_SetCodeType NSD_CODE128_CODE_TYPE 設定するコード。 (既定値:NSD_CODE128_CODE_TYPE.CODE_AUTO)
設定値 内容
NSD_CODE128_CODE_TYPE.CODE_A コードA固定
NSD_CODE128_CODE_TYPE.CODE_B コードB固定
NSD_CODE128_CODE_TYPE.CODE_C コードC固定
NSD_CODE128_CODE_TYPE.CODE_AUTO 自動判定で設定します。
設定コードの優先順位はInt_SetCode_Priorityで指定します。
Int_SetCode_Priority NSD_CODE128_CODE_TYPE 設定するコードの優先順位。 (既定値:NSD_CODE128_CODE_TYPE.CODE_C)
設定値 優先順位
NSD_CODE128_CODE_TYPE.CODE_A コードA -> コードB
NSD_CODE128_CODE_TYPE.CODE_B コードB -> コードA
NSD_CODE128_CODE_TYPE.CODE_C コードC -> コードB -> コードA
NSD_CODE128_CODE_TYPE.CODE_AUTO コードC -> コードB -> コードA
Cls_TextEncoding System.Text.Encoding 変換時に使用するEncoding。 (既定値:System.Text.Encoding.ASCII)

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

 

名前:NSD_CODE128_SPECIAL_CHARACTER

構文:

Public Class NSD_CODE128_SPECIAL_CHARACTER
    Public CODE_FNC1 As Byte
    Public CODE_FNC2 As Byte
    Public CODE_FNC3 As Byte
    Public CODE_FNC4 As Byte
    Public CODE_SHIFT As Byte
    Public CODE_CODE_A As Byte
    Public CODE_CODE_B As Byte
    Public CODE_CODE_C As Byte
    Public CODE_START_A As Byte
    Public CODE_START_B As Byte
    Public CODE_START_C As Byte
End Class

内容:特殊キャラクタ。

名前 説明
CODE_FNC1 Byte FNC1 (ファンクションコード)
CODE_FNC2 Byte FNC2 (ファンクションコード)
CODE_FNC3 Byte FNC3 (ファンクションコード)
CODE_FNC4 Byte FNC4 (ファンクションコード)
CODE_SHIFT Byte SHIFT (シフトキャラクタ)
CODE_CODE_A Byte A (コードセットキャラクタA)
CODE_CODE_B Byte B (コードセットキャラクタB)
CODE_CODE_C Byte C (コードセットキャラクタC)
CODE_START_A Byte A (スタートキャラクタA)
CODE_START_B Byte B (スタートキャラクタB)
CODE_START_C Byte C (スタートキャラクタC)

●定数の一覧

名前:NSD_CODE128_OUT_STYLE 出力スタイル
名前 内容
CODE128 CODE128
GS1_128 GS1-128
UCC_EAN_128 UCC/EAN128

 

名前:NSD_CODE128_CODE_TYPE コード種類
名前 内容
CODE_UNKNOWN 不明
CODE_AUTO 自動
CODE_A コードA
CODE_B コードB
CODE_C コードC

 

名前:NSD_CODE128_PRINT_SOURCECODE_STYLE コード文字を出力するスタイル
名前 内容
Barcode_Top バーコードの上に出力。
Barcode_Under バーコードの下に出力。

 

名前:NSD_CODE128_PRINT_SOURCECODE_WIDTH_STYLE コード文字を出力する時の幅スタイル
名前 内容
Normal 通常。
BarcodeWidth バーコードの幅に合わせます。
BarcodeWidth_FontSizeAuto フォントサイズを自動調整してバーコードの幅に合わせます。

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

構文:Public Sub New()

使用法:Dim Cls_Barcode128 As New NSDCode128

引数:なし。

使用例:

Public Class Form1
    Dim Cls_Barcode128 As New NSDCode128
        :
End Class

●NSDCode128プロパティの説明

名前:PicBox

構文:Public Property PicBox() As PictureBox

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

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

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

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

 

名前:DATAINFO

構文:Public Property DATAINFO() As NSD_CODE128_INFO

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

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

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

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_Barcode128 Is Nothing) Then
            Cls_Barcode128.Dispose()
            Cls_Barcode128 = Nothing
        End If
        Cls_CODE128_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_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

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

 

名前:SpecialCharacter

構文:Public Property SpecialCharacter() As NSD_CODE128_SPECIAL_CHARACTER

機能:特殊キャラクタの設定をします。

Set値:特殊キャラクタをセットします。

Get値:特殊キャラクタを取得します。

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing
    Dim Cls_CODE128_SPECIAL_CHARACTER As NSDCode128.NSD_CODE128_SPECIAL_CHARACTER = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
        Cls_CODE128_SPECIAL_CHARACTER = New NSDCode128.NSD_CODE128_SPECIAL_CHARACTER
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_CODE128_INFO.Bln_QuietZone = True
        Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
        Cls_Barcode128.SetPicBoxBitmap()
        Dim Byte_SCode(0 To 9) As Byte
        For Int_Loop As Integer = 0 To Byte_SCode.Length - 1
            Byte_SCode(Int_Loop) = Int_Loop + 48
        Next
        Cls_Barcode128.Print( 10, 10, Byte_SCode)
    End Sub

    Private Sub Button2_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button2.Click
        Cls_CODE128_SPECIAL_CHARACTER = Cls_Barcode128.SpecialCharacter
        Cls_CODE128_SPECIAL_CHARACTER.CODE_FNC1 = 128
        Cls_Barcode128.SpecialCharacter = Cls_CODE128_SPECIAL_CHARACTER
    End Sub

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

●NSDCode128メソッドの説明

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

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

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

引数:なし。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_Barcode128 Is Nothing) Then
            Cls_Barcode128.Dispose()
            Cls_Barcode128 = Nothing
        End If
        Cls_CODE128_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_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_Barcode128 Is Nothing) Then
            Cls_Barcode128.Dispose()
            Cls_Barcode128 = Nothing
        End If
        Cls_CODE128_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_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_PicBmp = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
        Cls_Barcode128.SetPicBoxBitmap(Cls_PicBmp)
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

    Private Sub Form1_FormClosed( sender As Object, _
                                  e As System.Windows.Forms.FormClosedEventArgs _
                                 ) Handles Me.FormClosed
        If Not (Cls_Barcode128 Is Nothing) Then
            Cls_Barcode128.Dispose()
            Cls_Barcode128 = Nothing
        End If
        Cls_CODE128_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 , [MsgCode()] ) As Boolean

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code String 値渡し(ByVal) 出力するコードを渡します。
MsgCode() String 値渡し(ByVal) コード文字を出力する場合に出力する内容を渡します。
※Nothingの場合は、Codeが使用されます。
  1行で表示する場合は、配列(0)に設定します。
  2行で表示する場合は、1行目 配列(0) 2行目 配列(1)で設定します。

戻り値:Boolean

戻り値の説明:

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

使用例:

例@:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_Barcode128.SetPicBoxBitmap()
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
        Cls_Barcode128.Print( 10, 10, "0123456789")
    End Sub

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

例A:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_Barcode128.SetPicBoxBitmap()
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

        ' GS1-128の指定例@:
            Cls_CODE128_INFO.Int_OutStyle = NSDCode128.NSD_CODE128_OUT_STYLE.GS1_128
            Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
            ReDim Str_DCode(0)
            Str_SCode = "011493836526010017120930102D"
            Str_DCode(0) = "(01)14938365260100(17)120930(10)2D"

        ' GS1-128の指定例A:
            Cls_CODE128_INFO.Int_OutStyle = NSDCode128.NSD_CODE128_OUT_STYLE.GS1_128
            Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
            ReDim Str_DCode(0)
            Str_SCode = "0194933333152109310200111111020202210005"
            Str_DCode(0) = "(01)94933333 15210 9(3102)001111(11)020202(21)0005"

        ' GS1-128の指定例B:
            Cls_CODE128_INFO.Int_OutStyle = NSDCode128.NSD_CODE128_OUT_STYLE.GS1_128
            Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
            ReDim Str_DCode(1)
            Str_SCode = "91912345123456789012345678921102033101234562"
            Str_DCode(0) = "(91)912345-1234567890123456789211"
            Str_DCode(1) = "020331-0-123456-2"

        Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
        Cls_Barcode128.Print( 10, 10, Str_SCode, Str_DCode)
    End Sub

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

 

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

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

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code() Byte 値渡し(ByVal) 出力するコードを渡します。
特殊キャラクタを含める場合は、SpecialCharacterで設定されている値を指定します。
MsgCode() String 値渡し(ByVal) コード文字を出力する場合に出力する内容を渡します。
※Nothingの場合は、Code()が使用されます。
  1行で表示する場合は、配列(0)に設定します。
  2行で表示する場合は、1行目 配列(0) 2行目 配列(1)で設定します。

戻り値:Boolean

戻り値の説明:

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

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_Barcode128.PicBox = Me.PictureBox1
        Cls_Barcode128.SetPicBoxBitmap()
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
        Dim Byte_SCode(0 To 9) As Byte
        For Int_Loop As Integer = 0 To Byte_SCode.Length - 1
            Byte_SCode(Int_Loop) = Int_Loop + 48
        Next
        Cls_Barcode128.Print( 10, 10, Byte_SCode)
    End Sub

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

 

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

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

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code String 値渡し(ByVal) 出力するコードを渡します。
Bmp Bitmp 参照渡し(ByRef) 出力先のビットマップを渡します。
MsgCode() String 値渡し(ByVal) コード文字を出力する場合に出力する内容を渡します。
※Nothingの場合は、Codeが使用されます。
  1行で表示する場合は、配列(0)に設定します。
  2行で表示する場合は、1行目 配列(0) 2行目 配列(1)で設定します。

戻り値:Boolean

戻り値の説明:

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

使用例:

Public Class Form1
    Dim Cls_PicBmp As Bitmap = Nothing
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_PicBmp = New Bitmap(100, 100)
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

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

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

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

 

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

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

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code() Byte 値渡し(ByVal) 出力するコードを渡します。
特殊キャラクタを含める場合は、SpecialCharacterで設定されている値を指定します。
Bmp Bitmp 参照渡し(ByRef) 出力先のビットマップを渡します。
MsgCode() String 値渡し(ByVal) コード文字を出力する場合に出力する内容を渡します。
※Nothingの場合は、Code()が使用されます。
  1行で表示する場合は、配列(0)に設定します。
  2行で表示する場合は、1行目 配列(0) 2行目 配列(1)で設定します。

戻り値:Boolean

戻り値の説明:

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

使用例:

Public Class Form1
    Dim Cls_PicBmp As Bitmap = Nothing
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_PicBmp = New Bitmap(100, 100)
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_INFO
            :
    End Sub

    Private Sub Button1_Click( sender As System.Object, _
                               e As System.EventArgs _
                              ) Handles Button1.Click
        Cls_Barcode128.DATAINFO = Cls_CODE128_INFO
        Dim Byte_SCode(0 To 9) As Byte
        For Int_Loop As Integer = 0 To Byte_SCode.Length - 1
            Byte_SCode(Int_Loop) = Int_Loop + 48
        Next
        Cls_Barcode128.Print( 10, 10, Byte_SCode, Cls_PicBmp)
    End Sub

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

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

 

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

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

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code String 値渡し(ByVal) 出力するコードを渡します。
e PrintPageEventArgs 参照渡し(ByRef) PrintPageイベントのSystem.Drawing.Printing.PrintPageEventArgsを渡します。
MsgCode() String 値渡し(ByVal) コード文字を出力する場合に出力する内容を渡します。
※Nothingの場合は、Codeが使用されます。
  1行で表示する場合は、配列(0)に設定します。
  2行で表示する場合は、1行目 配列(0) 2行目 配列(1)で設定します。

戻り値:Boolean

戻り値の説明:

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

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_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_Barcode128.DATAINFO = Cls_CODE128_INFO
        Cls_Barcode128.Print(10, 10, "0123456789", 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_Barcode128 Is Nothing) Then
            Cls_Barcode128.Dispose()
            Cls_Barcode128 = Nothing
        End If
        Cls_CODE128_INFO = Nothing
    End Sub
End Class

 

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

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

引数:

名前 引数渡しの方法 説明
X Single 値渡し(ByVal) 出力するX座標を渡します。
Y Integer 値渡し(ByVal) 出力するY座標を渡します。
Code() Byte 値渡し(ByVal) 出力するコードを渡します。
特殊キャラクタを含める場合は、SpecialCharacterで設定されている値を指定します。
e PrintPageEventArgs 参照渡し(ByRef) PrintPageイベントのSystem.Drawing.Printing.PrintPageEventArgsを渡します。
MsgCode() String 値渡し(ByVal) コード文字を出力する場合に出力する内容を渡します。
※Nothingの場合は、Code()が使用されます。
  1行で表示する場合は、配列(0)に設定します。
  2行で表示する場合は、1行目 配列(0) 2行目 配列(1)で設定します。

戻り値:Boolean

戻り値の説明:

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

使用例:

Public Class Form1
    Dim Cls_Barcode128 As NSDCode128 = Nothing
    Dim Cls_CODE128_INFO As NSDCode128.NSD_CODE128_INFO = Nothing

    Private Sub Form1_Load( sender As System.Object, _
                            e As System.EventArgs _
                           ) Handles MyBase.Load
            :
        Cls_Barcode128 = New NSDCode128
        Cls_CODE128_INFO = New NSDCode128.NSD_CODE128_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_Barcode128.DATAINFO = Cls_CODE128_INFO
        Dim Byte_SCode(0 To 9) As Byte
        For Int_Loop As Integer = 0 To Byte_SCode.Length - 1
            Byte_SCode(Int_Loop) = Int_Loop + 48
        Next
        Cls_Barcode128.Print(10, 10, Byte_SCode, 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_Barcode128 Is Nothing) Then
            Cls_Barcode128.Dispose()
            Cls_Barcode128 = Nothing
        End If
        Cls_CODE128_INFO = Nothing
    End Sub
End Class

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