Hallo,
heute zum ersten mal, soweit ich mich erinnern kann, versuche ich mich an einer Checklistbox.
Mein Code Funktioniert... aber dennoch beschleicht mich das Gefühl, dass dies recht pervers is, was ich da konstruiert hab Was meint Ihr dazu?
Viele Grüße
Michl
heute zum ersten mal, soweit ich mich erinnern kann, versuche ich mich an einer Checklistbox.
Mein Code Funktioniert... aber dennoch beschleicht mich das Gefühl, dass dies recht pervers is, was ich da konstruiert hab Was meint Ihr dazu?
Viele Grüße
Michl
VB.NET-Quellcode
- Private Sub CheckboxListenChecken()
- Dim _str As String = BS_abgelegt_BSArtenTextBox.Text
- Dim strArr() As String = _str.Split(";")
- For i As Integer = 0 To CheckedListBox1.Items.Count - 1
- For Each element As String In strArr
- If CheckedListBox1.Items(i).ToString = element Then
- CheckedListBox1.SetItemCheckState(i, CheckState.Checked)
- End If
- Next
- Next
- End Sub
- Private Sub speichern()
- Try
- Dim _clbS() As Char
- For x = 0 To CheckedListBox1.CheckedItems.Count - 1
- _clbS = _clbS & CheckedListBox1.CheckedItems(x).ToString & ";"
- Next
- BS_abgelegt_BSArtenTextBox.Text = _clbS
- Me.Validate()
- Me.Metalpruefungen_abgelegtBindingSource.EndEdit()
- Me.TableAdapterManager.UpdateAll(Me.MSDB2DataSet)