ProgessBar

Question

Slt,

Comment utilise t-on la progressbar ??
Avec la fonction : FtpGetFile !!
Pour décomposser la barre et l'incremmeter à chaque fois :)
Aussi que avec une fonction FtpGetFile, comment connaitre le debit de transfert ?

@+ Et Merci bcp

cs_Moria · Answer

Enfaite j'ai un prog ki télécharge un fichier sur un ftp :


Private Sub BtonFtp_Click(Index As Integer)

Screen.MousePointer = 11

Dim n1 As Long, n2 As Long, n3 As Boolean, n4 As Long

LbAv = "Ouverture session Internet"
DoEvents
n1 = InternetOpen("www", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

LbAv = "Connexion serveur FTP"
DoEvents
n2 = InternetConnect(n1, TxtFtp(0), 21, TxtFtp(1), TxtFtp(2), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)

LbAv = "Transfert de fichier"
DoEvents
Select Case Index
    Case 0
        n3 = FtpGetFile(n2, TxtFtp(4), TxtFtp(3), False, INTERNET_FLAG_RELOAD, FTP_TRANSFER_TYPE_ASCII, 0)
End Select

LbAv = "Fermeture connexion serveur"
DoEvents
n4 = InternetCloseHandle(n2)

If n3 Then
    LbAv = "Transfert terminé"
    BtonFtp(0).Enabled = False
    Text3.Text = Text3.Text & "Téléchargement de terminé !!" & vbCrLf
Else
    LbAv = "Transfert non réalisé"
End If

Screen.MousePointer = 0
End Sub


Comment faire pour y incrustrer une progresse bar ? Et connaitre la vitesse de téléchargement...

@+ et merci

ProgessBar

1 réponse

Discussions similaires