Startbildschirm machen

[meilon]

Hi,
ich wollte mir für meinen mp3 Stick ein Programm schreiben, mit dem ich die Musik leichter organisieren kann, d.h. automatische nummerierung, als Ersatz für die Playlist funktion usw.

Nun wollte ich eine Combobox machen, in der alle Laufwerke mit Name aufgeführt werden. Das Problem bei der Sache ist, das es relativ lange dauert (1 bis 2 Sekunden) was aber eigentlich nicht schlimm ist.

Nun wollte ich einen Startbildschirm mit Progressbar und Label machen, der den aktuellen Status anzeigt.

Nur leider wird nix angezeigt! Das Programm macht beim Start eine "Pause" und zeigt dann gleich den Mainscreen. Liegt es daran, dass ich das einlesen in ein Form_Load gepackt habe oder liegt es an den verwendeten API's?

Anbei der Code

mfg

 

[MAN]

Setze einfach am Anfang deiner Form_Load-Funktion ein Aufruf von Me.Show.

Die ProgressBar und das Label kannst du dann aktualisieren lassen, indem du das folgendermaßen machst:

  Drives = Split(Dummy, Chr$(0))
  PBStatus.Max = UBound(Drives) * 2
  PBStatus.Min = 0
  PBStatus.Value = 0
  lblStatus.Caption = "Lade Laufwerksinformationen..."

  For i = 0 To UBound(Drives) - 1
    If GetDriveType(Drives(i)) = DriveType Or DriveType = 0 Then
      lblStatus.Caption = "Laufwerk " & Drives(i) & " gefunden..."
      lblStatus.Refresh
      PBStatus.Value = PBStatus.Value + 1
      PBStatus.Refresh
      sDrives = sDrives & Left$(Drives(i), 1) & "#+#"
    End If
  Next i

  GetAllDrives = sDrives

mfG,
MAN

 

[meilon]

Danke

Funktioniert!

mfg