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

Tema cerradoBalloonTooltip

 Responder Responder
Autor
Mensaje
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: 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
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: 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
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: 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
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Enlace directo a este mensaje 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
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: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 03/Noviembre/2021 a las 22:32
¿En qué línea se produce el error?
Xavi, un minyó de Terrassa

Mi web
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: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje 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.
Xavi, un minyó de Terrassa

Mi web
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: 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

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable