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
Czemmel
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
Kann irgend jemand helfen?
Danke im voraus
Czemmel