tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： RadioButton のチェックが移動したときのイベント
投稿日： 2007/09/10(Mon) 13:26
投稿者： とみぃ
次のような処理を実現したいのですが・・・
   Form1 上に Frame1 があり、その中に Option1, Option2 があります。
   Option1 がチェックされると何らかの処理（ Option1_Click イベント）を行い、
   Option2 がチェックされると何らかの処理（ Option2_Click イベント）を行う。


' VB6 コード
Option Explicit
Private Sub Option1_Click()
  Debug.Print "Option1_Click()"
End Sub
Private Sub Option2_Click()
  Debug.Print "Option2_Click()"
End Sub

同じ事を VB2005 で行いたいです。
上のコードを VB2005 のソースコードの自動アップデーテで行うと
次のようなコードが生成されます。

' VB2005 コード
Option Strict Off
Option Explicit On
Friend Class Form1
  Inherits System.Windows.Forms.Form
    'UPGRADE_WARNING: イベント Option1.CheckedChanged は、フォームが初期化されたとき...
    Private Sub Option1_CheckedChanged(ByVal eventSender As System.Object, _
                    ByVal eventArgs As System.EventArgs) Handles Option1.CheckedChanged
      If eventSender.Checked Then
        Debug.Print("Option1_Click()")
      End If
    End Sub
    'UPGRADE_WARNING: イベント Option2.CheckedChanged は、フォームが初期化されたとき...
    Private Sub Option2_CheckedChanged(ByVal eventSender As System.Object, _
                    ByVal eventArgs As System.EventArgs) Handles Option2.CheckedChanged
      If eventSender.Checked Then
        Debug.Print("Option2_Click()")
      End If
  End Sub
End Class

ここで問題となるのは、
Option Strict を On にしたいということです。
On にしてしまうと eventSender.Checked で
コンパイルエラーが発生してしまいます。

かといって、 If 文をとってしまうと、
Option1 から Option2 にチェックを移動させた時に、
両方のイベントプロシージャが発生してしまいます。

どのように解決すればよいですか？
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。