過去の桐井戸端BBS (桐ver.8)
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")) 手続き実行 サブメニュー1()
  条件 (&G文字キー=#jis("2")) 手続き実行 サブメニュー2()
  条件 (&G文字キー=#jis("3")) 手続き実行 サブメニュー3()
  条件 (&G文字キー=#jis("4")) 手続き実行 サブメニュー4()
  条件 (&G文字キー=#jis("5")) 手続き実行 サブメニュー5()
  条件 (&G文字キー=#jis("6")) 手続き実行 サブメニュー6()
  条件 (&G文字キー=#jis("7")) 手続き実行 サブメニュー7()
  条件 (&G文字キー=#jis("8")) 手続き実行 サブメニュー8()
  条件 (&G文字キー=#jis("9")) 手続き実行 サブメニュー9()
  条件 (&G文字キー=#jis("0")) 手続き実行 サブメニュー0()
手続き定義終了

上記の内容で理解できればお使い下さい。


15747 メニューから1キーでボタンを選択 Ogo 2002/04/17-18:38
記事番号15746へのコメント

あ〜あ、汚かったこと。 (^^;;

手続き定義開始 フォーム::キー入力(長整数 &G文字キー)
 条件 (&G文字キー=#jis("1")) 手続き実行 サブメニュー1()
 条件 (&G文字キー=#jis("2")) 手続き実行 サブメニュー2()
 条件 (&G文字キー=#jis("3")) 手続き実行 サブメニュー3()
 条件 (&G文字キー=#jis("4")) 手続き実行 サブメニュー4()
 条件 (&G文字キー=#jis("5")) 手続き実行 サブメニュー5()
 条件 (&G文字キー=#jis("6")) 手続き実行 サブメニュー6()
 条件 (&G文字キー=#jis("7")) 手続き実行 サブメニュー7()
 条件 (&G文字キー=#jis("8")) 手続き実行 サブメニュー8()
 条件 (&G文字キー=#jis("9")) 手続き実行 サブメニュー9()
 条件 (&G文字キー=#jis("0")) 手続き実行 サブメニュー0()
手続き定義終了


15748 Re:メニューから1キーでボタンを選択 Ogo 2002/04/17-19:02
記事番号15747へのコメント

もちろん、メニューフォームに配置するコマンドボタンの設定は以下のようになります
(前述の *.kev と同一内容にするのがポイント/もちろん、この「サブメニュー1」というサブルーチンは
前記 *.kev の中に存在するのが基本だから、場合によってはそのサブルーチンの中で *.CMD
ファイルを新たに開く必要があるかも知れません)。

コマンドボタン1

表題:サブメニュー1
機能名:手続き実行 パラメーター:サブメニュー1

# *.kev と *.cmd で制限がやたらに異なるのはなんとか
# ならんのかな〜>K3


15756 Re:メニューから1キーでボタンを選択 かず 2002/04/18-13:45
記事番号15748へのコメント
Ogoさん、早速のレスありがとうございました。
ご丁寧にイベントまで書いてくださいまして、感謝に堪えません。
イベント自体はまだ学び始めたばかりですが、何とか分かります。
これを使わせていただきます。

戻る