Hallo zusammen
Ich hab folgendes Problem, Ich habe ein listview und in diesen soll soll einzelne Wörter eingetragen werden.
doch mein Problem ist Das es Zweimal Eingefügt wird
Meine Frage ist Woher Kommt es und Wie behebe ich es , Natürlich könnte ich einfach alle doppelten items Löschen
Spoiler anzeigen
Ich hab folgendes Problem, Ich habe ein listview und in diesen soll soll einzelne Wörter eingetragen werden.
doch mein Problem ist Das es Zweimal Eingefügt wird
Meine Frage ist Woher Kommt es und Wie behebe ich es , Natürlich könnte ich einfach alle doppelten items Löschen
VB.NET-Quellcode
- Public Sub einlesen_der_Formdaten()
- Dim Eig As List(Of String) = Stunden()
- form.stunden = Eig(0) : form.facher = Eig(1)
- End Sub
- Private Function Stunden() As List(Of String)
- Dim entschluss = Function(wert As String) As String
- Dim jjjj As String = String.Empty
- For uu As Integer = 0 To wert.Length - 3
- If uu Mod (CInt(CStr(wert(wert.Length - 2)) & CStr(wert(wert.Length - 1)))) = 0 Then jjjj &= wert(uu)
- Next
- Return jjjj
- End Function
- Dim a As String = (entschluss(File.ReadAllText(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Fromeig", "Stunden.danii"))))
- 'a = 10=Hallo;c
- Return a.Split("="c).ToList
- End Function
- Public Sub stundenplan_erstellen(a As ListView)
- form.facher.Split(";"c).ToList.ForEach(Sub(c) a.Items.Add(New ListViewItem() With {.Text = c}))
- End Sub