带有提交按钮的 Visual Basic 单选按钮答案

【问题标题】：Visual Basic Radio Buttons with Submit Button带有提交按钮的 Visual Basic 单选按钮
【发布时间】：2014-10-20 05:52:01
【问题描述】：

我希望用户单击单选按钮，然后单击提交按钮。按下提交按钮后，它会更改文本框值。但是 Visual Studio 告诉我我需要使用“引发的事件”。我不知道如何使用它，或者甚至需要它？代码如下：

   Private Sub create_Click(sender As Object, e As RoutedEventArgs)
        If RadioButton1.Checked = True Then
            Me.creflag.Text += "1"

        ElseIf RadioButton2.Checked = True Then
            Me.creflag.Text += "4224"

        ElseIf RadioButton3.Checked = True Then
            Me.creflag.Text += "2"

        ElseIf RadioButton4.Checked = True Then
            Me.immune.Text += "619659263"
            Me.typeflag.Text += "4"
        End If
    End Sub

【问题讨论】：

将此添加到您的子.. 处理 mybutton.Click
你的button叫什么名字（我猜是create）？它真的是Button 对象还是别的什么？
添加句柄似乎不起作用。是的，按钮的名称是“创建”。我相信它只是一个标准的按钮对象。
如果它只是标准按钮，请将RoutedEventArgs 更改为EventArgs，因为你不/不能使用它，我猜......并添加处理程序Handles create.Click
添加了它，但仍然给我错误。如果有任何用途，这里是 xaml：

标签： vb.net

【解决方案1】：

在您的 XAML 标记中

.... Click="Button_Click"

这意味着您需要有一个名为 Button_Click 而不是 create_Click 的 RouterEventHandler

Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
    If RadioButton1.Checked = True Then
        Me.creflag.Text += "1"

    ElseIf RadioButton2.Checked = True Then
        Me.creflag.Text += "4224"

    ElseIf RadioButton3.Checked = True Then
        Me.creflag.Text += "2"

    ElseIf RadioButton4.Checked = True Then
        Me.immune.Text += "619659263"
        Me.typeflag.Text += "4"
    End If
End Sub

See MSDN docs and examples

【讨论】：

【解决方案2】：

好的，所以我发现我正在将 Windows 窗体和 WPF 混合在一起。在 Windows 窗体中它是 .Checked 但在 WPF 中这是一个事件，因此它给了我错误。 WPF中正确的方式是.IsChecked

最终代码：

Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs) Handles Button.Click
    If RadioButton1.IsChecked = True Then
        Me.creflag.Text += "1"

    ElseIf RadioButton2.IsChecked = True Then
        Me.creflag.Text += "4224"

    ElseIf RadioButton3.IsChecked = True Then
        Me.creflag.Text += "2"

    ElseIf RadioButton4.IsChecked = True Then
        Me.immune.Text += "619659263"
        Me.typeflag.Text += "4"
    End If
End Sub

【讨论】：