DUVIDA PROGRESSBAR

SABIDAOXD 22/03/2011 13:14:42
#368780
Ae gente como que faz a progressbar indicar o progresso de cópia de um arquivo com o [Ô]filecopy[Ô]? ou se alguem sabe outra forma obrigado
RODRIGOFERRO 22/03/2011 13:26:27
#368783 Resposta escolhida
porque nao usar uma função para isso ?

segue exemplo !

        Private Function CopyFile(ByVal OldFile As String, ByVal NewFile As String)
            Me.FileProgressbar.Value = 0
            Dim FS As New FileStream(OldFile, FileMode.Open)
            Dim FW As New FileStream(NewFile, FileMode.CreateNew)
            Dim Buffer() As Byte
            [ô]Get the bytes from file to a byte array
            ReDim Buffer(FS.Length - 1)
            Me.FileProgressbar.Maximum = FS.Length
            FS.Read(Buffer, 0, Buffer.Length)
            [ô]Do your stuff :-)
            For i As Int32 = 0 To Buffer.Length - 1
                Me.FileProgressbar.Value += 1
                FW.WriteByte(Buffer(i))
                Me.TotalProgressbar.Value += 1
            Next
            FS.Close()
            FW.Close()
        End Function


abraços
Tópico encerrado , respostas não são mais permitidas
Voltar