過去の桐井戸端ＢＢＳ　（桐ver.８）

15745	桐5のときみたいにテンキーの数字だけでメニューを選ぶようなことをしたい	かず	2002/04/17-18:24
かずと言います。 桐を使いはじめて11年になります。 現在、桐5で作った一括処理を桐8sp6に移すために悪戦苦闘しております。 その中で、メニューコマンドをイベントかフォームにしようと試みているのですが、 一点疑問が出てきました。 いままでのキーボードだけでの入力という操作性を維持したいために、 メニューも極力キーボード入力させたいと思っています。 フォームのコマンドボタンでの処理は過去ログを見てalt+英数字というやり方があることが分かりましたが、 できればテンキーの数字だけで処理したいのです。 桐5のメニューはご承知の通り数字入力ができました。 ご教授いただければ幸いです。
15746	Re:桐5のメニューコマンドの移行方法について	Ogo	2002/04/17-18:33
記事番号15745へのコメント >フォームのコマンドボタンでの処理は過去ログを見てalt+英数字というやり方が >あることが分かりましたが、できればテンキーの数字だけで処理したいのです。 これはイベントを使う必要があります。 メインメニューのフォームに関連づけられている *.kev で 手続き定義開始　フォーム::キー入力（長整数　&G文字キー) 　　条件 （&G文字キー=#jis("1")) 手続き実行 サブメニュー１() 　　条件 （&G文字キー=#jis("2")) 手続き実行 サブメニュー２() 　　条件 (&G文字キー=#jis("3")) 手続き実行 サブメニュー３() 　　条件 （&G文字キー=#jis("4")) 手続き実行 サブメニュー４() 　　条件 （&G文字キー=#jis("5")) 手続き実行 サブメニュー５() 　　条件 (&G文字キー=#jis("6")) 手続き実行 サブメニュー６() 　　条件 （&G文字キー=#jis("7")) 手続き実行 サブメニュー７() 　　条件 （&G文字キー=#jis("8")) 手続き実行 サブメニュー８() 　　条件 （&G文字キー=#jis("9")) 手続き実行 サブメニュー９() 　　条件 （&G文字キー=#jis("0")) 手続き実行 サブメニュー０() 手続き定義終了 上記の内容で理解できればお使い下さい。
15747	メニューから１キーでボタンを選択	Ogo	2002/04/17-18:38
記事番号15746へのコメント あ〜あ、汚かったこと。 (^^;; 手続き定義開始　フォーム::キー入力(長整数　&G文字キー) 　条件　(&G文字キー=#jis("1"))　手続き実行　サブメニュー１() 　条件　(&G文字キー=#jis("2"))　手続き実行　サブメニュー２() 　条件　(&G文字キー=#jis("3"))　手続き実行　サブメニュー３() 　条件　(&G文字キー=#jis("4"))　手続き実行　サブメニュー４() 　条件　(&G文字キー=#jis("5"))　手続き実行　サブメニュー５() 　条件　(&G文字キー=#jis("6"))　手続き実行　サブメニュー６() 　条件　(&G文字キー=#jis("7"))　手続き実行　サブメニュー７() 　条件　(&G文字キー=#jis("8"))　手続き実行　サブメニュー８() 　条件　(&G文字キー=#jis("9"))　手続き実行　サブメニュー９() 　条件　(&G文字キー=#jis("0"))　手続き実行　サブメニュー０() 手続き定義終了
15748	Re:メニューから１キーでボタンを選択	Ogo	2002/04/17-19:02
記事番号15747へのコメント もちろん、メニューフォームに配置するコマンドボタンの設定は以下のようになります （前述の *.kev と同一内容にするのがポイント／もちろん、この「サブメニュー１」というサブルーチンは 前記 *.kev の中に存在するのが基本だから、場合によってはそのサブルーチンの中で *.CMD ファイルを新たに開く必要があるかも知れません）。 コマンドボタン１ 表題：サブメニュー１ 機能名：手続き実行　パラメーター：サブメニュー１ # *.kev と *.cmd で制限がやたらに異なるのはなんとか # ならんのかな〜＞Ｋ３
15756	Re:メニューから１キーでボタンを選択	かず	2002/04/18-13:45
記事番号15748へのコメント Ogoさん、早速のレスありがとうございました。 ご丁寧にイベントまで書いてくださいまして、感謝に堪えません。 イベント自体はまだ学び始めたばかりですが、何とか分かります。 これを使わせていただきます。

戻る