** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Imagenes Ribbon
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoImagenes Ribbon

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Tema: Imagenes Ribbon
    Enviado: 18/Febrero/2021 a las 12:09
Hola de nuevo
Gracias por la informacion que desconocia, relativa a Opciones de access=>Configuración del Cliente=>General=>Mostrar errores de la interfaz de usuario en el complemento.
Por el momento y transcurrido practicamente un mes todo sigue funcionando.

Gracias por todo emiliove

Saludos al grupo

Se puede cerrar el tema

Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 19/Enero/2021 a las 15:26
Hola Main

Pues si, debería de ser LoadPicture(stPath) se me fué.

Yo uso LoadPictureGDIP para poder ver imagenes con mas extenciones, las extensiones normales que te permite poner el ribbon son solo ico, bmp y jpg pero con el modulo LoadPictureGDIP puedes aumentarlas a bmp, gif, jpg, tif, png, wmf, emf, ico y aparte LoadPictureGDIP  lo tengo para access de 32 y 64 bits. para no tener problemas.

Aunque todavía es pronto para saber si resuelve tu problema, por cierto para poder ver si existe algo mal en tu xml y te muestre el error, debes de tener activo la casilla Opciones de access=>Configuración del Cliente=>General=>Mostrar errores de la interfaz de usuario en el complemento.

Saludos.
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 19/Enero/2021 a las 11:28
Buenos dias
El error estaba en el procedimiento MyloadImage(ImageName As String, ByRef Image)
donde dice
Set Image = LoadImage(strPath)
debe decir
Set image = LoadPictureGDIP(stPath)
Y asi si funciona perfectamente.
Gracias por todo emiliove
Saludos al grupo
Se puede cerrar el hilo
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 18/Enero/2021 a las 15:38
Hola Main

Es tal como te la puse arriba, mira un ejemplo 
https://www.dropbox.com/s/56c6wj7ecob2mph/Main.7z?dl=0

Edito: Recuerda que el archivo de las imágenes van en el mismo directorio que la base.

Saludos.


Editado por emiliove - 18/Enero/2021 a las 19:39
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 17/Enero/2021 a las 13:55
Buenos Dias
Gracia emiliove, me quedó claro la diferencia.
Ahora necesito conocer la funcion LoadImage() que utilizas porque al ejecutarlo me pide varios parametos, sin duda debido a que la funcion que yo tengo con ese nombre utiliza parametros diferentes.
Gracias de nuevo

Saludos a l grupo
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 15/Enero/2021 a las 15:36
Hola Main

Es que el ejemplo que te puse es un botón de activación (toggleButton) y al ser de activación tiene dos estados que lo determinamos con (getPressed) y mi función =MyGetPressed es el que me dice si esta activado o no, y el onAction es al hacer click, dependiendo su estado hace una cosa u otra.

Pero los tuyos son botones normales solo usas onAction.

Saludos.
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 15/Enero/2021 a las 13:46
Hola.
Han vuelto a aparecer y todo funcionando de nuevo.
Pongo un simple ejemplo de como tengo el xml del Ribbon

    <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad" >
      <commands>
          <command idMso="Help" enabled="false"/>
          <command idMso="WindowClose" enabled="true"/>
          <command idMso="WindowRestore" enabled="false"/>
          <command idMso="WindowMinimize" enabled="false"/>
      </commands>

      <ribbon startFromScratch="false">
        <tabs>
          <tab id="tabComunidad" label="EMPRESA" keytip = "C">
            <group id="grpArchivo" autoScale="false" centerVertically="false" label="Datos" >
              <menu id="mnuArchivo" size="large" itemSize="large" label="Registrar" getImage="GetImages" tag="Libras.png" >
                <button id="btnNewEmpre" label="NUEVA" screentip="Nueva Empresa" getImage="GetImages" tag="Nueva.png" onAction="OnActionButton" />
                <menuSeparator id="sepMenuANew" />
                <menu id="mnuComunidad" itemSize="large" label="Empresa" getImage="GetImages" tag="Libras.png" >
                <button id="btnRegisComuni" label="DATOS" getImage="GetImages" tag="ok.png" onAction="OnActionButton" />
                <menu id="mnuCuentas" itemSize="normal" label="Cuentas" getImage="GetImages" tag="Ctas_Gene.png" >
                <button id="btnRegisCtasPropias" label="Registrar" getImage="GetImages" tag="Ctas_Generi.png" onAction="OnActionButton" />
                <button id="btnConsuCtasPropias" label="Consultar" getImage="GetImages" tag="Ctas_Especi.png" onAction="OnActionButton" />
                </menu>
                </menu>
                <menuSeparator id="sepMenuComuni" />
                
                <!--Fin del menu (mnuComunidad) NO eliminar este comentario-->
                <menu id="mnuClien" itemSize="large" label="Clientes" getImage="GetImages" tag="Propietario.png" >
                <menuSeparator id="sepMenuClienGene" title="GENERICOS" />
                <button id="btnRegisPropie" label="Regsitrar" getImage="GetImages" tag="Propietarios.png" onAction="OnActionButton" />
                <button id="btnConsuPropie" label="Consultar" getImage="GetImages" tag="PropieConsu.png" onAction="OnActionButton" />
                <menuSeparator id="sepMenuClienPropio" title="PROPIOS" />
                <button id="btnRegisClien" label="Regsitrar" getImage="GetImages" tag="Propietarios.png" onAction="OnActionButton" />
                <button id="btnConsuClien" label="Consultar" getImage="GetImages" tag="PropieConsu.png" onAction="OnActionButton" />
                </menu>
                <!--Fin del menu (mnuClientes) NO eliminar este comentario-->
                <menu id="mnuProv" itemSize="large" label="Proveedores" getImage="GetImages" tag="Proveedor.ico" >
                <menuSeparator id="sepMenuProvGene" title="GENERICOS" />
                    <button id="btnRegisProv" label="Registrar" getImage="GetImages" tag="Ctas_Generi.png" onAction="OnActionButton" />
                    <button id="btnProvTodos" label="Consultar" getImage="GetImages" tag="Interroga.png" onAction="OnActionButton" />
                <menuSeparator id="sepMenuProvPropio" title="PROPIOS" />            
                    <button id="btnTraspasaProv" label="Registrar" getImage="GetImages" tag="Ctas_Especi.png" onAction="OnActionButton" />
                    <button id="btnProvComuni" label="Consultar" getImage="GetImages" tag="Interroga.png" onAction="OnActionButton" />
                    <button id="btnInmArren" label="Inmuebles" getImage="GetImages" tag="PredioRegis.png" onAction="OnActionButton" />
                    <button id="btnProvRefer" label="Referencias" getImage="GetImages" tag="OK.png" onAction="OnActionButton" />
                </menu>    
                <menuSeparator id="sepMenuSalir" title="Cerrar el Programa y Salir" />
                     <button id="btnSalir" label="Salir" getImage="GetImages" tag="Salida.png" onAction="OnActionButton" />
                <!--Fin del menu (mnuProveedores) NO eliminar este comentario-->
            </menu>
            </group>
          </tab>
        </tabs>
      </ribbon>

      <backstage>
         <button idMso="FileCloseDatabase" visible="true"/>
         <button idMso="SaveObjectAs" visible="false"/>
         <button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
         <button idMso="FileOpen" visible="false"/>
         <button idMso="FileSave" visible="false"/>
         <tab idMso="TabInfo" visible="false"/>
         <tab idMso="TabRecent" visible="true"/>
         <tab idMso="TabNew" visible="false"/>
         <tab idMso="TabPrint" visible="true"/>
         <tab idMso="TabShare" visible="false"/>
         <tab idMso="TabHelp" visible="false"/>
         <button idMso="ApplicationOptionsDialog" visible="true"/>
         <button idMso="FileExit" visible="true"/>
      </backstage>
    </customUI>

Ahora, me pondre el fin de semana a intentar cambiarlo por loadImage
Me planteo una duda y es que hace la instruccion getPressed="MyGetPressed" y en que se diferencia de onAction="MyTBonAction"

Saludos
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 11/Enero/2021 a las 17:08
Hola main

Usar el loadimage es muy fácil primero lo agregas en el customUI

customUI onLoad="MyOnLoad" loadImage="MyloadImage" xmlns="http://schemas.microsoft.com/office/2009/07/customui">

Despues en cada control con imagen, en image pones el nombre con su extensión:
<toggleButton id="tggBtnimagen51" label="imagen" enabled="true" size="large" onAction="MyTBonAction" image="img1.bmp" getPressed="MyGetPressed"></toggleButton>

Y en la función en este caso MyloadImage
Sub MyloadImage(ImageName As String, ByRef Image)

    Dim stPath As String
    stPath = CurrentProject.Path & "\imagenes\" & ImageName 'Ruta de la carpeta
Set Image = LoadImage(strPath)
End Sub

Ya nos dices, saldos.
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 11/Enero/2021 a las 13:19
Hola de nuevo
Las imagenes no se modifican ni cambian en ingun momento.
Es un menu fijo distribuido en pestañas
Se van todas las imagenes, pero siempre se mantienen las etiquetas (textos)
Las imagenes estan en una carpeta de la misma computadora
y no,no informa de ningun error.
En cuanto a la funcion loadimage, no la he implementado nunca y no sabria usarla al desconocer sus parametros.

Saludos y gracias, Emilove


Editado por main - 11/Enero/2021 a las 13:24
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 09/Enero/2021 a las 18:38
Hola main

Y las imágenes son dinámicas, las cambias cuando haces algún evento, por que no usas loadimage para ver si es el mismo comportamiento, todas las imágenes se van, o solo algunas, te marca algún error, dice que las imágenes no las encuentra. las imágenes están en la misma computadora.

Saludos.
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 09/Enero/2021 a las 13:12
Hola, emilove
La base es accdb y las imagenes son personalizadas dento de una carpeta
El Ribbon reside en una tabla "USysRibbons" y se carga automaticamente al iniciar la aplicación con GetImages

Saludos
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5694
Enlace directo a este mensaje Enviado: 08/Enero/2021 a las 15:11
Hola Main

Platica más, son imágenes estáticas (de microsoft, o personalizada con loadimage) o son dinámicas con getimage.

Si son personalizadas las tienes en una tabla de access o en una carpeta.

Ya nos cuentas, saludos.
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1258
Enlace directo a este mensaje Enviado: 08/Enero/2021 a las 12:23
Access_2010 vs Windows_10

En primer lugar, desearos a todos un Feliz año 2021 y siguientes..

La pregunta es porque, de vez en cuando, me desaparecen las imagenes que tengo en el Ribbon que utilizo como Menu.

Parece obra de meigas ya que a los dos o tres dias, cuando inicio windows, vuelven a aparecer-

En cambio los textos (Etiquetas) siempres se conservan.

Le ha sucedido a alguno

Saludos al Grupo
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable