VB実用⑱　印刷Ⅷ（Accessに依る印刷）

Size: px

Start display at page:

Download "VB実用⑱　印刷Ⅷ（Accessに依る印刷）"

ねんたろうこやぎ
5 years ago
Views:

印刷 Ⅶ VB 2005 7 プログラムの概要事務処理に於いて集計結果等を印刷して確認等を行う事も多い為ペーパーレスオフィスが推奨される昨今に於いても矢張り印刷に関する技術は必要で有る Visual Basic から印刷を行う方法は.

1 印刷 Ⅶ VB プログラムの概要事務処理に於いて集計結果等を印刷して確認等を行う事も多い為ペーパーレスオフィスが推奨される昨今に於いても矢張り印刷に関する技術は必要で有る Visual Basic から印刷を行う方法は.NET 以降 PrintDocument オブジェクトを使用する方法が標準と仕て一般的で有るが Professional 版等では ReportView や CrystalReport を利用する事も可能で有る亦 Power Packs 2 では視覚的確認が容易な FormPrint がを向上させて復活して居る此処では Access のデータを Access のレポートを用いて作成したレポートを Visual Basic から Access オブジェクトを利用して制御を行い印刷を行う今回の課題項目 Access オブジェクト (Application Document Table オブジェクト ) データベースの操作 (OpenCurrentDatabase CloseCurrentDatabase メソッド ) テーブルの操作 (OpenTable メソッド ) レポートの操作 (OpenReport メソッド ) レポートのプレビュー (Access.AcView.acViewPreview 定数 ) レポートの印刷 (Access.AcView.acViewNormal 定数 ) 今回の重点項目 Access オブジェクト (Application Document Table オブジェクト ) データベースの操作 (OpenCurrentDatabase CloseCurrentDatabase メソッド ) テーブルの操作 (OpenTable メソッド ) レポートの操作 (OpenReport メソッド ) レポートのプレビュー (Access.AcView.acViewPreview 定数 ) レポートの印刷 (Access.AcView.acViewNormal 定数 ) -1-

オブジェクトプロパティ一覧ラベル 1 テキストボックスラベル 2 コンボボックスボタン 1 ボタン 1 ファイルオープンダイアログコントロールの種類プロパティプロパティの設定値フォーム name AccessPrint FormBorderStyle FixedSingle StartPosition CenterScreen ACCESS プリントラベル1 name

2 オブジェクトプロパティ一覧ラベル 1 テキストボックスラベル 2 コンボボックスボタン 1 ボタン 1 ファイルオープンダイアログコントロールの種類プロパティプロパティの設定値フォーム name AccessPrint FormBorderStyle FixedSingle StartPosition CenterScreen ACCESS プリントラベル1 name lbldatabase Font MS 明朝太字 12 データベース名ラベル2 name lblreport Font MS 明朝太字 12 レポート名テキストボックス name txtdatabase Font MS 明朝標準 12 空白コンボボックス name cboreport Font MS 明朝標準 12 空白ボタン1 name btnpreview Font MS 明朝太字 10 プレビューボタン2 name btnprint Font MS 明朝太字 10 印刷ファイルオープンダイアログ name ofdfile 参照設定事前に下記のライブラリを参照設定して置く ActiveX Data Object x.x Library Microsoft Access x.x Object Library x.x はバージョンに依り異なる -2-

3 プログラムリスト Public Class AccessPrint Private SD As String Private DB As String Private RP As String 此処で宣言した変数は宣言したクラス内の総てのプロシージャで値の参照と設定を行う事が出来る ' フォームが読み込まれた時の処理 Private Sub AccessPrint_Load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load ' 起動パスの設定 SD = Application.StartupPath: If Not SD.EndsWith( " " ) Then SD = SD & " " ' ファイルオープンダイアログの設定 Filter プロパティでダイアログに ofdfile.initialdirectory = SD 表示されるファイルの種類を制限 ofdfile.defaultext = "mdb" ofdfile.filter = "Access ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*" End Sub ' テキストボックス ( データベース名 ) がクリックされた時の処理 Private Sub txtdatabase_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles txtdatabase.click Dim AC As Access.Application Dim R As Access.AccessObject Dim F As String 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない ' コモンダイアログの表示 If ofdfile.showdialog( ) = Windows.Forms.DialogResult.OK Then F = ofdfile.filename txtdatabase. = F.Substring( F.LastIndexOf( " " ) + 1 ) ' データベースファイルの設定 DB = F CreateObject ( "Access.Application" ) でもオブジェクトを生成する事が出来る ' Access ファイルのオープン AC = New Access.Application AC.OpenCurrentDatabase( DB, False ) ' レポート名の取得とコンボボックスへの設定 cboreport.items.clear( ) For Each R In AC.CurrentProject.AllReports cboreport.items.add( R.Name ) Next ' Access アプリケーションの終了 AC.Quit( ) ' Access オブジェクトの開放 AC = Nothing End If End Sub Access.Application オブジェクトの OpenCurrentDatabase メソッドは既存のデータベースをカレントデータベースと仕て開くメソッドで有る総てのレポート名をコンボボックスに設定する処理終了後は Access オブジェクトの Quit メソッドを用いて終了し Nothing を代入して参照を開放して置く -3-

4 ' コマンドボタン ( プレビュー印刷 ) がクリックされた時の処理 Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnpreview.click, btnprint.click ' 指定項目のチェック If Len( DB ) = 0 Then MsgBox( " データベース名を指定して下さい ", vbokonly, " 警告 " ): Exit Sub End If If cboreport.selectedindex < 0 Then MsgBox( " レポート名を指定して下さい ", vbokonly, " 警告 " ): Exit Sub End If RP = cboreport.selecteditem 此処では変数の宣言と同時に ' Access ファイルのオープン Dim AC As New Access.Application AC.OpenCurrentDatabase( DB, False ) ' Access レポートのオープン AC.DoCmd.Close( Access.AcObjectType.acReport, RP, Access.AcCloseSave.acSaveNo ) If sender.equals( btnpreview ) Then AC.DoCmd.OpenReport( RP, Access.AcView.acViewPreview ) AC.DoCmd.Maximize( ) Access のレポートをプレビュー AC.Visible = True ' Access レポートの終了の待機モードで開く Try Dim ActRep As String = AC.Screen.ActiveReport.Name Do Until ActRep = "" レポートをモーダルで開くが Application.DoEvents( ) If AC Is Nothing Then Exit Do 無い為アクティブなレポートが Try 閉じられる迄の待機を行う必要が ActRep = AC.Screen.ActiveReport.Name 有る Catch ex As Exception ActRep = "" アクティブなレポートが無く成る End Try と此の行で例外が発生する Loop Catch ex As Exception Select Case Err.Number Case 2202 ' プリンタドライバ未インストール MsgBox( " プリンタドライバがインストールされて居ません ", vbokonly, " 警告 " ) Case 2455 ' 切り替え時の対応 Case 7866 ' ファイルが見付からない MsgBox( " ファイルが見付かりません ", vbokonly, " 警告 ") Case Else MsgBox( Err.Description, vbokonly, " 警告 " ) End Select End Try Else AC.DoCmd.OpenReport( RP, Access.AcView.acViewNormal ) AC.CloseCurrentDatabase( ) End If ' Access アプリケーションの終了と Access オブジェクトの開放 AC.Quit( ): AC = Nothing End Sub End Class -4- New キーワードを用いてインスタンスを生成して居る Access のレポートをノーマルモード ( 直接印刷 ) で開く処理終了後は Access オブジェクトの Quit メソッドを用いて終了し Nothing を代入して参照を開放して置く

Microsoft Access xx Object Library と Microsoft DAO xx Object Library を参照設定次に Access のヘルプで

5 MS Access で印刷 Access の制御 Access のデータベースエンジンは Visual Basic にも付属して居る DAO のエンジンで有る此れは Visual Basic の参照設定ダイアログから DAO をチェックすれば使用可能と成る同様に Access Object Library を選択すると Access 固有のも使用する事が出来る様に成る Microsoft Access xx Object Library と Microsoft DAO xx Object Library を参照設定次に Access のヘルプで Access の Application オブジェクトを観ると DoCmd と謂うオブジェクトが有る此れが Access の様々なを Visual Basic から呼び出す事の出来るコマンド群なので有る -5-

Visual Basic のオブジェクトブラウザで Access ライブラリの DoCmd を参照すると下図の様に様々なコマンドが有る事が解る DoCmd オブジェクトには下記の様なメソッドが有る大抵の Access の操作は此等のメソッドに依り実現する事が出来る ApplyFilter GoToPage OutputTo SelectObject Beep GoToRecord

6 Visual Basic のオブジェクトブラウザで Access ライブラリの DoCmd を参照すると下図の様に様々なコマンドが有る事が解る DoCmd オブジェクトには下記の様なメソッドが有る大抵の Access の操作は此等のメソッドに依り実現する事が出来る ApplyFilter GoToPage OutputTo SelectObject Beep GoToRecord PrintOut SendObject CancelEvent HourGlass Quit SetMenuItem Close Maximize Rename SetWarnings CopyObject Minimize RepaintObject ShowAllRecords DeleteObject MoveSize Requery ShowToolbar DoMenuItem OpenForm Restore TransferDatabase Echo OpenModule RunCommand TransferSpreadsheet FindNext OpenQuery RunMacro Transfer FindRecord OpenReport RunSQL GoToControl OpenTable Save 猶上記のメソッドに依り解決出来ない Access の操作は, 下記の様に仕て行なう関数名該当する操作対処 AddMenu メニューの追加 ( なし ) MsgBox メッセージボックス MsgBox 関数を使用 RunApp アプリケーションの実行 Shell 関数を使用して他のアプリケーションを実行 RunCode プロシージャの実行関数を Visual Basic で直接実行 SendKeys キー送信 SendKeys ステートメントを使用 SetValue 値の代入値を Visual Basic で直接設定 StopAllMacros 全マクロの中止 ( なし ) StopMacro マクロの中止 ( なし ) -6-

7 Access オブジェクトの OpenCurrentDatabase メソッド既存の Access データベース (mdb) をカレントデータベースと仕て開く Object.OpenCurrentDatabase データベースファイル名 [, 排他モード ] 此のメソッドを使用するとオートメーションに依り別のアプリケーションで Access データベースを開く事が出来る別のアプリケーションで Access のインスタンスを作成した場合は新しいデータベースを作成するか又は特定のデータベースを指定して開く必要が有る此のデータベースは Access ウィンドウで開かれる指定項目データベース名排他モード内容パス名とファイル名の拡張子を含む既存のデータベースファイルの名前を示す文字列式を指定 ( ネットワークパスを指定する場合は其のネットワークでサポートされて居るを指定 : Server Share Folder Filename) データベースを排他モードで開くか何うかを指定 ( 省略可能既定値は False) Access オブジェクトの CloseCurrentDatabase メソッドカレントデータベースを閉じる Object.CloseCurrentDatabase 此のメソッドを使用して Access のカレントインスタンスで開いて居るデータベースを閉じると Access のインスタンスを新たに作成しなくても別のデータベースを開く事が出来る CloseCurrentDatabase メソッドを使用して Access のカレントインスタンスで開いて居るデータベースを閉じると Access のインスタンスを新たに作成しなくても別のデータベースを開く事が出来る Access オブジェクトの OpenTable メソッドテーブルを開く Object.DoCmd.OpenTable テーブル名 [, ビュー ] [, データモード ] 此のアクションの動作はデータベースウィンドウのテーブルタブでテーブルを選択し開くボタン又はデザインボタンをクリックした場合と同じで有る引数には下記を指定するテーブル名は省略する事が出来ない指定項目テーブル名ビューデータモード内容カレントデータベースのテーブルの有効名を文字列式で指定次の孰れかの組み込み定数を指定 (acviewnormal/acviewdesign/acviewpreview) 次の孰れかの組み込み定数を指定 (acadd/acedit/acreadonly) -7-

8 Access オブジェクトの OpenReport メソッドレポートを開く Object.DoCmd.OpenReport レポート名 [, ビュー ] [, フィルター ] [, 条件 ] レポートをデザインビューやプレビューで開くか又はレポートの即時印刷を行う為に使用する引数には下記を指定するレポート名は省略する事が出来ない指定項目レポート名ビューフィルター条件内容カレントデータベースのレポートの有効名を文字列式で指定次の孰れかの組み込み定数を指定 acviewnormal レポートを直ちに印刷する acviewdesign レポートをデザインモードで開く acviewpreview レポートをプレビューモードで開くカレントータベースのクエリーの有効名を文字列式で指定有効な SQL WHERE 句を文字列式で指定第 2 引数のビューで acviewnormal を指定すると印刷ダイアログボックスは表示されずに現在のプリンタの設定に依り直ちにレポートが印刷される亦 OpenReport メソッドでレポートを開き必要な調整を施してから PrintOut メソッドを使用して印刷する事も出来る印刷する前にレポートを修正する場合や PrintOut メソッドでプリンタの設定を変更する場合は此の方法を使用する同じ形式のレポートで別のデータを印刷するにはフィルタや WHERE 句を使用してレポートに印刷するレコードを制限する事が出来る最大バイト迄の WHERE 句を入力する事が出来る第 3 引数のフィルタにはレポートのレコードを制限する既存のクエリ又はクエリとして保存されたフィルタの名前を指定する但し開くレポートの総てのフィールドが含まれて居るクエリ又は OutputAllFields プロパティに True が設定されて居るクエリを指定する必要が有る第 4 引数の条件にはレポートの基に成るテーブルやクエリのレコードを選択する時に使用する WHERE 句 (WHERE の語を除く ) や式を指定する Access オブジェクトの Close メソッド閉じるアクションを実行する Object. DoCmd.Close acreport, レポート名 [, 保存 ] 開いて居るレポートを閉じる猶此のメソッドはユーザーが明示的に開いたり閉じたりする事が出来る総てのデータベースオブジェクトに対して使用する事が出来る第 3 引数の保存に acsaveno を指定した場合は変更を保存せずにレポートを閉じ acsaveprompt( 既定値 ) を指定した場合はレポートを閉じる前に保存するか何うかの確認を行うダイアログボックスを表示し acsaveyes を指定すると自動的に変更を保存してレポートを閉じる -8-

9 Access オブジェクトの PrintOut メソッド印刷する Object. DoCmd.PrintOut [ 印刷方法 ][, 開始頁, 終了頁 ][, 品質 ][, 枚数 ][, 部数 ] 此のメソッドを使用してデータシートレポートフォームデータアクセスページ及びモジュールを印刷する事が出来る引数には下記を指定する総ての引数は省略する事が出来る指定項目印刷方法開始頁終了頁品質枚数部数内容次の孰れかの組み込み定数を指定 (acprintall= 既定値 /acselection/acpages) アクティブフォーム又はアクティブデータシートの有効なページ番号を数式で指定印刷方法に acpages を指定した場合は省略不可アクティブフォーム又はアクティブデータシートの有効なページ番号を数式で指定印刷方法に acpages を指定した場合は省略不可次の孰れかの組み込み定数を指定 (acdraftachigh= 既定値 /aclowacmedium) 印刷する枚数を数式で指定既定値は 1 部単位で印刷するには True を部単位で印刷しない場合は False を指定既定値は True 参考 Access オブジェクト用の変数を宣言する Private AC As Access.Application Access オブジェクトのインスタンスを生成する Set AC = New Access.Application Access ファイルを開く AC.OpenCurrentDatabase データベース名, False Access レポートを WHERE 句を指定してプレビューモードで開く AC.DoCmd.OpenReport レポート名, acviewpreview,, " フィールド名 = 値 " Access レポートのレコードソースを設定する ( デザインモードで開く必要が有る ) AC.Reports( レポート名 ).RecordSource = "SELECT * FROM テーブル名 " Access レポートのコントロールのプロパティに値を設定する ( 同上 ) AC.Reports( レポート名 ).Controls( コントロール名 ). プロパティ名 = 値 Access レポートを変更を保存せずに閉じる AC.DoCmd.Close acreport, レポート名, acsaveno Access アプリケーションを終了する AC.Quit -9-

10 Access.Report オブジェクトの RecordSource プロパティフォームやレポートの基に成るデータを示すプロパティ Object.RecordSource = 文字列 RecordSource プロパティを使用するとテーブルクエリ又は SQL ステートメントのデータを表示する事が出来る文字列にはテーブル名クエリ名又は SQL ステートメントを指定する下記に設定値の例を示す設定値の例内容 [ 社員 ] データソースと仕て社員テーブルを指定するテーブル名 SELECT 受注! 受注日 FROM 受注 ; データソースと仕て受注テーブルの受注日フィールドを指定する SQL ステートメントコントロールの ControlSource プロパティに受注日を設定するとフォームやレポートのコントロールに受注テーブルの受注日フィールドを連結する事が出来るフォームやレポートを作成した後に RecordSource プロパティを変更すると基に成るデータを変更する事が出来る RecordSource プロパティは再使用可能なフォームやレポートを作成する時に効果的で有る例えば或るフォームをコピーし其のフォームの RecordSource プロパティを変更すると同じ形式のフォームに異なるテーブルクエリ又は SQL ステートメントのデータを表示する事が出来る実行時にレポートのレコードソースを変更する例を下記に示す ' Access オブジェクト用の変数の宣言 Dim AC As Access.Application ' Access オブジェクトのインスタンス生成 Set AC = New Access.Application ' データベースのオープン AC.OpenCurrentDatabase データベース名, False ' レポートのオープン AC.DoCmd.OpenReport レポート名, acviewdesign ' レポートのレコードソースの設定 AC.Reports( レポート名 ).RecordSource = "SELECT * FROM テーブル名 " ' レポートを変更を保存してクローズ AC.DoCmd.Close acreport, レポート名, acsaveyes ' Access アプリケーションの終了 AC.Quit 開いて居るフォームやレポートのレコードソースを変更すると基に成るデータの再クエリが自動的に行われるフォームの Recordset プロパティを実行時に設定すると其のフォームの RecordSource プロパティが更新されるレポートをプレビューモードで開いて居る時に此のプロパティを変更するとエラーが発生するので此のプロパティを変更する時はデザインモードでレポートを開く必要が有る猶 Access オブジェクトの Visible プロパティを True に設定しない限りデザインモードの画面が表示される事は無い -10-

11 Access オブジェクトの Filter プロパティフィルタの設定と取得を行う Object.Filter = 設定値テーブルやレポートで抽出するレコードを制限するフィルタを設定する Filter プロパティを使用するとフィルタを保存し後で其れを適用する事が出来るフィルタはフィルタを作成したオブジェクトと共に保存されるオブジェクトが開かれると自動的にフィルタはロードされるが自動的に適用される訳では無い新規にフォームやレポートオブジェクトを生成すると其のオブジェクトの RecordSource プロパティには基に成るテーブルやクエリの名前が設定され更に Filter OrderBy OrderByOn の各プロパティの設定が適用される保存したフィルタをフォームやレポートに適用するには FilterOn プロパティに True を設定するフォームやレポートが開かれた時にフィルタが自動的に適用される様にするには DoCmd オブジェクトの ApplyFilter メソッドを使用する亦フィルタを解除するには FilterOn プロパティに False を設定する設定値は文字列式で WHERE 句から WHERE を省いた物で有る都道府県フィールドの値が大阪のレコード丈を抽出するフィルタを適用する例を下記に示す Access オブジェクト.Reports( レポート名 ).Filter = " 都道府県 = ' 大阪 '" Access オブジェクト.Reports( レポート名 ).FilterOn = True Access オブジェクトの OrderBy プロパティレコードの並べ替え方法の設定と取得を行う Object.OrderBy = 設定値テーブルやレポートで表示するレコードをソートするフィールドを設定する設定値はレコードを並べ替える基準と成るフィールド名を示す文字列式で有る複数のフィールド名を使用する場合は夫々れの名前をコンマ (, ) で区切るフィールド名を OrderBy プロパティを設定するとレコードは昇順で並べ替えらるレコードを降順で並べ替えるには文字列式の最後に DESC を指定する ( 例 :" 得意先コード DESC") レポートの OrderBy プロパティに指定した並べ替え順序を適用するには OrderByOn プロパティに true を設定する必要が有る開いて居るレポートに OrderBy プロパティを設定するとレポートの Close イベント及び Open イベントが発生する新規にフォームやレポートオブジェクトを生成すると其のオブジェクトの RecordSource プロパティには基に成るテーブルやクエリの名前が設定され更に Filter OrderBy OrderByOn の各プロパティの設定が適用される -11-

12 Access オブジェクトの Control オブジェクト Control オブジェクトはフォームレポート又はセクション上のコントロール別のコントロール内のコントロール別のコントロールにリンクされたコントロールを示すフォームやレポートのコントロールは総て Form オブジェクトや Report オブジェクトの Controls コレクションに属して居る特定のセクション内に有るコントロールは其のセクションの Controls コレクションに含まれるタブコントロールやオプショングループコントロール内に有るコントロールは其のコントロールの Controls コレクションに含まれるラベルコントロールは其のコントロールの Controls コレクションに含まれる別のコントロールにリンクして居る Controls コレクションの個々の Control オブジェクトを参照するには下記の様に記述する Controls コレクションの CTRL と謂う名前のコントロールを参照 Access オブジェクト.Reports( レポート名 ).Controls!CTRL コントロール名にスペースが含まれて居る場合の参照 Access オブジェクト.Reports( レポート名 ).Controls![CTRL TEXT] 下記参照の場合処理速度が少し遅く成る Access オブジェクト.Reports( レポート名 ).Controls("CTRL") コレクションのコントロールインデックスで参照 Access オブジェクト.Reports( レポート名 ).Controls(0) ' サブフォームコントロールコレクションを使用して参照 Access オブジェクト.Reports( レポート名 ).ctlsubform.controls!ctrl 各 Control オブジェクトは特定の組み込み定数に依り明示的に意味付けられて居る例えば定数 acbox はテキストボックスに対応し定数 accommandbutton はコマンドボタンに対応して居る既存のコントロールの型を確認するには ControlType プロパティを使用する但しコードで使用する場合はデータ型が Control 型の変数に定数を割り当てる丈でコントロールを参照する事が出来るので特定のコントロールの型を知る必要は無い参照するコントロールのデータ型が判明して居り Access の組込コントロールで有る場合は特定のタイプ ( 例えば Box) の変数を使用する事が出来るがコントロールが ActiveX コントロールの場合は Control タイプの変数を使用する必要が有り特定のタイプの変数は使用出来ない猶変数が示すコントロールのタイプが分からない場合は変数を Control タイプとして宣言するオプショングループコントロールはオプションボタンチェックボックストグルボタンラベルコントロール等他のコントロールを Controls コレクション内に含む事が出来るタブコントロールには Controls コレクションの特定のタイプで有る Pages コレクションが含まれ Pages コレクションにはコントロールで有る Page オブジェクトが含まれる更に各 Page オブジェクトには其のページに有る総てのコントロールを含む Controls コレクションが含まれる他の Control オブジェクトには付属ラベルを含む事が出来る Controls コレクションが有る此等のコントロールにはテキストボックスオプショングループオプションボタントグルボタンチェックボックスコンボボックスリストボックスコマンドボタン連結オブジェクトフレーム及び非連結オブジェクトフレームの各コントロールが含まれる -12-

13 Access オブジェクトの ControlType プロパティコントロールの種類の設定と取得を行う Object.ControlType = 設定値フォームやレポートのコントロールの種類を示す ControlType プロパティの設定値は以下のコントロールの種類を指定する組み込み定数で有る定数 acboundobjectframe accheckbox accombobox accommandbutton accustomcontrol acimage aclabel acline aclistbox acobjectframe acoptionbutton acoptiongroup acpage acpagebreak acrectangle acsubform actabctl acbox actogglebutton コントロール連結オブジェクトフレームチェックボックスコンボボックスコマンドボタン ActiveX コントロールイメージラベル線リストボックス非連結オブジェクトフレームグラフオプションボタンオプショングループ Page オブジェクト改ページ四角形サブフォームサブレポートタブテキストボックストグルボタン ControlType プロパティはコードで特定のコントロールの種類を確認する時丈で無くコントロールの種類を別の種類に変更する時にも使用する事が出来る例えばフォームのデザインビューでテキストボックスの ControlType プロパティに定数 accombobox を設定しテキストボックスをコンボボックスに変更する事が出来る ControlType プロパティを使用すると特定の条件に従いフォームの類似したコントロールの属性を変更する事が出来る例えばユーザーに対しテキストボックスの既存のデータの編集を禁止する場合総てのテキストボックスの SpecialEffect( 立体表示 ) プロパティに Flat( 平坦 ) を設定しフォームの AllowEdits( 更新の許可 ) プロパティに No( いいえ ) を設定する SpecialEffect プロパティはデータの編集には影響を与えないがコントロールの動作が変更された事を視覚的に解る様にする ControlType プロパティは CreateControl メソッドを使う場合に作成するコントロールの種類を指定する為にも使用する事が出来る -13-

ルーレットプログラム

ルーレットプログラム VB 2005 4 プログラムの概要カジノの代表的なゲームルーレットを作成する先ず GO! ボタンをクリックするとルーレット盤上をボールが回転し一定時間経過するとボールが止まり出目を表示するプログラムを作成する出目を 1~16 大小偶数奇数の内から予想して予め設定した持ち点の範囲内で賭け点を決め賭け点と出目に依り 1 点賭けの場合は 16 倍其他は 2

VB実用⑱ 印刷Ⅷ（Accessに依る印刷）

VB実用⑱　印刷Ⅷ（Accessに依る印刷）