117553
May 12, 2016
1045
4
0
Pfad conste flexibel gestalten aus Textbox heraus
Hallo zusammen,
in folgendem Code würde ich gerne Pfad flexibler gestalten, das dieser aus Textboxen ausgelesen und abgeändert werden kann, wie könnte ich das am besten umsetzen?
PATH = TextBox1.Text lässt er wegen der const nicht zu
Public Class Form1
Const PATH = "C:\"
Const PATHp = "D:\"
Const PATHa = "C:\"
Private Sub comboFolder_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder.SelectedItem).ToArray())
End Sub
Private Sub comboFolder2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder2.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder2.SelectedItem).ToArray())
End Sub
Private Sub comboFolder3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder3.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder3.SelectedItem).ToArray())
End Sub
Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
comboFolder.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATH).ToArray())
comboFolder2.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHp).ToArray())
comboFolder3.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHa).ToArray())
End Sub
Private Sub lbFiles_DoubleClick(sender As Object, e As EventArgs) Handles lbFiles.DoubleClick
If lbFiles.SelectedIndex <> -1 Then
Try
Process.Start(lbFiles.SelectedItem)
Catch ex As Exception
MsgBox("Fehler : " & ex.Message)
End Try
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Size = New System.Drawing.Size(879, 630)
' vergrößern und Textboxen anzeigen
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Textboxen Pfad neu initialisieren und wieder verkleinern
Me.Size = New System.Drawing.Size(879, 486)
End Sub
End Class
in folgendem Code würde ich gerne Pfad flexibler gestalten, das dieser aus Textboxen ausgelesen und abgeändert werden kann, wie könnte ich das am besten umsetzen?
PATH = TextBox1.Text lässt er wegen der const nicht zu
Public Class Form1
Const PATH = "C:\"
Const PATHp = "D:\"
Const PATHa = "C:\"
Private Sub comboFolder_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder.SelectedItem).ToArray())
End Sub
Private Sub comboFolder2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder2.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder2.SelectedItem).ToArray())
End Sub
Private Sub comboFolder3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles comboFolder3.SelectedIndexChanged
lbFiles.Items.Clear()
lbFiles.Items.AddRange(My.Computer.FileSystem.GetFiles(comboFolder3.SelectedItem).ToArray())
End Sub
Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
comboFolder.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATH).ToArray())
comboFolder2.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHp).ToArray())
comboFolder3.Items.AddRange(My.Computer.FileSystem.GetDirectories(PATHa).ToArray())
End Sub
Private Sub lbFiles_DoubleClick(sender As Object, e As EventArgs) Handles lbFiles.DoubleClick
If lbFiles.SelectedIndex <> -1 Then
Try
Process.Start(lbFiles.SelectedItem)
Catch ex As Exception
MsgBox("Fehler : " & ex.Message)
End Try
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Size = New System.Drawing.Size(879, 630)
' vergrößern und Textboxen anzeigen
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Textboxen Pfad neu initialisieren und wieder verkleinern
Me.Size = New System.Drawing.Size(879, 486)
End Sub
End Class
Please also mark the comments that contributed to the solution of the article
Content-Key: 304362
Url: https://administrator.de/contentid/304362
Printed on: April 26, 2024 at 12:04 o'clock
4 Comments
Latest comment
Au möhr, dann mach halt aus der Konstanten eine Variable ... X)
Was verstehst du an dem Begriff "Konstante" nicht ?
Konstante = Nicht änderbar mit konstantem Wert
also nimmt man dann eine Variable
Variable = nachträglich änderbar
Dim PATH as String
Konstante = Nicht änderbar mit konstantem Wert
also nimmt man dann eine Variable
Variable = nachträglich änderbar
Tja du solltest der Variablen halt eine initialen Wert zuweisen bevor du sie nutzt, denn deine Comboboxen benutzen ja diese Variable ja in ihren Change-Events, du solltest ihr also z.B. Im Load Event der Form einen Default Wert zuweisen oder sie gleich so initialisieren
p.s. Lernen tut man mit Büchern, Dokumentationen und Tutorials aber nicht indem man solche Grundlagen in Administrator-Foren durchprügelt
Dim PATH as String = "c:\OrdnerXYZ"
p.s. Lernen tut man mit Büchern, Dokumentationen und Tutorials aber nicht indem man solche Grundlagen in Administrator-Foren durchprügelt