オプションボタンの選択を取り消すには？ (ID:82176)

名前

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

本文 とりあえずもっとも安直な方法・・・ Private m_bPassive As Boolean Private Sub optTest_Click(Index As Integer) Dim intA As Integer If m_bPassive Then m_bPassive = False Exit Sub End If intA = MsgBox("ほんとに変更する？", vbYesNo, "ほんとに？") If intA = vbNo Then m_bPassive = True If optTest(0).Value = True Then optTest(1).Value = True ElseIf optTest(1).Value = True Then optTest(0).Value = True End If End If End Sub Design 時にどっか一個の OptionButton を on しておくか、code 内で set する場合はその前に m_bPassive = True してから set すること。 うっわぁ〜ださださぁ・・・ なんかもっと smart な方法はないのかよ・・・