Visual Basic Foro

siempre es buena la auto ayuda, a veces al escribir nuestro problema ayuda a resolverlo. me alegro que lo hayas podido resolver y compartido tu solucion.

Saludos.

bien si ya pudiste instalar los códec este ejemplo debería funcionar bien.

http://leandroascierto.com/share/HEIF.zip

donde conseguiste los códec?, son gratuitos?, si tienes un link podrías pasármelo gracias.

Hola, tienes alguna imagen de  ejemplo en .HEIF? no se si realmente son .HEIF o es parte de alguna codificacion interna de por ejemplo un .png, porque google pero las imágenes que vi son todas con otra extensión distinta a .HEIF

Hola Mario tengo entendido que d2d1 esta disponible a partir de window7 es raro que no lo tengas por defecto instalado, que versión de windows tienes? o tienes el IDE con compatibilidad?

hola perdon la tardanza yo utilizo el labelplus como boton pero existen opciones mas apropidas

https://www.vbforums.com/showthread.php?884085-VB6-sButton-Multipurpose-Control-(last-update-31-03-2021)

acá una modificación del labelplus para manejarlo como botón

https://github.com/AxioUK/axLabelPlus

Hola, hace poco empecé a utilizar este control para un soft en el que me invitaron a trabajar, si bien la idea principal era actualizarlo visualmente tal como vos decís, luego de un tiempo vimos que quizás no valía la pena invertir tiempo en cambiarlo porque visualmente no esta tan feo, asi que creo que si en ese momento no lo hice por dinero hoy ya no creo que lo valla a actualizar. no digo que sea difícil, tampoco fácil, pero llevaría su tiempo.

saludos.

Hola existe algunos módulos para leer JSON, pero veo que para tu caso s un Json sencillo y podría pasearse con  algunas funciones

Private Sub Form_Load()
    Dim oXMLHTTP As Object
    Dim sURL As String
    Dim sJSON As String
    Dim lPos1 As Long, lPos2 As Long
   
    sURL = "https://api.coinbase.com/v2/prices/spot?currency=USD"
   

    Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")

    oXMLHTTP.Open "GET", sURL, False
    oXMLHTTP.send
   
    If oXMLHTTP.Status = 200 Then
        sJSON = oXMLHTTP.responseText
        lPos1 = InStrRev(sJSON, """:""")
        lPos2 = InStrRev(sJSON, """")

        Text1.Text = Mid$(sJSON, lPos1 + 3, lPos2 - lPos1 - 3)
    End If
End Sub

Hola si podes subir tu ejemplo seria mas facil, a como lo veo por arriba tendrías que tomar el id del ultimo registro y sumarle 1, no se si seria lo mas efectivo o bien ya el archivo debería trabajar con una cabecera donde se almacena el ultimo ID asi de esa forma no se volvería a repetir un id y siempre seria auto incremental