Hallo zusammen,
ich bastle an einer kleinen Benutzeroberfläch und lese mir dazu Daten aus einer INI-Datei Daten in eine Listbox ein.
Möchte der Benutzer einen Eintrag aus der Listbox löschen funktioniert dies auch in der Listbox und in der INI-Datei.
Das ändern des Indexes in der ListBox funktioniert auch, aber genau hier habe ich mein Problem:
Der Item+1 der Listbox soll auch im Namen der Sektion in der INI-Datei enthalten sein, damit der Name nur einmal vorkommt.
Wie kann ich den Namen meiner Sektion in der INI-Datei wieder an die Listbox anpassen.
Hier ein Ausschnitt aus der INI-Datei:
[GRID1_2] --> der zu ändernde Namen nach dem löschen !!!
Name=SPALTE2
ITyp=SPALTE
BREITE=200
IQUELLE=test1
LABEL=zweit Spalte
IALIAS=zweite Spalte
[GRID1_3]
Name=SPALTE3
ITyp=SPALTE
BREITE=20
IQUELLE=test1
LABEL=dritte Spalte
IALIAS=dritte Spalte
Hier mein Code zum lösche des Eintrages in der Listbox und in der INI-Datei
Kann irgend jemand helfen?
Danke im voraus
Krebsbachbub
ich bastle an einer kleinen Benutzeroberfläch und lese mir dazu Daten aus einer INI-Datei Daten in eine Listbox ein.
Möchte der Benutzer einen Eintrag aus der Listbox löschen funktioniert dies auch in der Listbox und in der INI-Datei.
Das ändern des Indexes in der ListBox funktioniert auch, aber genau hier habe ich mein Problem:
Der Item+1 der Listbox soll auch im Namen der Sektion in der INI-Datei enthalten sein, damit der Name nur einmal vorkommt.
Wie kann ich den Namen meiner Sektion in der INI-Datei wieder an die Listbox anpassen.
Hier ein Ausschnitt aus der INI-Datei:
[GRID1_2] --> der zu ändernde Namen nach dem löschen !!!
Name=SPALTE2
ITyp=SPALTE
BREITE=200
IQUELLE=test1
LABEL=zweit Spalte
IALIAS=zweite Spalte
[GRID1_3]
Name=SPALTE3
ITyp=SPALTE
BREITE=20
IQUELLE=test1
LABEL=dritte Spalte
IALIAS=dritte Spalte
Hier mein Code zum lösche des Eintrages in der Listbox und in der INI-Datei
Code:
Try '// Löschen der Section (Spalte) in der INI-Datei If INIDelete(txtFile.Text.ToString, lstboxSpalten.SelectedItem.ToString()) = True Then 'Eintrag in der Listbox löschen Dim i As Integer Dim sText As String ' der Variable sText Inhalt der TextBox zuweisen sText = lstboxSpalten.SelectedItem.ToString() ' ListBox durchsuchen und ... For i = 0 To lstboxSpalten.Items.Count - 1 If lstboxSpalten.Items(i) = sText Then ' ... falls gefunden Eintrag löschen lstboxSpalten.Items.RemoveAt(i) Exit For End If Next i lstboxSpalten.Refresh() lstboxSpalten.SelectedIndex = 0 Else MessageBox.Show("Fehler beim Löschen!!") End If Catch ex As Exception MessageBox.Show("Fehler: ", ex.ToString) End Try
Danke im voraus
Krebsbachbub
Comment