vb6 listbox

Soulcatcher · 23.04.2005

moin, wie kann ich das dirlist, drivelist und das filelistfeld miteinander verknüpfen? finde darauf leider selbst im handbuch keine antwort..

Private Sub Dir1_Change()

End Sub

Private Sub Drive1_Change()

End Sub

Private Sub File1_Click()

End Sub

ReinerZ · 23.04.2005

Hallo,

folgender Code müsste funktionieren:

Code:

Private Sub Dir1_Change()
 File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
 Dir1.Path = Drive1.Drive
End Sub

Gruss

Reiner

Alexander16 · 23.04.2005

Hi

Habe es noch vervollständigt und verbessert.

Code:

Private Sub Form_Load()
 -> Beim Programmstart die Ordnerliste auf das
 -> Root-Verzeichnis des Laufwerks setzen.
  
 -> Andernfalls wäre die Ordnerliste auf den Pfad
 -> gesetzt in dem das Programm gestartet wurde.
  
  Call Drive1_Change
End Sub

Private Sub Drive1_Change()
 -> Beim Laufwerkwechsel die Ordnerliste auf das
 -> Root-Verzeichnis des Laufwerks setzen.
  
 -> Andernfalls wäre die Ordnerliste auf den Pfad
 -> gesetzt in dem das Programm gestartet wurde.
  
  Dir1.Path = Drive1.Drive &amp; \
End Sub

Private Sub Dir1_Change()
   File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
 -> Ggf. Slash an den Pfad ranhängen.
  
  Text1.Text = IIf(Right$(File1.Path, 1) &lt;> \, \, ) &amp; File1.FileName
End Sub

Mfg Alexander

Soulcatcher · 23.04.2005

Dir1.Path = Drive1.Drive & \

irgendwo da soll ein fehler sein sagt mir vb...

und im textfeld, wo sonst die dateien angezeigt werden sollen, passiert auch nix...

Alexander16 · 23.04.2005

Hi

Soulcatcher schrieb:
Dir1.Path = Drive1.Drive & \

irgendwo da soll ein fehler sein sagt mir vb...

Komisch, bei mir läuft der Code korrekt. Was für eine Fehlermeldung kommt da?

Soulcatcher schrieb:
und im textfeld, wo sonst die dateien angezeigt werden sollen, passiert auch nix...

Ich habe zwar einen kleinen Fehler im Code gefunden, der dazu führt, dass der Pfad nicht vor den Dateinamen gestellt wird, aber der Dateiname sollte trotzdem angezeigt werden. Bei mir hat es jedenfalls funktioniert.

Hier der korrigierte Codeteil:

Code:

Private Sub File1_Click()
  Dim sPfad As String
  
 -> Ggf. Slash an den Pfad ranhängen.
  sPfad = File1.Path &amp; IIf(Right$(File1.Path, 1) &lt;> \, \, )
  Text1.Text = sPfad &amp; File1.FileName
End Sub

Mfg Alexander

Soulcatcher · 24.04.2005

??? war mein fehler, daß der da nix angezeigt hat, weil ich vorher schon bei pattern was eingetragen hatte, und diese dateien nicht in diesem verzeichnis vorhanden waren. das funktioniert soweit erstmal.

allerdings sollte, wenn ich das jetzt richtig rausgelesen habe, das dirlistfeld zurückgesetzt werden z.b. auf c:\ wenn ich im drivelistfeld auf c wechsel, oder? bei mir steht dann auf jeden fall im dirlistfeld die auflistung vom verzeichnis c:\programme\vb6

und noch was, sobald ich im filelistfeld eine datei anklicke, kommt wieder ne fehlermeldung die auf diese zeile verweist:

Text1.Text = sPfad & File1.FileName

(runtime error 424) object required

Alexander16 · 24.04.2005

Hi

Hast du das aktuelle ServicePack von VB (derzeit Version 6) installiert?
Falls nicht, kannst du es hier runterladen: Klick

Sollte es danach immer noch nicht funktionieren, erstellst du das Projekt nochmal neu. Vielleicht hat sich noch etwas verstellt, beim Rumprobieren.

Mfg Alexander

Soulcatcher · 24.04.2005

hab service pack installiert und projekt neu erstellt, aber wieder die gleichen fehler...

Alexander16 · 24.04.2005

Hi

Schreib mal testweise anstatt

Code:

Text1.Text = sPfad &amp; File1.FileName

dies

Code:

Text1.Text = sPfad

Kommt dann immer noch eine Fehlermeldung beim Ausführen?

Mfg Alexander

Soulcatcher · 24.04.2005

jepp, kommt immer noch die gleiche fehlermeldung

Alexander16 · 25.04.2005

Hi

Erstell mal ein neues Projekt mit einem CommandButton und einer TextBox. Danach klickst du doppelt auf diesen Button und gibst folgenden Code ein:

Code:

Text1.Text = Test

Kommt nun bei diesem Beispiel auch ein Fehler?

Mfg Alexander

Soulcatcher · 26.04.2005

nö, das funktioniert ohne probleme

Soulcatcher · 26.04.2005

ich kann im oberen ohne probleme ein verzeichnis auswählen und im mittleren ohne probleme einen ordner öffnen. aber sobald ich im unteren feld eine datei anklicke, kommt diese fehlermeldung.

Alexander16 · 26.04.2005

Hi

Auf dem Screenshot sehe ich gerade, dass du gar keine TextBox auf dem Formular hast. Füge eine TextBox in das Formular ein, dann müsste es klappen.

Edit:
Habe dir das Projekt mal zusammengestellt.
Website: Klick
Datei: Projekt.zip

Mfg Alexander

Soulcatcher · 26.04.2005

kurioserweise funktioniert das bei mir auch nicht! ich glaub, ich gebs auf...

vb6 listbox

Soulcatcher

ReinerZ

Alexander16

Soulcatcher

Alexander16

Soulcatcher

Alexander16

Soulcatcher

Alexander16

Soulcatcher

Alexander16

Soulcatcher

Soulcatcher

Alexander16

Soulcatcher

vb6 listbox

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums