● メモ帳を起動し、ハンドルを取得する ●

メモ帳起動に関しては、他のページで紹介しているのでここでは省略。

こちらこちら のページより関数をすべて標準モジュール(オブジェクト名:何でもよろしい)にコピーしてください。

できたらもう簡単です。フォームにコマンドボタン(オブジェクト名:cmdExecuteNotePad)を貼り付けて次のコードを書きましょう。

Private Sub cmdExecuteNotePad_Click()

  'メモ帳起動
  Call ExecuteNotepad("C:\WINNT\system32\notepad.exe")

End Sub

う〜ん、こんだけではつまらないんで、起動したメモ帳のハンドルも取得しちゃいましょう。フォームモジュールの宣言セクションに次のコードを書きましょう。

Private hNotepad As Long '起動したメモ帳のハンドル

そうしたら、先ほど書いたコマンドボタンのクリックイベントに次のように書き足してください。

Private Sub cmdExecuteNotePad_Click()

  'メモ帳は1つだけ起動すればよろしい
  If hNotepad Then Exit Sub

  'メモ帳起動、メモ帳のパスは自分で調べてね
  Call ExecuteNotepad("C:\Windows\Notepad.exe")

  'メモ帳のハンドル取得
  hNotepad = gHandleVB5

End Sub

さて、この先、ここで作成してもらった標準モジュールはこちらのページで一部機能を付け足しますが、基本的には使用しません。別の標準モジュールを作成し、コーディングしていくことになります。ここの真の目的は、メモ帳を起動することではなく、メモ帳のハンドルを取得することであったわけです。


[ インデックスページへ  |  次のページへ ]