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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 28820
Url: https://administrator.de/contentid/28820
Printed on: April 25, 2024 at 08:04 o'clock
1 Comment
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
