Autor
|
Tema: ProgressBar (Leído 2,497 veces)
|
Jareth
Desconectado
Mensajes: 334
|
Hola,tengo dos dudas sobre esto,la primera es que estoy haciendo un joiner y quiero que cuando le den a juntar,el progressbar muestre el estado de la operacion,pero no me sale. Lo otro es que el progressbar del vb es muy feo y he visto que algunos tienen distintos progressbar(ej:cactus joiner)de donde lo sacan? Gracias y saludos.
|
|
|
En línea
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
Se me acaba de ocurrir algo,pero creo que es un poco chapuza,por ejemplo cada cosa que haga el joiner,luego le añado que sume +10 el tamaño del progressbar,asi cuando haga la ultima funcion se completará.
|
|
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
mmmm ¿que es un Joiner?
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
Un joiner junta varios archivos en uno,por ejemplo el server de un troyano con una imagen,mirate en troyanos y virus,Cactus joiner. Joiner=Binder. Es mi primer joiner,es muy cutre y junta solo dos archivos,pero es el primero,xD.Bueno a ver si alguien sabe sobre el progressbar. Saludos y gracias.
|
|
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
mira este es parte de un programita que hice para descargar archivos desde un FTP y muestra los bytes descargados a ver si te sirve
Private Sub Inet1_StateChanged(ByVal State As Integer) Dim vtData As Variant 'acá almacenamos los datos Dim prog As Double, filesize As Long, contenttype As String On Local Error GoTo linea1 Select Case State Case icError ' 11 ' En caso de error, devuelve ResponseCode y ResponseInfo. vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo Case icResponseCompleted Dim bDone As Boolean: bDone = False Dim tempArray() As Byte ' Un array para grabar los datos en un archivo 'Para saber el tamaño del fichero en bytes filesize = Inet1.GetHeader("Content-length") 'Establecemos el Max del = a al tamaño del archivo ProgressBar1.Max = filesize contenttype = Inet1.GetHeader("Content-type") 'Creamos y abrimos un nuevo archivo en modo binario Open App.Path & "\" & nArchivo For Binary Access Write As #1
' Leemos de a 1 Kbytes. El segundo parámetro indica el tipo de fichero. Tipo texto o tipo Binario, en este caso _ binario vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents 'Si el tamaño del fichero es 0 ponemos bDone en True para que no entre en el bucle If Len(vtData) = 0 Then bDone = True
Do While Not bDone 'Almacenamos en un array el contenido del archivo tempArray = vtData 'Escribimos el archivo en disco Put #1, , tempArray 'Aumentamos la barra ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2 prog = (ProgressBar1.Value + Len(vtData) * 2) / 1000000 lblDescarga.Caption = "Descargando: " & Format(prog, "0.00") & "MB de " & Format(filesize / 1000000, "0.00") & "MB" ' Leemos de pedazos de a 1 kb (1024 bytes) vtData = Inet1.GetChunk(1024, icByteArray) DoEvents If Len(vtData) = 0 Then bDone = True Loop completo = bDone Close #1 ProgressBar1.Value = 0 End Select Exit Sub linea1: MsgBox "Error al conectarse al servidor" & vbCrLf & vbCrLf & Err.Number & vbCrLf & Err.Description, vbInformation + vbOKOnly, App.EXEName completo = True On Local Error GoTo 0
End Sub
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
Jareth
Desconectado
Mensajes: 334
|
Bueno me he quedado mas o menos con la idea,gracias CeLaYa. Por cierto,ya encontré lo del progressbar distinto,encontré un control de usuario que la barra era verde y otro azul y son distintos,si alguien lo quiere que lo pida. Saludos.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
[Ayuda] ProgressBar
Programación Visual Basic
|
DeSsy
|
2
|
3,097
|
17 Marzo 2011, 17:46 pm
por DeSsy
|
|
|
[Batch] Progressbar Distinta :oo
Scripting
|
Geormarsch
|
0
|
2,401
|
6 Febrero 2012, 19:56 pm
por Geormarsch
|
|
|
Duda sobre progressbar
Java
|
juancaa
|
3
|
3,164
|
11 Julio 2012, 14:04 pm
por juancaa
|
|
|
Problema con ProgressBar
Programación Visual Basic
|
scavdr
|
2
|
2,542
|
24 Agosto 2012, 21:10 pm
por scavdr
|
|
|
ProgressBar
« 1 2 »
.NET (C#, VB.NET, ASP)
|
rigorvzla
|
10
|
8,885
|
21 Diciembre 2017, 13:13 pm
por rigorvzla
|
|