Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Progressbar
Autor: Günni
Datum: 14.10.02 12:40
Hi, ich öffne eine datei binär und möchte die Progressbar mitlaufen lassen. Wie mache ich das??? Kann mir jemand vielleicht mal einen Beispielcode posten??? Wäre echt klasse. Hier meiner Private Sub Command1_Click() Dim FileSize As Long Dim File Dim xxx As String Dim xinput As Long File = FreeFile() Open "C:\SE_C20FI.DTK" For Binary As File ProgressBar1.Min = 0 FileSize = LOF(File) xxx = Space(FileSize) ProgressBar1.Max = FileSize Get #File, , xinput ProgressBar1.Value = xinput Close #File Text1.Text = xinput End Sub mfg Günni

Progressbar	74	Günni	14.10.02 12:40
Re: Progressbar	249	illuminator	14.10.02 13:08

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