Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

komisches problem
Autor: eclere
Datum: 03.04.02 17:44
hallo, ich schon wieder. ich hab hier etwas sehr sehr komisches. beim code unten soll eine progressbar während den suchen eingeblendet werden. das klappt auch, aber... sie läuf 2x durch. ich versteh nicht was ich da falsch mache. kann mir jemand sagen warum? gruss eclere der code: Private Sub Tree_SelectionChange(Folder As CCRPFolderTV6.Folder, PreChange As Boolean, Cancel As Boolean) PicWait.Visible = True PicWait.Refresh pbScan.Value = 0 Dim Extension As String Dim Filename As String Dim ItemFound As Boolean Dim FileInfo As modID3.Info If Mid(Folder.FullPath, 3, 1) <> "\" Then PicWait.Visible = False PicNone.Visible = True Exit Sub End If flMusic.Path = Folder.FullPath If Right(Folder.FullPath, 1) = "\" Then Realpath = flMusic.Path Else Realpath = flMusic.Path & "\" End If lvFiles.ListItems.Clear If flMusic.ListCount > 0 Then pbScan.Max = flMusic.ListCount End If For i = 0 To flMusic.ListCount pbScan.Value = i Filename = flMusic.List(i) Extension = LCase(Right(Filename, 4)) If Extension = ".mp3" Or Extension = ".wma" Then lvFiles.ListItems.Add , , Filename ItemFound = True FileInfo = modID3.GetID3(Realpath & Filename) lvFiles.ListItems(lvFiles.ListItems.Count).SubItems(1) = FileInfo.sTitle lvFiles.ListItems(lvFiles.ListItems.Count).SubItems(2) = FileInfo.sArtist lvFiles.ListItems(lvFiles.ListItems.Count).SubItems(3) = FileInfo.sAlbum End If Next PicNone.Visible = Not ItemFound PicWait.Visible = False End Sub

komisches problem	65	eclere	03.04.02 17:44
Re: komisches problem	225	Dieter	03.04.02 17:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen