1

これこれを例として 見て、ユーザー入力で作成されるラジオボタンにイベントハンドラーを追加しようとしています。

answerOptionsただし、イベントではないエラーが発生します。

ラジオボタンを作成する

Private answerOptions(n) As RadioButton
...    
Private Sub showQuestion(n As Integer)

For i = 0 To answerOptions.Length - 1
    answerOptions(i) = New RadioButton
    AddHandler answerOptions, AddressOf Me.Radios_Click
    With answerOptions(i)
        ' --------- SET TEXT, LOCATION ETC.
    End With
    Me.Controls.Add(answerOptions(i))
Next
End Sub

イベントの計画と処理

Private Sub Radios_Click(sender As Object, e As EventArgs) Handles answerOptions.checked

End Sub

ラジオがチェックされたときに何かが起こることを望んでいます。一度に 1 つの選択を制限したいので、チェックボックスを使用したくありません。

4

1 に答える 1

1

フォームまたはページでこれを試してください

    Private Sub ClickButton(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim Rbtn As RadioButton
    Rbtn = CType(sender, RadioButton)
    MsgBox(Rbtn.Text)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim i As Integer
    Dim Rbtn As New RadioButton()

    For i = 0 To 19
        Rbtn = New RadioButton()
        With Rbtn
            .Name = "RBtn" & i
            .Text = .Name
            .Checked = False
            .Left = 20
            .Top = (i * 20)
            .Visible = True
            Me.Controls.Add(Rbtn)
            AddHandler Rbtn.Click, AddressOf ClickButton
        End With
    Next

End Sub
于 2012-12-17T02:25:45.017 に答える