|目次|前ページ|次ページ|
─────────────────────────────────────
30.メニュー作成の使い方
─────────────────────────────────────
[1]メニュー作成オブジェクトの作成
→共通ルーチン 【ZVCMMNU】
@予期しない値がセットされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
A親フォーム作成後に、メインメューを作成します(ポップアップの場合は起動する[POPUPMENU^ZVCMENU])
※[S mid=(1〜511の一意の番号)(cidとは別に管理される)]
※[S form=(1〜1023の親フォームのフォーム番号)]
※[S group=(0〜32767のグループ番号)]
※[D MAINMENU^ZVCMMNU]メインメューの作成
B次に、メュー項目を作成します
※[S mid=(1〜511のメインメューと異なる一意の番号)(cidとは別に管理される)]
※[S form=(1〜1023の親フォームのフォーム番号)]
※[S group=(0〜32767のグループ番号)]
※[S action=0]
※[S parent=(1〜511の親メューAのmid番号)]
※[S editstr="メュー項目に表示する文字列$チェック状態"]
※[D MENUITEM^ZVCMMNU]メュー項目の作成
Cサブメュー項目を作成します
※[S mid=(1〜511のメュー項目と異なるサブメュー項目の番号)(cidとは別に管理される)]
※[S form=(1〜1023の親フォームのフォーム番号)]
※[S group=(0〜32767のグループ番号)]
※[S action=0]
※[S parent=(1〜511の親メュー項目Bのmid番号)]
※[S editstr="サブメュー項目に表示する文字列$チェック状態"]
※[D MENUITEM^ZVCMMNU]メュー項目の作成
Dメインメューをウインドウに接続する(ポップアップの場合は起動する[POPUP^ZVCMENU])
※[S mid=(1〜511の一意の番号)(cidとは別に管理される)]
※[S parent=(1〜1023の親フォームのcid番号)(midではなく)]
※[D SETMENU^ZVCMMNU]
Eイベント応答メッセージからメュー項目が選択されたことを感知する
※イベント種別=クリックイベントで処理します(キーホードで選択されてもクリックとなります)
※同期モードイベントの場合、イベント取得要求が必要です
※イベント応答メッセージを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)イベント応答メッセージを分解する[D VCMRESP^ZVCMSUB]
※(Rcid):mid番号【cid番号と重複しますのでコントロール種別で判別】
※(Rcname):"Menu"
※(Rccode):1000
※(Revent2):(1)左クリック
※[Rselno] = チェック状態(0:無し 1:チェック状態)[2008-4-4]
※(Rmain):"1;clicked"
※(Rsub):"メュー項目文字列"
F不要になったらサブメュー項目->メュー項目->メインメューの順に廃棄する。
※[S mid=(1〜511の一意の番号)(cidとは別に管理される)]
※[D DELMENU^ZVCMMNU]
─────────────────────────────────────
[2]メニュー作成オブジェクトのイベント
─────────────────────────────────────
◆ イベントマスクを設定する必要はありません
※クリック時のみイベント応答します
※同期モードイベントの場合、イベント取得要求が必要です
─────────────────────────────────────
mask0= 2 : (1)マウス左クリックイベント応答(ビット1)
※イベント設定変数を設定 → D CLICK^ZVCMEVENT
※リスポンス応答メッセージ中のイベントコード→ [Revent2=EV2Click],[Revent1=EV1Click]
─────────────────────────────────────
───────────────────────────────────
30-1
|目次|前ページ|次ページ|