BalloonTooltip |
Responder |
Autor | |
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Tema: BalloonTooltip Enviado: 26/Octubre/2021 a las 11:05 |
WINDOWS_10 vs ACCESS_2010 Buenos dias Estoy implementando un mensaje de notificaciones, y para ello me sirvo de un modulo general que tiene las siguientes declaraciones: Option Compare Database Option Explicit Dim bt As New BalloonTooltip Public Enum btIcon btNone btInformation btWarning btCritical End Enum Public Function ShowBalloonTooltip(strHeading As String, strMessage As String, lngIcon As btIcon) 'Wrapper function to call the class so it can be called from an add-in code library Set bt = New BalloonTooltip With bt .Heading = strHeading .Message = strMessage .Icon = lngIcon .Show End With End Function Public Function HideIcon() If Not bt Is Nothing Then With bt .Hide End With End If End Function Ademas de un módulo de clase llamado "BalloonTooltip" De momento en lo básico funciona perfectamente, pero me gustaria si alguno lo tiene implementado cambiar, si es posible, algunas cosillas. 1º El titulo de "Microsoft Access" que aparece al lado del icono de la aplicacion 2º El tiempo que aparece visible antes de que se esconda automaticamente y 3º El color del cuadro que recoge la notificación He estado investigando el módulo de clase y sus propiedades y de momento no encuentro ninguna propiedad que acceda a estos parametros. Saludos al Grupo
|
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Enviado: 27/Octubre/2021 a las 10:55 |
Buenos dias Aunque me temo que no se pueda, os dejo el enlace al módulo de clase "BalloonTooltip" por si veis mas que yo Y por último, a modo de ejemplo, para ejecutarlo desde un boton de un formulario Private Sub BtnTooltip_Click()
ShowBalloonTooltip "ADVERTENCIA", "El PC está a punto de reiniciarse " & vbCrLf & "Guarde sus datos ahora!", btCritical End Sub Editado por main - 27/Octubre/2021 a las 10:57 |
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Enviado: 28/Octubre/2021 a las 14:24 |
Hola de nuevo Por lo que he leido hasta ahora y segun cuentan algunos, no es posible hacerlo por codigo o Api de Windows. Asi que como hay que hacerlo a pinrel le informaré al interesado sobre como cambiar la configuración de windows al menos en cuanto al tiempo de visualización de la notificación y al color. Se puede cerrar el tema Saludos a todos
|
|
lbauluz
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3849 |
Enviado: 29/Octubre/2021 a las 11:07 |
Mira a ver esto
https://www.engram9.info/access-vba-programming-2/balloon-object.html ¡Suerte! Luis
|
|
El Búho es un pajarraco
|
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Enviado: 03/Noviembre/2021 a las 10:21 |
Hola Ibauluz De tu enlace, entre otros, he intentado ejecutar el ballon con el siguiente codigo: Private Sub cmdTip_Click() Dim ball As Balloon Set ball = Application.Assistant.NewBalloon With ball .Heading = "Demostracion de Office Assistant" .Text = "Selecione una opcion o presione un Boton" .Icon = msoIconTip .Button = msoButtonSetAbortRetryIgnore .Labels(1).Text = "Option1" .Labels(2).Text = "Option2" '.Animation = msoAnimationGetArtsy .Animation = msoAnimationEmptyTrash End With Dim result result = ball.Show If result = 1 Then MsgBox "Presionado Option1" If result = 2 Then MsgBox "Presionado Option2" If result = msoBalloonButtonAbort Then MsgBox "Presionado Abortar" If result = msoBalloonButtonRetry Then MsgBox " Presionado Retry" If result = msoBalloonButtonIgnore Then MsgBox "Presionado Ignorar" End Sub Pero me sale el error 91 variable de objeto o bloque with no establecido No se si y hay que añadir alguna referencia o crear el objeto mediante alguna instrución. Saludos al grupo
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 03/Noviembre/2021 a las 22:32 |
¿En qué línea se produce el error?
|
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Enviado: 04/Noviembre/2021 a las 08:23 |
Hola xavi el error se produce en la instrucción
.Heading Pero si la anulo se produce en .Text Es como sinó reconociera los elementos y colecciones del objeto Balloon Gracias por tu interes Saludos al grupo
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 04/Noviembre/2021 a las 10:08 |
Según entiendo de este post de UtterAccess desde 2010 no funciona el Balloon.
Ojo, que lo puedo entender mal.
|
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Enviado: 04/Noviembre/2021 a las 11:24 |
Me temo, Xavi, que tengas razon Porque al declararar Dim ball As... Balloon no aparece en el asistente y si lo hace BalloonTooltip Asi que a menos que alguien pueda decirnos lo contrario, habrá que asumir que los globos se acabaron en 2007. En este caso se puede cerrar el tema Gracias de nuevo Saludos al grupo |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |