Comunidad Gambas-es

Hablemos de Servidores II: Asignando usuarios y permisos a MySQL y MariaDB

Shordi 18-05-2025, 19:59

Pues eso de los productores de "¿y ahora qué coño hago con la María? viene, "Esto no es el coño de la Bernarda: Un poco de orden caballeros"

Videotutoriales Sin respuestas

Hablemos de Servidores: Montando la pila LAMP

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".

Videotutoriales Sin respuestas

Proyecto base con TrayIcon. Problema

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