オプションボタンについて (ID:78811)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 nanashiさんのいうとおり、KeyDownとかKeyPressとかは使えないので、 カーソル移動させない方法は別コンテナに入れるくらいしかないですね。 Frameの中にもうひとつCaptionなし枠なしのFrameを作って、片方の オプションボタンはそのFrame内に入れればそれっぽく見えます。 ちなみに、別Frameに入っていても、双方のオプションボタンの オブジェクト名を同じものにして、それぞれにIndexを振り、 下記のように手動でValue制御さえしてあげれば、あとは普通の オプションボタンとそう変わらない使い勝手になると思います。 Private Sub Option1_Click(Index As Integer) For i = 0 To Option1.UBound If i = Index Then Option1(i).value = True Else Option1(i).value = False End If Next End Sub