Ｐａｇｅ 86 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Keypressによる、オプションボタンの変更 闘魂牧場 02/10/30(水) 12:55 ┗Re:Keypressによる、オプションボタンの変更 イケガミ 02/10/30(水) 14:03 ┗Re:Keypressによる、オプションボタンの変更 闘魂牧場 02/10/31(木) 10:59 ─────────────────────────────────────── ■題名 ： Keypressによる、オプションボタンの変更 ■名前 ： 闘魂牧場 ■日付 ： 02/10/30(水) 12:55 -------------------------------------------------------------------------
| すみません。 オプションボタンのことでうかがわせてください。 現在、 あopt かopt さopt たopt なopt はopt まopt やopt らopt わopt と名前をつけ、 “グループ化した”10個のオプションボタンがあります。 自分の希望しますのは keypressを使用しまして、 "A"を押した際には "あopt"のオプションボタンが選択された状態に、 "K"を押した際には "かopt"のオプションボタンが選択された状態に、 "S"を押した際には "さopt"のオプションボタンが選択された状態に・・・・ といった具合に設定されるようにしたいと考えています。 過去のV3のNO.65ログを見ながら、 1,あoptに データオプション値を１に設定 かoptに データオプション値を２に設定し、 *********************************************************************** Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Is = 97 Me.あopt成績.value = 1 Case Is = 107 Me.かopt成績.value = 2 ************************************************************************ 実行後→オプションボタンが灰がかったままで何もかわらず。 2,自分の持っている本を見ながら *********************************************************************** Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Is = 97 Me.あopt成績 = True Case Is = 107 Me.かopt成績 = True ************************************************************************ 実行後→Me.あopt成績 = Trueのところで 『このｵﾌﾞｼﾞｪｸﾄに値を代入することはできません。』のｴﾗｰ 3,試しに・・・ *********************************************************************** Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Is = 97 Me.あopt成績.enabled = True Case Is = 107 Me.かopt成績.enabled = True ************************************************************************ 実行後→オプションボタンが灰がかったままで何もかわらず。 と以上の３つを試しにしましたが、思ったように作動してくれません。 直接、オプションボタンをクリックする以外に オプションボタンを選択するには、どのように記述すればよろしいのでしょうか？ |
| >“グループ化した”10個のオプションボタンがあります。 >1,あoptに データオプション値を１に設定 > かoptに データオプション値を２に設定し、 >*********************************************************************** >Private Sub Form_KeyPress(KeyAscii As Integer) > Select Case KeyAscii > Case Is = 97 > Me.あopt成績.value = 1 > > Case Is = 107 > Me.かopt成績.value = 2 ************************************************************************ Me.あopt成績.value = 1 のようにするのではなく、 Me.オプションフレーム名 = 1 のようにすれば大丈夫だと思いますけど。。 |
| ▼イケガミ さん アドバイスありがとうございました。 私のほうでもオプショングループに設定しているなど 他にも設定をかけているものがございまして しばらく考えましたところ、 Me.オプショングループ名.value = オプションボタンのオプション値 で希望する動作ができました。 私の場合、”あ”オプションボタンのオプション値を１に設定しておりましたので KEYPRESS時に Me.オプショングループ名.value = 1 で“あ”が選択されるようにできました。 お騒がせいたしまして申し訳ございません。 ありがとうございました。 |