1
Ftp.OCX Progressbar
Hallo ich arbeite mit dem OCX von http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=56998 ...
scheint ganz gut zu laufen...
Nun wollte ich es in mein Projekt übernehmen und soweit klappt es auch nur die Progressbar macht faxen....
Ursprung scheint progressbar1.max = total.
Der Wert Total wird bei meinem Projekt nicht sauber übergeben.
so siehts bei mir aus... Ich hab aus dem Projekt von der Webseite ein OCX erstellt und es als Komponente eingebunden...
Die Progressbar ist am Anfang gleich voll wie gesagt ich denke es liegt am Total Wert
MfG Copro
scheint ganz gut zu laufen...
Nun wollte ich es in mein Projekt übernehmen und soweit klappt es auch nur die Progressbar macht faxen....
Ursprung scheint progressbar1.max = total.
Der Wert Total wird bei meinem Projekt nicht sauber übergeben.
con = FTP1.Connect("text", "ftp.server.com", "21", "user", "pass")FTP1.DownloadFile "server-datei", App.Path & "local-datei"Private Sub FTP1_Progress(Total As Long, Current As Long) On Error Resume Next ProgressBar1.Max = Total ProgressBar1.Value = Current Label1.Caption = CurrentEnd Subso siehts bei mir aus... Ich hab aus dem Projekt von der Webseite ein OCX erstellt und es als Komponente eingebunden...
Die Progressbar ist am Anfang gleich voll wie gesagt ich denke es liegt am Total Wert
MfG Copro
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 28820
Url: https://administrator.de/contentid/28820
Ausgedruckt am: 25.11.2024 um 21:11 Uhr
1 Kommentar
Hi,
ich würde Ihnen gerne Helfen, aber mit dem Codeschnipsel kann ich leider nur wenig anfangen.
Die Zuweisung der Variablen und die Initialisierung fehlen.
Es ist auch wenig hilfreich "On Error Resume Next" zu verwenden wenn man auf Fehler suche ich. Verwenden Sie hier doch z.B.:
On Error Goto ERR_SUB
Ihr Code
EXIT_SUB:
Exit Sub
ERR_SUB:
msgbox "Fehler " & err.number & vbcrlf & err.description
Resume EXIT_SUB
ich würde Ihnen gerne Helfen, aber mit dem Codeschnipsel kann ich leider nur wenig anfangen.
Die Zuweisung der Variablen und die Initialisierung fehlen.
Es ist auch wenig hilfreich "On Error Resume Next" zu verwenden wenn man auf Fehler suche ich. Verwenden Sie hier doch z.B.:
On Error Goto ERR_SUB
Ihr Code
EXIT_SUB:
Exit Sub
ERR_SUB:
msgbox "Fehler " & err.number & vbcrlf & err.description
Resume EXIT_SUB
