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型 チェックデジットを返します。 ( 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
構文:Public Function Print( X , Y , Code , Bmp ) As Boolean
引数:
名前 型 引数渡しの方法 説明 X Single 値渡し(ByVal) 出力するX座標を渡します。 Y Integer 値渡し(ByVal) 出力するY座標を渡します。 Code String 値渡し(ByVal) 出力するコードを渡します。
※追加シンボルを指定する場合は、-(マイナス)記号で区切ります。
例:012345678905-12345
012345678905-24Bmp 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
構文:Public Function Print( X , Y , Code , e ) As Boolean
引数:
名前 型 引数渡しの方法 説明 X Single 値渡し(ByVal) 出力するX座標を渡します。 Y Integer 値渡し(ByVal) 出力するY座標を渡します。 Code String 値渡し(ByVal) 出力するコードを渡します。
※追加シンボルを指定する場合は、-(マイナス)記号で区切ります。
例:012345678905-12345
012345678905-24e 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.