如何将单选按钮标记为已选中而不执行任何操作？

Question

我有一个带有CheckBox 和RadioButton 控件的表单。当人们点击按钮/框时，它会将结果保存到我的数据库中。稍后，我可能希望其他人检索表单并进行更改或继续使用它。

当我将信息从数据库中拉回一个新的“搜索”表单（看起来与用于提交数据的表单完全一样）时，我希望单选按钮反映它们在保存表单时所处的状态.因此，如果一个框在保存时为 TRUE（选中），我希望它在新表单上显示 TRUE（选中）。

但是，当我使用时

radiobutton.checked = True

它确实将我的按钮标记为已选中...。它的行为也像按钮被再次单击一样。所以我的数据库中有重复的结果。每次打开表单时它都会继续这样做。

所以，我想要一种方法将框标记为已选中（保存时的状态），但不会再次导致事件。

这是一个例子：

str = "SELECT * from OpenEvents WHERE EventID = " & eventId & ""
    Dim cmd6 As OleDbCommand = New OleDbCommand(str, myConnection)
    dr = cmd6.ExecuteReader()
    While dr.Read()
        contactType = dr("ContactType").ToString
        abend = dr("Abend").ToString
        paged = dr("Paged").ToString
        shortSummary = dr("ShortSummary").ToString
        eventNotes = dr("EventNotes").ToString
        impacting = dr("Impacting").ToString
        L1Engaged = dr("L1Engaged").ToString
        L2Engaged = dr("L2Engaged").ToString
        managerEngaged = dr("ManagerEngaged")
        IncTicket = dr("IncTicket").ToString
    End While
    myConnection.Close()

    If contactType = "Call" Then
        CallRadioButton.Checked = True
    ElseIf contactType = "IM" Then
        IMRadioButton.Checked = True
    ElseIf contactType = "Other" Then
        OtherRadioButton.Checked = True
    ElseIf contactType = "Alert" Then
        AlertRadioButton.Checked = True
    Else
    End If

    If abend = "True" Then AbendCheckBox.Checked = True
    If paged = "True" Then PagedYes.Checked = True
    ShortSummaryTextBox.Text = shortSummary
    DetailsTextBox.Text = eventNotes
    If impacting = "True" Then ImpactingYesRadioButton.Checked = True
    If L1Engaged = "True" Then L1YesRadioButton.Checked = True
    If L2Engaged = "True" Then L2YesRadioButton.Checked = True
    If managerEngaged = "True" Then ManagerYesRadioButton.Checked = True
    IncTicketTextBox.Text = IncTicket

Answer 1

只是为了把它变成一个答案：

创建一个在表单加载事件中使用的布尔值。开始时默认为true，加载完成后设置为false。

在每个无线电/检查事件中检查值，如果为真则退出子，否则执行它应该做的任何事情。

最好的问候。

Answer 2

您可以使用Click 事件代替CheckedChanged 事件。

这样做，如果您想引发链接到 RadioButton 的事件，您可以使用 PerformClick 而不是 Checked = True。

如果您想在不引发事件的情况下更改检查状态，可以使用Checked = True。

这里有一个小例子：

Private Sub RadioButton1_Click(sender As Object, e As EventArgs) Handles RadioButton1.Click, RadioButton2.Click, RadioButton3.Click
    Select Case sender.name
        Case Is = "RadioButton1"
            Me.Label1.BackgroundColor = Color.Yellow
            Me.Label2.BackgroundColor = Color.Gray
            Me.Label3.BackgroundColor = Color.Gray
        Case Is = "RadioButton2"
            Me.Label1.BackgroundColor = Color.Gray
            Me.Label2.BackgroundColor = Color.Yellow
            Me.Label3.BackgroundColor = Color.Gray
        Case Is = "RadioButton3"
            Me.Label1.BackgroundColor = Color.Gray
            Me.Label2.BackgroundColor = Color.Gray
            Me.Label3.BackgroundColor = Color.Yellow
    End Select
End Sub

Private Sub Btn_ChangeSelected_Click(sender As Object, e As EventArgs) Handles Btn_ChangeSelected.Click
    Me.RadioButton1.Checked = True
End Sub

Private Sub Btn_PerformClick_Click(sender As Object, e As EventArgs) Handles Btn_PerformClick.Click
    Me.RadioButton1.PerformClick()
End Sub

如果您单击 Btn_ChangeSelected RadioButton1 将被选中，但不会引发任何事件。

如果您单击 Btn_PerformClick RadioButton1 将被选中并引发 RadioButton1.click 事件。

Answer 3

我会将表单关闭事件中单选按钮的状态保存到 my.settings 并在表单加载事件中读取所有内容。这样您就可以在退出程序之前保留单选按钮的最后设置。

Answer 4

就我而言，我最终将代码从

_CheckedChanged 

事件，这是从设计视图中单击控件时的默认设置

_MouseClick

事件。解决了我所有的问题。似乎默认设置有点愚蠢，但吸取了教训。现在一切都按我的需要工作。

感谢大家的意见！！！