Wie markiere ich ein Optionsfeld als überprüft, ohne dass eine Aktion ausgeführt wurde?

Question

Ich habe ein Formular mit CheckBox und RadioButton Kontrollen. Wenn Leute auf die Knöpfe/Kästchen klicken, werden die Ergebnisse in meiner Datenbank gespeichert. Später möchte ich vielleicht, dass jemand anderes das Formular abruft und Änderungen vornimmt oder es weiter verwendet.

Wenn ich die Informationen aus der Datenbank in ein neues "Such" -Formular zurückverwandele (das genau so aussieht wie das Formular, das zum Übermitteln der Daten verwendet wird), sollen die Optionsfelder den Zustand wiedergeben, in dem sie sich befanden Gerettet. Wenn also eine Box beim Speichern TRUE (markiert) wurde, möchte ich, dass sie auf dem neuen Formular TRUE (markiert) anzeigt.

JEDOCH wenn ich

radiobutton.checked = True 

Es macht meine Taste markieren, wie geprüft .... es wirkt auch wie die Taste erneut geklickt wurde. Also habe ich doppelte Ergebnisse in meiner Datenbank. Es wird dies jedes Mal tun, wenn das Formular geöffnet wird.

Also, ich möchte eine Möglichkeit, die Box als markiert markiert (der Zustand, in dem es war, wenn gespeichert), aber nicht das Ereignis erneut verursachen.

Hier ist ein Beispiel:

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

Sie könnten Click Ereignis statt CheckedChanged Ereignis verwenden.

Wenn Sie das Ereignis, das mit dem RadioButton verknüpft ist, auslösen möchten, können Sie PerformClick statt Checked = True verwenden.

Wenn Sie den aktivierten Status ändern möchten, ohne das Ereignis zu erhöhen, können Sie Checked = True verwenden.

Hier ein kleines Beispiel:

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 

Wenn Sie auf Btn_ChangeSelected RadioButton1 geprüft werden, aber kein Ereignis ausgelöst wird.

Wenn Sie auf Btn_PerformClick klicken, wird RadioButton1 aktiviert und das Ereignis RadioButton1.click wird ausgelöst.

Answer 2

Ich würde den Zustand der Radiobuttons in Form Abschlussveranstaltung zu My.Settings speichern, und wieder auf dem Formularladeereignis lesen. Auf diese Weise behalten Sie die letzten Einstellungen Ihrer Radiobuttons vor Verlassen des Programms bei.

Answer 3

Einfach in eine Antwort zu drehen:

einen boolean Erstellen auf Formularladeereignis verwendet werden. Starten Sie den Wert standardmäßig als "true". Wenn der Ladevorgang abgeschlossen ist, legen Sie den Wert auf "false" fest.

Bei jedem Radio/Check-Ereignis überprüfen Sie den Wert, wenn es wahr ist, verlassen Sie einfach das Sub, ansonsten tun Sie, was auch immer es tun soll.

Mit freundlichen Grüßen.

Answer 4

In meinem Fall endete ich von meinem Code nach oben bewegt

_CheckedChanged 

Ereignis, dass der Standard war, wenn sie auf die Steuerung von Entwurfsansicht klicken, auf ein Ereignis

_MouseClick 

. Löste alle meine Probleme. Scheint, es war ein bisschen albern, das war die Vorgabe, aber Lektionen gelernt. Und alle arbeiten so, wie ich jetzt brauche.

Danke für alle Eingabe !!!