CheckBox, GroupBox

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von menorca.

    CheckBox, GroupBox

    Hi ich suche eine Lösung zu folgendem

    auf einer Form habe ich verschiedene GroupBoxen mit einigen Checkboxen

    wie kann ich per Schleife die GroupBoxen durchlaufen und den Status der darin befindlichen CheckBox auslesen True / False in msgBox

    So listest du alle du alle GroupBoxes auf:

    VB.NET-Quellcode

    1. For Each c As Control In Me.Controls
    2. If TypeOf c Is GroupBox Then
    3. 'das Steuerelement ist eine Groupbox
    4. End If
    5. Next

    Und das selbe machst du dann nochmal für die jeweilige Groupbox, aber diesmal fragst du auf Checkbox ab.

    hallo, hast du das so gemeint

    Quellcode

    1. For Each c As Control In Me.Controls
    2. If TypeOf c Is GroupBox Then
    4. For Each ctrl As Control In c.Controls
    6. If TypeOf ctrl Is CheckBox Then
    7. MsgBox(c.Text)
    8. End If
    9. Next
    10. End If
    13. Next


    jetzt aber nicht alle Gropboxen sondern nur bestimmte

    Prinzipiell ja, aber wenn du in ner MsgBox den Status der CheckBox haben willst, solltest du auch den ausgeben, und nicht den Text der aktuellen GroupBox, wie du es gemacht hast.
    Wenn du nur bestimmte GroupBoxen haben willst, und es nur eine Handvoll sind, dann steck den Code am Besten in eine Funktion, der du das Control übergibst, und ruf die für die GroupBoxen auf.

    Hallo Lupus,

    Danke für deine Anmerkungen.

    zeigst du mir ein Beispiel wie das bei 7 Groupboxen aussehen kann es sind halt 7 Tage einer Woche
    Montag bis Sonntag aus Woche X, die Groupbox hat das Datum und in der Groupbox ist je eine Checkbox.
    wenn der Status (Checked True ist) soll etwas passieren (bei mir soll dann eine Prozedur aufgerufen werden)
    die ich hier nicht angehängt habe, da ich das prüfen in den Groupboxen noch nicht so habe wie ich es brauche.

    Danke für ein Beispiel

    Hallo Forum,

    habe das mit der CheckBox hinbekommen das funktioniert soweit
    ist die Checkbox True wird im Bsp. eine Message ausgegeben.

    Quellcode

    1. '//Checkbox Check
    2. Private Sub CheckBoxCheck(ByVal oContainer As Object, _
    3. Optional ByVal bSubContainerAlso As Boolean = True)
    4. 'Daten auf bereits vorhandenen Datensatz prüfen
    5. If Not IsNothing(oContainer) Then
    6. ' alle Controls des Container-Objekts durchlaufen
    7. For Each oControl As Control In oContainer.Controls
    9. If bSubContainerAlso AndAlso oControl.Controls.Count > 0 Then
    10. CheckBoxCheck(oControl)
    11. Else
    12. ' Sofern es sich um ein CheckBox-Control handelt...
    13. If TypeOf oControl Is CheckBox Then
    14. If DirectCast(oControl, CheckBox).Checked = True Then
    16. 'Befehl ausführen Datensatz prüfen
    17. MsgBox(oContainer.text)
    18. 'Befehl ausführen, speichern oder Update
    20. End If
    21. End If
    22. End If
    23. Next
    24. End If
    25. End Sub


    nun möchte ich so prüfen ob der Datensatz bereits vorhanden ist dann speichern, sonst Update
    damit keine doppelten Einträge gemacht werden
    wie setzt man das um?

    Danke, für eine Verständliche Hilfe

    Evtl. mit einem Dictionary(Of String, Boolean). String wäre der Name der CheckBox, Boolean der Zustand. Dann geht das so

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim checkbox_states As New Dictionary(Of String, Boolean)
    3. Private Sub CheckBoxCheck(ByVal oContainer As Object, _
    4. Optional ByVal bSubContainerAlso As Boolean = True)
    5. 'Daten auf bereits vorhandenen Datensatz prüfen
    6. If Not IsNothing(oContainer) Then
    7. ' alle Controls des Container-Objekts durchlaufen
    8. For Each oControl As Control In oContainer.Controls
    10. If bSubContainerAlso AndAlso oControl.Controls.Count > 0 Then
    11. CheckBoxCheck(oControl)
    12. Else
    13. ' Sofern es sich um ein CheckBox-Control handelt...
    14. If TypeOf oControl Is CheckBox Then
    16. Dim cb As CheckBox = DirectCast(oControl, CheckBox)
    17. ' Überprüfen und speichern
    18. If Not checkbox_states.Contains(cb.Name) Then
    19. ' Gibts noch nicht; neu anlegen
    20. checkbox_states.add(cb.name, cb.checked)
    21. Else
    22. ' Updaten
    23. checkbox_states(cb.name) = cb.Checked
    24. End If
    26. If cb.Checked = True Then
    27. MsgBox(oContainer.text)
    28. End If
    29. End If
    30. End If
    31. Next
    32. End If
    33. End Sub
    34. End Class
    Mit freundlichen Grüßen,
    Thunderbolt

    Hallo Timmi,

    Danke für deine Mühe und Beispiel doch gibst da noch einen Fehler und eine Frage

    wird damit etwa eine CheckBox hinzugefügt? ich will doch Daten prüfen speichern, ändern
    Bilder

    • Unbenannt.gif

      43,1 kB, 1.086×530, 185 mal angesehen

    Jo das wars, doch was soll

    hier eigentlich stehen passieren
    ' Überprüfen und speichern
     ' Gibts noch nicht; neu anlegen
    ' Updaten

    Meine Prüfung sieht derzeit so aus:

    Quellcode

    1. '//
    2. Public Sub _Datenpruefen()
    4. 'Daten auf bereits vorhandenen Datensatz prüfen
    5. Dim mrs As New ADODB.Recordset
    6. Dim mcn As New ADODB.Connection
    8. ''Dim MeinDatum As String = Me.DTPProduktion.Value.ToString("dd.MM.yyyy")
    9. Try
    11. mcn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    12. "Data Source=D:\TPM\Produktionsdaten.mdb")
    14. mrs.Open("SELECT tblProduktion.PDatum, " & _
    15. "tblProduktion.SK, " & _
    16. "tblProduktion.VP, " & _
    17. "tblMaschine.Bezeichnung, " & _
    18. "tblProduktion.MasID, " & _
    19. "tblProduktion.Bemerkung " & _
    20. "FROM tblProduktion LEFT JOIN tblMaschine " & _
    21. "ON tblProduktion.MasID = tblMaschine.MaschineID_P " & _
    22. "WHERE (((tblProduktion.PDatum)=#3/4/2013#) " & _
    23. "AND ((tblProduktion.MasID)=1))", mcn, _
    24. ADODB.CursorTypeEnum.adOpenKeyset, _
    25. ADODB.LockTypeEnum.adLockOptimistic)
    27. If Not (mrs.BOF And mrs.EOF) Then
    29. If Not IsDBNull(mrs.Fields("Bemerkung").Value) Then
    31. MsgBox("Die Maschine: " & mrs.Fields("Bezeichnung").Value & vbCrLf & _
    32. "wurde bereits erfasst!" & vbCrLf & _
    33. "Produktionsdatum: " & mrs.Fields("PDatum").Value & vbCrLf & _
    34. "Schicht: " & mrs.Fields("SK").Value & vbCrLf & _
    35. "Produkte/Stueck: " & mrs.Fields("VP").Value & vbCrLf & _
    36. "Bemerkung: " & mrs.Fields("Bemerkung").Value, MsgBoxStyle.Exclamation, "Daten vorhanden")
    37. Else
    38. MsgBox("Die Maschine: " & mrs.Fields("Bezeichnung").Value & vbCrLf & _
    39. "wurde bereits erfasst!" & vbCrLf & _
    40. "Produktionsdatum: " & mrs.Fields("PDatum").Value & vbCrLf & _
    41. "Schicht: " & mrs.Fields("SK").Value & vbCrLf & _
    42. "Produkte/Stueck: " & mrs.Fields("VP").Value, MsgBoxStyle.Exclamation, "Daten vorhanden")
    43. 'MsgBox("Keine Daten gefunden", MsgBoxStyle.Information, "Daten nicht vorhanden")
    45. End If
    46. End If
    48. mrs.Close()
    49. mrs = Nothing
    50. mcn = Nothing
    52. Catch ex As Exception
    53. MsgBox("Fehler db")
    54. End Try
    56. End Sub


    geht das dann auch so wie ich es meine

    Datensatz hinzufügen mache ich so:
    das gibt es für den Montag bis Sonntag

    Brainfuck-Quellcode

    1. Public Sub _MontagSpeichern()
    2. '#----------------------------------------------------------------- #
    3. '# Deklarationen -------------------------------------------------- #
    4. '#----------------------------------------------------------------- #
    6. Dim con As New OleDbConnection
    7. Dim cmd As New OleDbCommand
    8. Dim cn As New Odbc.OdbcConnection
    10. 'Der sog. ConnectionString, legt Treiber und den Pfad für die Datenbank fest
    11. con.ConnectionString = _
    12. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    13. "Data Source=D:\TPM\Produktionsdaten.mdb"
    15. cmd.Connection = con
    16. 'Verbindung wird geöffnet
    17. con.Open()
    18. 'Prozedur arbeitet Visualisieren
    19. Me.Cursor = Cursors.WaitCursor
    20. 'Variabeln deklarieren
    21. Dim NrJahr As String = Format(DateTimePicker1.Value, "yyyy")
    22. Dim KW As Integer = ISOWoche(DateTimePicker1.Text)
    23. Dim Fruehschicht As Integer = 1
    24. Dim Spaetschicht As Integer = 2
    25. Dim Nachtschicht As Integer = 3
    26. Dim Frueh As String = "F"
    27. Dim Spaet As String = "S"
    28. Dim Nacht As String = "N"
    31. '--------------------------------------------
    32. 'Datensatz Montag F speichern, hinzufügen ---
    33. '--------------------------------------------
    34. cmd.CommandText = "INSERT INTO tblProduktion (PDatum, NrJahr,NrWoche,Schart,Schicht,MasID,VP,VN,VM,SK) " & _
    35. "VALUES ('" & grpbmontag.Text & "','" & NrJahr & "'," & KW & "," & Fruehschicht & "," & _
    36. Me.DS1.Text & "," & Me.CBMaschine.SelectedValue & "," & Me.TBMoFVolumen.Text & "," & _
    37. Me.TBMoFNacharbeit.Text & "," & CDec(Me.TBMoFMitarbeiter.Text) & ",'" & Frueh & "');"
    39. 'Befehl ausführen danach sollten die Daten in der Tabelle sein
    40. cmd.ExecuteNonQuery()
    42. '--------------------------------------------
    43. 'Datensatz Montag S speichern, hinzufügen ---
    44. '--------------------------------------------
    45. cmd.CommandText = "INSERT INTO tblProduktion (PDatum, NrJahr,NrWoche,Schart,Schicht,MasID,VP,VN,VM,SK) " & _
    46. "VALUES ('" & grpbmontag.Text & "','" & NrJahr & "'," & KW & "," & Spaetschicht & "," & _
    47. Me.DS2.Text & "," & Me.CBMaschine.SelectedValue & "," & Me.TBMoSVolumen.Text & "," & _
    48. Me.TBMoSNacharbeit.Text & "," & CDec(Me.TBMoSMitarbeiter.Text) & ",'" & Spaet & "');"
    50. 'Befehl ausführen danach sollten die Daten in der Tabelle sein
    51. cmd.ExecuteNonQuery()
    53. '--------------------------------------------
    54. 'Datensatz Montag N speichern, hinzufügen ---
    55. '--------------------------------------------
    56. cmd.CommandText = "INSERT INTO tblProduktion (PDatum, NrJahr,NrWoche,Schart,Schicht,MasID,VP,VN,VM,SK) " & _
    57. "VALUES ('" & grpbmontag.Text & "','" & NrJahr & "'," & KW & "," & Nachtschicht & "," & _
    58. Me.DS3.Text & "," & Me.CBMaschine.SelectedValue & "," & Me.TBMoNVolumen.Text & "," & _
    59. Me.TBMoNNacharbeit.Text & "," & CDec(Me.TBMoNMitarbeiter.Text) & ",'" & Nacht & "');"
    61. 'Befehl ausführen danach sollten die Daten in der Tabelle sein
    62. cmd.ExecuteNonQuery()
    64. 'Verbindung wieder schließen
    65. cn.Close()
    67. Me.Cursor = Cursors.Default
    68. End Sub

    Hallo zusammen,

    ich gebe zu das ich mein Begehren die Daten zu speichern evtl. etwas kompliziert umgesetzt habe.
    vergesst also obige Code Schnippsel, habe es doch auf die Reihe bekommen und sogar mit meiner Progressbar.
    Daten werden nur gespeichert wenn die CheckBox True ist, und der Datensatz noch nicht vorhanden ist.

    Bei Intresse werde ich das hier hochladen aber im Augenblick ist mir der Code dafür etwas zu lang.

    Wünsche schönen Abend, und Danke an die Thread Teilnehmer

Facebook
Telefonspende