Checkboxen in Groupbox entchecken

  • VB.NET

Es gibt 37 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Checkboxen in Groupbox entchecken

    Hallo Zusammen,

    ich habe ein Groupbox und darin sind mehrere Checkboxen und Textboxen enthalten.

    Ich möchte per Buttonklick alle Textboxen leeren und bei allen Checkboxen den Hacken entfernen. Habe bereits hier im Forum rumgesucht, jedoch funktionieren bei mir die Lösungen nicht und weiß nicht weshalb.

    Hier mein bisheriger Code:

    VB.NET-Quellcode

    1. Private Sub NeueingabeButton_Click(sender As System.Object, e As System.EventArgs) Handles NeuButton.Click
    2. Dim cbFound As CheckBox
    3. For Each ctl As Control In BasisGroupBox.Controls
    4. If TypeOf ctl Is CheckBox Then
    5. cbFound = ctl
    6. cbFound.Checked = False
    7. End If
    8. Next ctl
    10. For Each Textboxenleeren In BasisGroupBox.Controls
    11. If TypeName(Textboxenleeren) = "TextBox" Then
    12. Textboxenleeren.Text = Nothing
    13. End If
    14. Next
    15. End Sub




    Die Textboxen werden geleert, jedoch bei den Checkboxen werden die Hacken nicht entfernt.



    Hat jemand eine Ahnung?

    ...hier mal ein kleiner Anstoß! :D

    Hier für deine CheckBoxen! Jeweils den Wert "False/True" wunschgemäß einstellen!

    VB.NET-Quellcode

    1. For Each CheckBox In Me.Controls.OfType(Of CheckBox)()
    2. CheckBox.Checked = False
    3. Next


    ...und hier dann für deine TextBoxen!

    VB.NET-Quellcode

    1. For Each TextBox In Me.Controls.OfType(Of TextBox)()
    2. TextBox.Clear()
    3. Next

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FreShmaKer“ ()

    @FreShmaker:
    Me.Controls kann's nicht sein, da die CheckBoxen der GroupBox untergeordnet sind.
    Also BasisGroupBox.Controls.

    Nebenbei: Variablennamen sollten keine Typennamen sein.
    CheckBox ist ein Typ. Das erschwert das Erkennen von Shared Properties und normalen Properties.
    Für Iterationsvariablen nimmt man meistens i.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Niko Ortner“ ()

    @Niko Ortner

    Bei mir funktioniert es wunderbar! Ein Fehler gibt es nicht. Ich habe eben auf openbook.de nachgesehen, und dort ist es eine gängige und empfehlenswerte Methode. Selbes zu finden auf MSDN ! :thumbsup:

    Das mit der GroupBox habe ich übersehen, kann der TE aber selbstständig ändern. Die Interaktionsvariable habe ich deshalb nicht umbenannt, da ich es für überflüssig halte. Eine Komplikation zu dieser Variante ist nicht bekannt. Falls doch, bitte ich um Rückmeldung.



    Liebe Grüße....

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FreShmaKer“ ()

    @All: Was, wenn da mehrere GroupBoxen sind, die einzeln behandelt werden sollen?
    @toeller: Gib zunächst Deinem Projekt Option Strict On
    Hier ein Snippet, mit dem Du in einzelnen GroupBoxen die Check- und TextBoxen clearen kannst:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Reset(GroupBox1)
    4. End Sub
    5. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    6. Reset(GroupBox2)
    7. End Sub
    9. Private Sub Reset(BasisGroupBox As GroupBox)
    10. For Each ctl As Control In BasisGroupBox.Controls
    11. If TypeOf ctl Is CheckBox Then
    12. DirectCast(ctl, CheckBox).Checked = False
    13. End If
    14. Next ctl
    15. For Each Textboxenleeren In BasisGroupBox.Controls
    16. If TypeOf Textboxenleeren Is TextBox Then
    17. DirectCast(Textboxenleeren, TextBox).Text = Nothing
    18. End If
    19. Next
    20. End Sub
    21. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @FreShmaker:

    VB.NET-Quellcode

    1. Dim Liste As New List(Of RectangleF)
    3. Private Sub Test() Handles Button1.Click
    4. For Each Rectangle In Liste
    5. Rectangle.DoSomething()
    6. Next
    7. Rectangle.DoSomething()
    8. End Sub
    10. Public Class Rectangle
    12. Public Shared Sub DoSomething()
    14. End Sub
    16. End Class
    18. Public Class RectangleF
    20. Public Sub DoSomething()
    22. End Sub
    24. End Class

    Worin unterscheiden sich jetzt Zeile 5 und Zeile 7?
    Es ist so schwieriger zu erkennen. Und hier ist es noch einfacher, weil es so wenig Code ist.
    Wenn das aber nicht so offensichtlich ist, dass das Rectangle bei Zeile 5 eine Instanz von RectangleF ist, und bei Zeile 7 die Klase gemeint ist, dann kann es leicht zu Verwechslungen kommen.
    Erst recht, wenn man die Klasse noch nicht kennt.
    Z.B. sowas hier:

    VB.NET-Quellcode

    1. Dim Liste As New List(Of WrapperForSomething)
    3. Private Sub Test() Handles Button1.Click
    4. For Each WrapperForSomething In Liste
    5. WrapperForSomething.DoSomething()
    6. Next
    7. End Sub

    Ist es jetzt eine Instanzmethode oder eine Klassenmethode?
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Dann sollte vielleicht @toeller: mal etwas genauer schreiben, was er eigentlich will. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo Zusammen,

    sorry, dass ich mich jetzt erst wieder melde.

    Ich habe den Code von RodFromGermany getestet.
    Da erhalte ich aber leider folgenden Fehler:


    Das Objekt des Typs "System.Windows.Forms.GroupBox" kann nicht in Typ "Microsoft.Office.Interop.Excel.GroupBox" umgewandelt werden.



    Option Strict on kann ich leider nicht setzen, weil da erhalte ich jede Menge Fehler:

    -Fehler 7 "Option Strict On" erfordert, dass alle Variablendeklarationen eine As-Klausel enthalten. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Anfrageformulare\Anfrageformulare\Formular Vorgespannte Granitbrücken.vb 243 13 Anfrageformulare
    -Fehler 15 "Option Strict On" lässt keine impliziten Konvertierungen von Object in Microsoft.Office.Interop.Excel.Worksheet zu. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Anfrageformulare\Anfrageformulare\Formular Vorgespannte Granitbrücken.vb 272 42 Anfrageformulare
    -Fehler 4 "Option Strict On" lässt keine impliziten Konvertierungen von Object in String zu. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Anfrageformulare\Anfrageformulare\Formular Vorgespannte Granitbrücken.vb 69 48 Anfrageformulare
    -Fehler 2 "Option Strict On" lässt keine impliziten Konvertierungen von String in Char zu. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Anfrageformulare\Anfrageformulare\Formular Vorgespannte Granitbrücken.vb 11 25 Anfrageformulare
    Fehler 8 "Option Strict On" lässt Operanden des Typs "Object" für den <>-Operator nicht zu. Verwenden Sie den Is-Operator, wenn Sie die Objektidentität testen möchten. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Anfrageformulare\Anfrageformulare\Formular Vorgespannte Granitbrücken.vb 246 12 Anfrageformulare


    usw.



    Hier mal mein gesamter Code:


    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    2. Imports Microsoft.Office.Interop.Excel 'Musste unter Projekteigenschaften Verweise auf Lokale Kopie auf True umgestellt werden.
    3. Imports MSScriptControl
    4. Imports System.Text.RegularExpressions
    6. Public Class Formular_schwimmende_Granitkugel
    8. Dim exApp As Excel.Application = New Excel.Application()
    9. Dim exwb As Excel.Workbook
    10. Dim exsh As Excel.Worksheet
    12. Dim Wuchten As Excel.Range
    13. Dim Bearbeiter As Excel.Range
    16. Dim Speicherort As Excel.Range
    18. Private Sub Formularausgabe()
    19. With exApp
    20. .Visible = True
    21. exwb = .Workbooks.Open("C:\Test\Fragebogen Schw. Kugel_Granitwerke_mg_12.07.2012.xlsx") 'Hier wurde der Vorlagepfad unter Projekteigenschaft Einstellungen hinterlegt
    22. exsh = CType(exwb.Sheets(1), Worksheet)
    24. Wuchten = exsh.Range("D7")
    25. 'Bearbeiter = exsh.Range("B5")
    29. 'Wuchten.Value =
    31. If AuswuchtenJaCheckBox.Checked = True Then
    32. Wuchten.Value = "X"
    33. End If
    35. 'Bearbeiter.Value = BearbeiterComboBox.Text
    38. exsh.Protect(Password:="") 'Hiermit wird in Excel der Passwortschutz aktiviert ohne Passwort
    39. End With
    40. End Sub
    43. Private Sub Druckfunktion()
    44. With exApp
    45. exsh.Range("A1:D73").PrintOut()
    46. End With
    47. End Sub
    50. Private Sub SpeicherfunktionFreieOrdnerwahl()
    51. Dim varRetVal As Object, Datname As String
    53. Datname = "Test"
    54. varRetVal = exApp.GetSaveAsFilename( _
    55. InitialFilename:=Datname, _
    56. FileFilter:="Microsoft Excel-Dateien (*.xlsx), *.xlsx", _
    57. Title:="Datei speichern unter ... ") 'Überschrift Speicherndialog
    59. If varRetVal = Nothing Then
    60. exApp.Quit()
    61. Exit Sub
    62. End If
    63. exwb.SaveAs(varRetVal)
    64. exApp.Quit()
    65. End Sub
    68. Private Sub ProjektordnerErstellen()
    69. Dim Projektordnerpfad As String
    70. Projektordnerpfad = "C:\Test"
    72. If System.IO.Directory.Exists(Projektordnerpfad) = False Then
    73. System.IO.Directory.CreateDirectory(Projektordnerpfad)
    74. MsgBox("Ordner angelegt unter" & Projektordnerpfad)
    75. Else
    76. MsgBox("Projektordner existiert bereits!")
    77. End If
    78. End Sub
    81. Private Sub SpeicherfunktionImProjektordner()
    82. Dim Dateipfad As String
    83. Dateipfad = "C:\Test\Test.xlsx"
    84. If System.IO.File.Exists(Dateipfad) = False Then
    85. exwb.SaveAs(Dateipfad)
    86. Else
    87. MsgBox("Gleiche Datei existiert bereits!")
    88. End If
    89. End Sub
    91. 'folgende Sub wird bis dato noch nicht benötigt, hier kann Outlook geöffnet und eine Datei angehängt werden.
    92. Private Sub Outlooköffnen()
    93. On Error Resume Next
    94. Dim outl
    95. outl = GetObject(, "Outlook.Application")
    97. If outl <> "Microsoft Outlook" Then
    98. outl = CreateObject("Outlook.Application")
    100. On Error GoTo 0
    101. End If
    102. Dim myMail = outl.CreateItem(0)
    103. myMail.Subject = "TESTMAIL"
    105. Dim myAttch = myMail.Attachments
    106. myAttch.add("C:\Test\vorlage.xltx", 1, 1)
    107. myMail.Save()
    108. myMail.display()
    109. End Sub
    112. Private Sub EmailVersand()
    113. 'exwb.SendMail("", "Anfrage Brücke " & FirmaTextBox.Text & " " & PLZOrtTextBox.Text, False) 'Zwischen den beiden "" kann der E-Mailempfänger eingetragen werden. Wird aus False True gemacht, so wird die E-Mail automatisch versendet.
    114. exwb.SendMail("", DatumDateTimePicker.Value.Year & " - " & DatumDateTimePicker.Value.Month & " - " & DatumDateTimePicker.Value.Day & " Anfrage Brücke " & FirmaTextBox.Text & " " & PLZOrtTextBox.Text, False) 'Zwischen den beiden "" kann der E-Mailempfänger eingetragen werden. Wird aus False True gemacht, so wird die E-Mail automatisch versendet.
    115. End Sub
    117. Private MyLine As Integer = 3
    121. Private Sub NeueingabeButton_Click(sender As System.Object, e As System.EventArgs) Handles NeuButton.Click
    123. Dim Textboxenleeren As Control
    124. For Each Textboxenleeren In AnschriftGroupBox.Controls
    125. If TypeName(Textboxenleeren) = "TextBox" Then
    126. Textboxenleeren.Text = Nothing
    127. End If
    128. Next
    130. For Each Textboxenleeren In KontaktGroupBox.Controls
    131. If TypeName(Textboxenleeren) = "TextBox" Then
    132. Textboxenleeren.Text = Nothing
    133. End If
    134. Next
    138. For Each Textboxenleeren In KugelGroupBox.Controls
    139. If TypeName(Textboxenleeren) = "TextBox" Then
    140. Textboxenleeren.Text = Nothing
    141. End If
    142. Next
    144. For Each Textboxenleeren In BasisGroupBox.Controls
    145. If TypeName(Textboxenleeren) = "TextBox" Then
    146. Textboxenleeren.Text = Nothing
    147. End If
    148. Next
    150. For Each Textboxenleeren In ZubehörGroupBox.Controls
    151. If TypeName(Textboxenleeren) = "TextBox" Then
    152. Textboxenleeren.Text = Nothing
    153. End If
    154. Next
    156. For Each Textboxenleeren In Me.Controls
    157. If TypeName(Textboxenleeren) = "TextBox" Then
    158. Textboxenleeren.Text = Nothing
    159. End If
    160. Next
    161. End Sub
    163. Private Sub SpeichernFreieOrdnerwahlButton_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    164. If InitialienTextBox.Text = Nothing Then
    165. MsgBox("Bitte Initialien eingeben!")
    166. Exit Sub
    167. End If
    169. If ProjektnameTextBox.Text = Nothing Then
    170. MsgBox("Bitte Projektname eingeben!")
    171. Exit Sub
    172. End If
    174. If FirmaTextBox.Text = Nothing Then
    175. MsgBox("Bitte Firma eingeben!")
    176. Exit Sub
    177. End If
    179. Formularausgabe()
    180. SpeicherfunktionFreieOrdnerwahl()
    181. 'ExcelAnfragelisteVorgespannteBrücken()
    182. End Sub
    183. End Class


    Ich möchte eigentlich nur, dass ich alle aktivierten Checkboxen in den Groupbox entchecken. Ich bringe das einfach nicht hin.

    Microsoft.Office.Interop.Excel.GroupBox:
    Offensichtlich verwendest Du Controls, die ich nicht habe. Ersetze die Meinen durch die Deinen.

    toeller schrieb:

    Option Strict on kann ich leider nicht setzen, weil da erhalte ich jede Menge Fehler:
    Beseitige sie.
    If varRetVal = Nothing Then ==> If varRetVal Is Nothing Then
    Dim outl ==> Dim outl As DEIN_TYP_HALT
    usw.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Offensichtlich verwendest Du Controls, die ich nicht habe. Ersetze die Meinen durch die Deinen.
    Ich denke eher, dasses im Excel-Namespace ebenfalls eine Groupbox gibt, und daher ein Namenskonflikt vorliegt.
    Versuch:

    VB.NET-Quellcode

    1. Private Sub Reset(BasisGroupBox As System.Windows.Forms.GroupBox)
    2. '...
    Aber trotzdem Option Strict On!

    Erstmal zwischendurch vielen Dank für eure Hilfe.

    Ich habe jetzt mal das Strict auf On gestellt und bereits einige Fehler beseitigt.
    2 Fehler bekomme ich jedoch noch nicht weg:

    -Fehler 2 Fehler bei der Überladungsauflösung, da keine zugreifbare "<>" mit diesen Argumenten aufgerufen werden kann:
    "Public Shared Operator <>(a As String, b As String) As Boolean": "Option Strict On" lässt keine impliziten Konvertierungen von Microsoft.Office.Interop.Excel.Application in String zu. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Anfrageformulare\Anfrageformulare\Formular Vorgespannte Granitbrücken.vb 248 12 Anfrageformulare

    Diesen Fehler 2 bekomme ich in der Zeile 97:

    VB.NET-Quellcode

    1. If outl <> "Microsoft Outlook" Then

    Außerdem bekomme ich eine Menge Fehler mit folgender Meldung:
    Option Strict ON lässt spätes binden nicht zu.
    Diese Fehler bekomme ich z.B.

    VB.NET-Quellcode

    1. If InStr(sender.Text, ",") > 0 And Asc(e.KeyChar) = 44 Then


    oder auch hier

    VB.NET-Quellcode

    1. Dim myMail = outl.CreateItem(0)

    Hi toeller.

    Ändere deine Methode Outlooköffnen wie folgt:

    VB.NET-Quellcode

    1. ' Importe
    2. Imports Outlook = Microsoft.Office.Interop.Outlook
    3. Imports System.Runtime.InteropServices
    4. Imports System.Reflection
    5. Private Sub Outlooköffnen()
    6. Dim outl As Outlook.Application = GetApplicationObject()
    7. Dim myMail As Outlook.MailItem = DirectCast(outl.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
    8. myMail.Subject = "TESTMAIL"
    9. Dim myAttch As Outlook.Attachments = myMail.Attachments
    10. myAttch.add("C:\Test\vorlage.xltx", 1, 1)
    11. myMail.Save()
    12. myMail.Display()
    13. End Sub
    15. ' Funktion um die Instanz von Outlook zu bekommen.
    16. ' Quelle MSDN
    17. Function GetApplicationObject() As Outlook.Application
    18. Dim application As Outlook.Application
    19. ' Check whether there is an Outlook process running.
    20. If Process.GetProcessesByName("OUTLOOK").Count() > 0 Then
    21. ' If so, use the GetActiveObject method to obtain the process and cast it to an Application object.
    22. application = DirectCast(Marshal.GetActiveObject("Outlook.Application"), Outlook.Application)
    23. Else
    24. ' If not, create a new instance of Outlook and log on to the default profile.
    25. application = New Outlook.Application()
    26. ' folgendes ist eventuell nicht nötig:
    27. ' Dim ns As Outlook.NameSpace = application.GetNamespace("MAPI")
    28. ' ns.Logon("", "", Missing.Value, Missing.Value)
    29. ' ns = Nothing
    30. End If
    31. ' Return the Outlook Application object.
    32. Return application
    33. End Function


    Link zur Quelle

    Gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mono“ ()

    If outl <> "Microsoft Outlook" Then ==> Dim outl As DEIN_TYP_HALT
    If InStr(sender.Text, ",") > 0 And Asc(e.KeyChar) = 44 Then ==> sender ist Object, mach ein DirectCast in den erforderlichen Typ
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!