Visual Basic.NET - Ayuda con DevExpress ProgressBarControl en vb.net

 
Vista:
Imágen de perfil de Angel G
Val: 8
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ayuda con DevExpress ProgressBarControl en vb.net

Publicado por Angel G (3 intervenciones) el 25/05/2019 05:26:37
Hola,Me presento me llamo Angel y hoy vengo a este foro a ver si me pueden ayudar

Verán estoy trabajando en un proyecto con DevExpress. y no se como funciona unos de sus controles llamado
ProgressBarControl, lo necesito para mostrar el progreso de descarga de un archivo... si alguien me puede ayudar
que sepa usar DevExpress se lo agrederia mucho.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 2.160
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ayuda con DevExpress ProgressBarControl en vb.net

Publicado por Phil Rob (531 intervenciones) el 25/05/2019 11:55:35
Hola,

Este es un ejemplo del uso con la copia de un archivo en moda binaria porque solo es significativo para un gran archivo :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CopiarArchivoBinary()
 
    Dim CantidadBytePorEjecucion As Long = 2000
    Dim CantidadByteLeido As Long
    Dim MemoryTmp(CantidadBytePorEjecucion) As Byte
 
    Dim NombreArchivoOrigen As String = "D:\Tmp\Media\CheckList.mp4"    '± 14 Mo.
    Dim NombreArchivoObjectivo As String = "D:\Tmp\Media\CheckListNEW.mp4"
 
    Dim ArchivoOrigen As New FileStream(NombreArchivoOrigen, FileMode.Open, FileAccess.Read)
    Dim ArchivoObjectivo As New FileStream(NombreArchivoObjectivo, FileMode.Create, FileAccess.Write)
 
    ProgressBar1.Minimum = 0
    ProgressBar1.Maximum = FileLen(NombreArchivoOrigen)
    ProgressBar1.Value = 0
 
    Do
        CantidadByteLeido = ArchivoOrigen.Read(MemoryTmp, 0, CantidadBytePorEjecucion)
        ArchivoObjectivo.Write(MemoryTmp, 0, CantidadByteLeido)
        ProgressBar1.Value += CantidadByteLeido
    Loop Until CantidadByteLeido < CantidadBytePorEjecucion
 
    ArchivoObjectivo.Close()
    ArchivoOrigen.Close()
 
End Sub

Saludos

ProgressBar1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Angel G
Val: 8
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ayuda con DevExpress ProgressBarControl en vb.net

Publicado por Angel G (3 intervenciones) el 26/05/2019 22:29:15
De verdad te lo Agradezco Mucho...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar