Comunidad Gambas-es

Saber el nombre del Icon de la propiedad Picture de un button

gambafeliz 23-08-2021, 21:55

Hola, mis saludos a todos, jovenes Smile

Tengo un IF para detectar el nombre del Icon que pongo en la propiedad Picture de un Button pero no se como obtenerlo. He pensado poner en la propiedad Tag el nombre del Icon por que se exactamente los dos que van existir pero no se si es algo poco profesional, ¿existe otra manera mas de profesional?

Muchas gracias

General Respuestas 3

Actualicé Mageia de 7 a 8 y ahora Gambas no corre

AlfredoSC 22-08-2021, 17:06

Fue realmente sencillo actualizar Mageia7 a 8 siguiendo las recomendaciones de los propios desarrolladores en su página en español.

Una vez concluida la instalación vía Internet de Mageia8, procedí a probar todas mis aplicaciones que uso regularmente: Chrome, Geany, VS Code, Lampp, Quadrapassel, Solitario, etc y se ejecuta bien.

Pero al arrancar Gambas sale una mensaje de error:

[Imagen: f0qAtHj.png]

Como este mensaje no dice nada útil (según yo), traté de ejecutar Gambas3 desde consola:

Warning: Ignoring XDG_SESSION_TYPE=wayland on Gnome. Use QT_QPA_PLATFORM=wayland to run on Wayland anyway.
CDocumentation.Reset.1136: #12: Not an object
CDocumentation.Reset.1136 CDocumentation._new.374 Project.Main.358

Ahora si dice algo....mmm...como se soluciona esto?....Por favor alguien que me eche una mano.....Quiero probar alguna manera antes de aplicar "purge" o "remove", porque de hacerlo así no aprendería nada....

Gracias...

Instalación Respuestas 9

, pero no del todo. Clave directa para XML similar a Key de TreeView

Grandamakulo 22-08-2021, 12:01

Hola a todos:
¿Existe alguna manera de acceder directamente a un elemento de un XML de manera similar a cómo se hace con «.Key» de un TreeView?
Ahora mismo estoy accediendo a los subelementos de un elemento así:

Código:
Public Sub trvProyecto_Select()

  Dim txtPaso As String

  Dim Elemento As XmlElement

  Dim Elementos As XmlElement[]

  Dim Subel As XmlElement

  Dim Subels As XmlElement[]

  Dim Valores As New String[]

  Dim i As Byte

'Estos en realidad se leen de CDATA del XML

  Dim Campos As String[] = ["contenido", "notas", "sinopsis"]

'Estos deberían ser constantes de la aplicación

  Dim intContenido As Integer = 0

  Dim intNotas As Integer = 1

  Dim intSinopsis As Integer = 2

  Valores.Resize(Campos.Count)  

  txtPaso = trvProyecto.Item.Key

  lblActual.Caption = trvProyecto.Item.Text

  Elemento = xmlObjeto.Root

  Elementos = Elemento.GetChildrenByNamespace("id")

  For Each Elemento In Elementos

    If Elemento.Value = txtPaso Then

      For i = 0 To Campos.Max

        Subels = Elemento.Parent.GetChildrenByNamespace(Campos[i],, 2)

        If Subels.Count Then 

          Subel = Subels[0]

          Valores[i] = Subel.Value

        Endif 

      Next

    Endif

  Next

'Y aquí ya se hacen «cositas» con los datos leídos.

  txtPral.RichText = Valores[intContenido]

End