Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


トランプゲームフリーセルを楽しもう : Access裏技Tips



疲れた時は気分転換が必要です。トランプゲームフリーセルなどはいかがですか。 ここでは、Accessから簡単に外部ファイルを起動する技を紹介します。

Shell関数で外部ファイルを開く

  1. 非連結のフォームを作成します。
  2. このフォーム上に3個のコマンドボタン(Cmdコマンド1〜3)を作成します。
  3. コマンドボタンのクリック時イベントプロシージャにShell関数を記述しフリーセルを起動させます。

非連結のフォームの作成

  1. 非連結のフォームを作成し、コマンドボタンを3個配置します。

フォームのイベントプロシージャの宣言セクションに変数を作成

フォームのイベントプロシージャの宣言セクションに変数を作成します。

Option Compare Database
Option Explicit

Dim VarFE As Variant ' --- A
解説
  1. バリアント型の変数を定義します。宣言セクションに変数を作成すると、フォームが閉じるまで値が保持されます。

SubプロシージャFreecellChoiceの作成

SubプロシージャFreecellChoiceを作成します。

Sub FreecellChoice(intVer As Integer)

    Select Case intVer
        Case 1: VarFE = Shell("C:\windows\Freecell.exe", 1) ' --- A
        Case 2: VarFE = Shell("C:\WinNT\System32\Freecell.exe", 1) ' --- B
        Case 3: VarFE = Shell("C:\WINDOWS\System32\Freecell.exe", 1) ' --- C
    End Select

End Sub
解説
  1. Windows95、98、MEの場合のFreecell.exeの起動パスです。
  2. Windows2000の場合のFreecell.exeの起動パスです。
  3. WindowsXPの場合のFreecell.exeの起動パスです。
今回のおすすめポイント

Shell関数

外部ファイルをAccess側から起動実行することができます。 1番目の引数で実行ファイルのパスを記述し、2番目の引数で実行ファイルが開いた際の大きさ、位置などを指定することができます。

SubプロシージャErrMsgの作成

SubプロシージャErrMsgを作成します。

Sub ErrMsg() ' --- A

    Dim strmsg As String
    strmsg = "予期せぬエラーが発生しました。"

    MsgBox strmsg & vbNewLine & _
           "エラー番号: " & Err.Number & vbNewLine & _
           "エラー内容: " & Err.Description, 16

End Sub

解説
  1. エラー処理の記述です。 同じようなプロシージャが数多くある場合、このようにSubプロシージャに処理を分担させることもできます。 もちろん、直接イベントプロシージャ内のエラー処理区分内に記述しても問題ありません。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャの作成します。

Private Sub Cmdコマンド1_Click()

    On Error GoTo エラー

    Call FreecellChoice(1) ' --- A
    Exit Sub

エラー:
   
    Call ErrMsg ' --- B

End Sub

解説
  1. Call関数でSubプロシージャFreecellChoiceを呼び出します。 Windows95、98、ME系を対象とするので引数に1を記述します。
  2. Call関数でSubプロシージャErrMsgを呼び出します。エラー処理ルーチンです。
  • 以降、残り2個のコマンドボタンクリック時イベントプロシージャの作成を同様に行います。

動作確認

  1. デザインビューからフォームビューに切り替えます。

  1. お使いのWindowsバージョンに合わせて、コマンドボタンをクリックします。
  2. フリーセルが開きます。


関連ページ

ページの先頭へ 前ページへ戻る

 


トランプゲームフリーセルを楽しもう : Access裏技Tips


 

-Microsoft Access Club-

動画配信(ダウンロード、ストリーミング)対応の専用レンタルサーバー。データセンター設置場所はアメリカ合衆国です。: 動画サーバードットコム
動画配信(ダウンロード、ストリーミング)対応の専用レンタルサーバー。
データセンター設置場所はアメリカ合衆国です。
100Mbps〜1Gbpsまで対応できます。