ここでは、アプリケーションのタイトルを「ジャストシステム」に変更し、アプリケーションを終了すると元に戻る場合を例として説明します。

これらの処理、すなわちアプリケーションのタイトルを変更するには、次のように操作します。

　 ■　操作手順　■

1.五郎を起動し、データベースを開く。

2.［マクロ］シートの［新規作成(N)］をクリックして、［新規作成］ダイアログボックスを開く。

3.任意のマクロ名を付けて「手続き」を選択し、Mainのマクロウィンドウを開く。

4.Mainのマクロウィンドウにマクロを記述する。

5.［プロジェクト(P)-フォームの追加(F)］でフォームを追加し、フォームのLoadイベントとUnloadイベントにマクロを記述する。

6.マクロを保存し、マクロウィンドウを閉じる。

7.［マクロ］シートのマクロを選択し、［実行(G)］をクリックする。

!!Main

Dialogs.DoModal("Form1")　!!(1)

　

!!Form1のLoadイベント

event Load()

　　%title = Application.Caption　!!(2)

　　Application.Caption = "ジャストシステム"　!!(3)

end event

　

!!Form1のUnloadイベント

event Unload()

　　Application.Caption = %title　!!(4)

end event

　

(1)Dialogs.DoModal("Form1")

モーダルダイアログボックスを開きます。

　

(2)%title = Application.Caption

変数%titleに、現在のアプリケーションのタイトルを格納します。

　

(3)Application.Caption = "ジャストシステム"

アプリケーションのタイトルに「ジャストシステム」を指定します。

　

(4)Application.Caption = %title

アプリケーションのタイトルを元に戻します。