elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ProgressBar
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ProgressBar  (Leído 2,506 veces)
Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
ProgressBar
« en: 11 Noviembre 2006, 13:35 pm »

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 Desconectado

Mensajes: 334



Ver Perfil
Re: ProgressBar
« Respuesta #1 en: 11 Noviembre 2006, 13:56 pm »

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 Desconectado

Mensajes: 543



Ver Perfil
Re: ProgressBar
« Respuesta #2 en: 11 Noviembre 2006, 16:19 pm »

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.
Meg


Desconectado Desconectado

Mensajes: 462



Ver Perfil
Re: ProgressBar
« Respuesta #3 en: 11 Noviembre 2006, 17:19 pm »

Citar
mmmm ¿que es un Joiner?

 :-\ :-\
En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: ProgressBar
« Respuesta #4 en: 11 Noviembre 2006, 17:32 pm »

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 Desconectado

Mensajes: 543



Ver Perfil
Re: ProgressBar
« Respuesta #5 en: 11 Noviembre 2006, 18:02 pm »

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 Desconectado

Mensajes: 334



Ver Perfil
Re: ProgressBar
« Respuesta #6 en: 11 Noviembre 2006, 19:16 pm »

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

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Ayuda] ProgressBar
Programación Visual Basic
DeSsy 2 3,106 Último mensaje 17 Marzo 2011, 17:46 pm
por DeSsy
[Batch] Progressbar Distinta :oo
Scripting
Geormarsch 0 2,424 Último mensaje 6 Febrero 2012, 19:56 pm
por Geormarsch
Duda sobre progressbar
Java
juancaa 3 3,178 Último mensaje 11 Julio 2012, 14:04 pm
por juancaa
Problema con ProgressBar
Programación Visual Basic
scavdr 2 2,551 Último mensaje 24 Agosto 2012, 21:10 pm
por scavdr
ProgressBar « 1 2 »
.NET (C#, VB.NET, ASP)
rigorvzla 10 9,003 Último mensaje 21 Diciembre 2017, 13:13 pm
por rigorvzla
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines