Die wird euch nicht gefallen, aber: (Das meiste/alles stammt von euch - Danke.)
Ist zwar noch nicht ganz das was ich haben wollte (das mit der festgelegten Anzahl an Lines), aber tzd vielen Dank.
VB.NET-Quellcode
- Private Sub NameÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NameÄndernToolStripMenuItem.Click
- If ToolStripTextBox1.Text = "" Then
- MessageBox.Show("Bitte geben Sie dem Bild einen Namen. Ein freies Feld ist nicht erlaubt.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- Else
- Select Case MsgBox("Sind Sie sicher, dass Sie den Namen des Bildes von " & Variablen.Name & " zu " & ToolStripTextBox1.Text & " ändern wollen?", MsgBoxStyle.YesNo, "Sind Sie sich sicher?")
- Case MsgBoxResult.Yes
- Try
- Dim lines() = IO.File.ReadAllLines(Liste)
- Dim i As ListViewItem
- i = Form1.ListView1.SelectedItems(0)
- If lines.Count > 1 Then
- lines(1) = ToolStripTextBox1.Text & "~" & i.SubItems.Item(1).Text & "~" & i.SubItems.Item(2).Text & "~" & i.SubItems.Item(3).Text
- End If
- IO.File.WriteAllLines(Liste, lines)
- Dim frm As New Form1
- frm.Show()
- Form1.Close()
- Me.Close()
- MessageBox.Show("Erfolgreich geändert!", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Catch ex As Exception
- MessageBox.Show("Etwas ist schief gelaufen!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End Select
- End If
- End Sub
Ist zwar noch nicht ganz das was ich haben wollte (das mit der festgelegten Anzahl an Lines), aber tzd vielen Dank.