Shordi 17-05-2025, 19:04
Como continuación del éxito de taquilla "El desarrollo de habilidades necesarias para todo informático", de los productores de "Todo lo que no necesitas saber pero te mueres por hacer", os traigo "Montando la pila Lamp" conocida en otros países como "El Abuelo a electrocutado a la oveja".

Shell 15-05-2025, 12:13
Buenas a tod@s!.

Estoy intentando crear un ejemplo con Trayicon para comprenderlo de la forma más sencilla.
Pero no logro que el formulario se oculte al principio.

Desde la opción de menú del Trayicon logro que el formulario se muestre o no se muestre.
Pero desde que inicia la aplicación, está activo en el escritorio.

Código:
'Problema el formulario se muestra al inicio de la ejecución

Private TrayMenu As Menu
Private MenuMostrar As Menu
Private MenuSalir As Menu
Private TrayIcon1 As TrayIcon

Public Sub Form_Open()

  'Crear el menú principal del tray icon
  TrayMenu = New Menu(Me) As "TrayMenu"

  'Crear el submenú "Mostrar"
  MenuMostrar = New Menu(TrayMenu) As "MenuMostrar"
  MenuMostrar.Text = "&Mostrar"

  'Crear el submenú "Salir"
  MenuSalir = New Menu(TrayMenu) As "MenuSalir"
  MenuSalir.Text = "&Salir"

  'Configurar el icono de la bandeja
  TrayIcon1 = New TrayIcon As "TrayIcon1"
  TrayIcon1.Icon = Stock["gambas"]
  TrayIcon1.Tooltip = "Ejemplo básico con TrayIcon"
  TrayIcon1.PopupMenu = TrayMenu.Name
  TrayIcon1.Visible = True

  'FIXME: Esto no funciona. El formulario no se ha abierto
  Me.Hide() 'Ocultar el formulario al iniciar

End

Public Sub MenuMostrar_Click()

  Me.Visible = Not Me.Visible
  If Me.Visible Then
    Me.Show()
    Me.Raise
    Me.SetFocus()
  Endif

End

Public Sub MenuSalir_Click()

  Me.Close()

End

Public Sub Form_Close()

  If TrayIcon1.Visible Then TrayIcon1.Hide
  TrayIcon1.Delete

End

Public Sub Form_Activate()

  '¿ Necesito algo aquí ?

End

Os subo el ejemplo.



Vaya como ha mejorado el mostrar el código. Chapó administrador!

Saludos
Archivos adjuntos
.gz
EjemploBaseConTrayIcon-0.0.1.tar.gz (Tamaño: 8.82 KB Descargas: 1)
Shordi 13-05-2025, 13:24
Aquí tenéis la demo de lo explicado en este hilo https://gambas-es.org/thread-1957.html , esta vez ejecutado por un usuario no-A real.

Páginas (557):    1 2 3 4 5 6 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 286
Último miembro: Emilio Uribe
Temas del foro: 1,720
Mensajes del foro: 8,936
Últimos temas
GauchoCAD vuelve a las pi...
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: tercoide, 07-07-2025, 12:59
Respuestas: 14 - Vistas: 12,831
Archivos .ods
Foro: General
Último mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 408
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 399
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,928
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 360
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.