タイトル : 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 にチェックを移動させた時に、 両方のイベントプロシージャが発生してしまいます。 どのように解決すればよいですか? |