NSDCode93 メンバ
CODE93のバーコードを出力します。
●表現可能なキャラクタ
ASCIIキャラクタ(0 〜 127)。
●コンストラクタ
名前 説明 NSDCode93 NSDCode93を初期化します。
●プロパティの一覧
名前 説明 PicBox ピクチャーボックスを設定します。 DATAINFO CODE93の描画情報の設定をします。 GUnit Print関数で指定するX座標,Y座標の単位を設定します。
●メソッドの一覧
名前 引数 戻り値 説明 Dispose なし なし リソースの解放を行います。 SetPicBoxBitmap ( [Integer], [Integer] ) Boolean型 ビットマップの幅、高さを指定しビットマップをセットします。 ( Bitmap ) Boolean型 セットするビットマップを指定し、ビットマップをセットします。 ( 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_CODE93_INFO
構文:
Public Class NSD_CODE93_INFO 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_CODE93_PRINT_SOURCECODE_STYLE Public Int_SourceCodePrint_HoseiY As Integer Public Cls_Font As Font Public Int_SourceCodePrint_WidthStyle As NSD_CODE93_PRINT_SOURCECODE_WIDTH_STYLE End Class
内容:CODE93の描画情報用クラス。
名前 型 説明 Sng_Height Single 高さ(mm)。 (既定値:6.35) 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_CODE93_PRINT_SOURCECODE_STYLE コード文字の出力位置。 (既定値:NSD_CODE93_PRINT_SOURCECODE_STYLE.Barcode_Under) Int_SourceCodePrint_HoseiY Integer コード文字出力時の補正値Y。 (既定値:1) Cls_Font Font コード文字出力時のフォント。 (既定値:システムのフォント、フォントサイズ 8.25) Int_SourceCodePrint_WidthStyle NSD_CODE93_PRINT_SOURCECODE_WIDTH_STYLE コード文字を出力する時の幅スタイル。 (既定値:NSD_CODE93_PRINT_SOURCECODE_WIDTH_STYLE.Normal) ※ここで設定した高さ、最小ラインの幅ついて出力時には最も近い数字(切り上げ)で丸められます。
全体幅については、出力時に幅を超えない最大の値が自動計算されます。
最も近い数字は出力デバイスの解像度によって変わります。
●定数の一覧
名前:NSD_CODE93_PRINT_SOURCECODE_STYLE コード文字を出力するスタイル 名前 内容 Barcode_Top バーコードの上に出力。 Barcode_Under バーコードの下に出力。
名前:NSD_CODE93_PRINT_SOURCECODE_WIDTH_STYLE コード文字を出力する時の幅スタイル 名前 内容 Normal 通常。 BarcodeWidth バーコードの幅に合わせます。 BarcodeWidth_FontSizeAuto フォントサイズを自動調整してバーコードの幅に合わせます。
●NSDCode93コンストラクタの説明
構文:Public Sub New()
使用法:Dim Cls_BarCODE93 As New NSDCode93
引数:なし。
使用例:
Public Class Form1 Dim Cls_BarCODE93 As New NSDCode93 : End Class
●NSDCode93プロパティの説明
名前:PicBox
構文:Public Property PicBox() As PictureBox
機能:ピクチャーボックスを設定します。
Set値:ピクチャーボックスをセットします。
Get値:ピクチャーボックスを取得します。
使用例:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Form1_FormClosed( sender As Object, _ e As System.Windows.Forms.FormClosedEventArgs _ ) Handles Me.FormClosed If Not (Cls_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
名前:DATAINFO
構文:Public Property DATAINFO() As NSD_CODE93_INFO
機能:CODE93の描画情報の設定をします。
Set値:CODE93の描画情報をセットします。
Get値:CODE93の描画情報を取得します。
使用例:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_CODE93_INFO.Bln_QuietZone = True Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.SetPicBoxBitmap() Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_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_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_CODE93_INFO.Bln_QuietZone = True Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.SetPicBoxBitmap() Cls_BarCODE93.GUnit = NSDBarcode.NSD_GRAPHICS_UNIT.Millimeter Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
●NSDCode93メソッドの説明
名前:Dispose
構文:Public Overridable Sub Dispose() Implements IDisposable.Dispose 機能:リソースを解放します。
※終了時に必ず呼び出します。
引数:なし。
戻り値:なし。
使用例:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Form1_FormClosed( sender As Object, _ e As System.Windows.Forms.FormClosedEventArgs _ ) Handles Me.FormClosed If Not (Cls_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_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_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_CODE93_INFO.Bln_QuietZone = True Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.SetPicBoxBitmap() Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_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_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_PicBmp = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Cls_BarCODE93.SetPicBoxBitmap(Cls_PicBmp) Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_CODE93_INFO.Bln_QuietZone = True Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_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が使用されます。戻り値:Boolean
戻り値の説明:
True:成功 、 False:失敗、エラー発生
使用例:
例@:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_BarCODE93.SetPicBoxBitmap() Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
例A:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_BarCODE93.SetPicBoxBitmap() Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_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 = Nothing Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Str_SCode = "0123456789" Str_DCode = "0123456789" Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
構文: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()が使用されます。戻り値:Boolean
戻り値の説明:
True:成功 、 False:失敗、エラー発生
使用例:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_BarCODE93.PicBox = Me.PictureBox1 Cls_BarCODE93.SetPicBoxBitmap() Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_BarCODE93.DATAINFO = Cls_CODE93_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_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
構文: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が使用されます。戻り値:Boolean
戻り値の説明:
True:成功 、 False:失敗、エラー発生
使用例:
Public Class Form1 Dim Cls_PicBmp As Bitmap = Nothing Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_PicBmp = New Bitmap(100, 100) Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing If Not (Cls_PicBmp Is Nothing) Then Cls_PicBmp.Dispose() Cls_PicBmp = Nothing End If End Sub End Class
構文: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()が使用されます。戻り値:Boolean
戻り値の説明:
True:成功 、 False:失敗、エラー発生
使用例:
Public Class Form1 Dim Cls_PicBmp As Bitmap = Nothing Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_PicBmp = New Bitmap(100, 100) Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_INFO : End Sub Private Sub Button1_Click( sender As System.Object, _ e As System.EventArgs _ ) Handles Button1.Click Cls_BarCODE93.DATAINFO = Cls_CODE93_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_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing If Not (Cls_PicBmp Is Nothing) Then Cls_PicBmp.Dispose() Cls_PicBmp = Nothing End If End Sub End Class
構文: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が使用されます。戻り値:Boolean
戻り値の説明:
True:成功 、 False:失敗、エラー発生
使用例:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_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_BarCODE93.DATAINFO = Cls_CODE93_INFO Cls_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
構文: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()が使用されます。戻り値:Boolean
戻り値の説明:
True:成功 、 False:失敗、エラー発生
使用例:
Public Class Form1 Dim Cls_BarCODE93 As NSDCode93 = Nothing Dim Cls_CODE93_INFO As NSDCode93.NSD_CODE93_INFO = Nothing Private Sub Form1_Load( sender As System.Object, _ e As System.EventArgs _ ) Handles MyBase.Load : Cls_BarCODE93 = New NSDCode93 Cls_CODE93_INFO = New NSDCode93.NSD_CODE93_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_BarCODE93.DATAINFO = Cls_CODE93_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_BarCODE93.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_BarCODE93 Is Nothing) Then Cls_BarCODE93.Dispose() Cls_BarCODE93 = Nothing End If Cls_CODE93_INFO = Nothing End Sub End Class
Copyright (C) 2013 Nihon System Developer Corp. All Rights Reserved.