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.
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
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?
ucp.ShowAnimation = True
DoEvents
Sleep 100
ht.Send aaa
ht.WaitForResponsetext
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
i sent full code to you can see better
Hi, I can’t test your code, but if the app freezes, it doesn’t show the animation either.
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