Abr 292020
 

Esta es una versión de este control el cual carecía de la barra de progreso para mostrar un porcentaje era más bien de esos que sólo giran. En esta versión se puede hacer ambas cosas, pero está más abocada a mostrar el progreso, prácticamente con un poco de ingenio se pueden lograr todos los diseños que se ven por la web de este tipo de controles tal como se muestra en la primer imágen; la segunda imágen es la página de propiedades del usercontrol, este sirve sólo para formar una paleta degradada de colores, donde podemos seleccionar y armar nuestra paleta a gusto. el control cuenta con muchas propiedades por lo que es necesario que metan mano y jueguen con éste para aprender para qué sirve cada una, yo no tengo ganas de hacer un archivo de ayuda :), pero mirando los ejemplos es fácil darse cuenta para qué sirve cada una.

ucProgressCircular2020.png
ucProgressCircular2020.png

21/09/21 Actualizado, se corrigió un error en la pagina de propiedades, al cargar el control en otro proyecto fallaba la el método de obtener el nombre del proyecto. Gracias Eduardo por la función GetProjectName

  6 Responses to “ucProgressCircular 2020”

  1. hi,The sample code I use is as follows
    I want the progress to be in animation mode from before checking the connection with the host until returning the result of the connection with the host, but the animation does not work, how can I solve this problem?

  2. ucp.ShowAnimation = True
    DoEvents
    Sleep 100
    ht.Send aaa
    ht.WaitForResponsetext


  3. Private Sub Form_Load()
    label1.Caption = "[...]"
    Me.Show
    ucp.ShowAnimation = True ' uc progress bar cant not run showanimation normally bcs of post data
    DoEvents
    Dim rs As String
    rs = PostData(Me, "aaa")
    If rs = "1" Then
    ' do something
    else
    ' do something
    end if
    end sub

    Public Function PostData(ByVal frm As Form, ByVal act As String, Optional SQL As String = "") As String
    On Error Resume Next
    Dim url As String
    Dim i As Currency
    url = "url path ..."
    Dim ht As New WinHttpRequest
    ht.Open "POST", url, False
    ht.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_Ignore_All
    'ht.SetRequestHeader "accept", "application/json; charset=UTF-8, text/plain; charset=UTF-8, text/html; charset=UTF-8, */*; charset=UTF-8"
    ht.SetRequestHeader "accept", "text/plain; charset=UTF-8, */*; charset=UTF-8"
    'ht.SetRequestHeader "Content-type", "application/json; charset=utf-8"
    ht.SetRequestHeader "Content-Type", "text/plain; charset=utf-8"
    ht.SetRequestHeader "Accept-Charset", "utf-8"
    ht.SetRequestHeader "accept-encoding", "deflate"
    ht.SetRequestHeader "accept-language", "en-US,en;q=0.9,fr;q=0.8,fa;q=0.7"
    ht.SetRequestHeader "cache-control", "max-age=0"
    ht.SetRequestHeader "user-agent", "Mozilla/5.0 (Windows NT 6.2; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36 Edg/109.0.1518.100"
    frm.MousePointer = vbHourglass
    DoEvents
    Sleep 100
    If SQL "" Then
    ht.Send "act=" & act & "&sqlstr=" & SQL
    Else
    ht.Send "act=" & act
    End If
    ht.WaitForResponse
    DoEvents
    frm.MousePointer = vbNormal
    PostData = ht.ResponseText
    ht.Abort
    Set ht = Nothing
    End Function

  4. i sent full code to you can see better

  5. por favor digame donde encontrar ucProgressCircular ya corregido? ya intente cambiar lo que dicen que encontraron pero al compilar el ocx no me jala las propiedades en otros proyectos, me urge mucho tener el ocx separado para un proyecto, muchisimas gracias

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(required)

(required)