Guten Morgen.
Es sind bereits zu viele Stunden vergangen, ohne dass ich auf eine Lösung für mein Problem gekommen bin.
Evtl. kann mir jemand mit einem kleinen "Wink" auf die Sprünge helfen.
Ich möchte, ähnlich wie beim Explorer in Windows 10, einen Dateipfad zerlegen und als Button darstellen, damit ich direkt in ein Verzeichnis wechseln kann.
z.B. soll der Pfad
C:\Users\ADB\Projekte\Programmieren\Buttons
als Button nebeneinander "C:\" -> "Users" -> "ADB" -> "Projekte" -> "Programmieren" -> "Buttons" dargestellt werden. Ein Klick auf "ADB" soll ins Verzeichnis C:\Users\ADB\ wechseln.
Folgenden Code habe ich dafür verwendet:
Mein Prolbem ist, dass wenn ich bespielsweise auf den Button "ADB" klicke, wird nur jede 2. Button entfernt bzw. in die Listbox geschrieben, ob wohl in "Me.Controls" alle Buttons aufgelistet werden.
Wo mache ich da den Denkfehler?
Besten Dank bereits im Voraus.
Gruss ADB
Es sind bereits zu viele Stunden vergangen, ohne dass ich auf eine Lösung für mein Problem gekommen bin.
Evtl. kann mir jemand mit einem kleinen "Wink" auf die Sprünge helfen.
Ich möchte, ähnlich wie beim Explorer in Windows 10, einen Dateipfad zerlegen und als Button darstellen, damit ich direkt in ein Verzeichnis wechseln kann.
z.B. soll der Pfad
C:\Users\ADB\Projekte\Programmieren\Buttons
als Button nebeneinander "C:\" -> "Users" -> "ADB" -> "Projekte" -> "Programmieren" -> "Buttons" dargestellt werden. Ein Klick auf "ADB" soll ins Verzeichnis C:\Users\ADB\ wechseln.
Folgenden Code habe ich dafür verwendet:
VB.NET-Quellcode
- ListBox4.Items.Clear()
- Dim ArrayDerPfad() As String
- ArrayDerPfad = DerPfad.Split(CChar("\"))
- For Each button As Control In Me.Controls
- If TypeOf button Is Button And button.Name.Contains("MyButti") Then
- ListBox4.Items.Add("Delete: " & button.Name.ToString & " -- " & button.Text)
- Me.Controls.Remove(button)
- End If
- Next
- ListBox4.Items.Add("---------------")
- For i As Integer = 1 To ArrayDerPfad.Length - 1
- Dim NeuerButton As New Button
- NeuerButton.AutoSize = True
- NeuerButton.Width = 10
- NeuerButton.Name = "MyButt_" & ZusatzZahl & i
- NeuerButton.Text = ArrayDerPfad(i)
- NeuerButton.FlatStyle = FlatStyle.Flat
- NeuerButton.FlatAppearance.BorderColor = Color.Red
- NeuerButton.ForeColor = Color.Red
- NeuerButton.Location = New Point(X_Position_Button_Pfad, 300)
- Dim myNewArray As String()
- myNewArray = lbl_Pfad_zu_zu_verschiebender_Datei.Text.Split({ArrayDerPfad(i)}, StringSplitOptions.None)
- NeuerButton.Tag = myNewArray(0) & ArrayDerPfad(i)
- ListBox4.Items.Add("Add: " & NeuerButton.Name & " -- " & NeuerButton.Text)
- Me.Controls.Add(NeuerButton)
- NeuerButton.BringToFront()
- X_Position_Button_Pfad = X_Position_Button_Pfad + NeuerButton.Size.Width + 3
- AddHandler NeuerButton.Click, AddressOf MyButt_click
- Next
- X_Position_Button_Pfad = 15
- ZusatzZahl = ZusatzZahl + 1
Mein Prolbem ist, dass wenn ich bespielsweise auf den Button "ADB" klicke, wird nur jede 2. Button entfernt bzw. in die Listbox geschrieben, ob wohl in "Me.Controls" alle Buttons aufgelistet werden.
Wo mache ich da den Denkfehler?
Besten Dank bereits im Voraus.
Gruss ADB