Comunidad Gambas-es

Haciendo aplicaciones con interfaz de Icono en Barra de Tareas

Shordi 26-08-2021, 13:12

Aquí tenéis un tutorial de cómo se usa el control TryIcon para generar aplicaciones cuya interfaz sea un icono en la barra de tareas. De hecho en el vídeo podéis ver cómo hacer aplicaciones con interfaz dual: Con una ventana principal y con un Icono en la barra de tareas.

Espero que os sea útil.

Saludos

Videotutoriales Respuestas 6

Comportamiento errático de MoveTo en un TreeView

Grandamakulo 25-08-2021, 22:48

Hola, compañeros:
Pues lo del asunto, gente. Veréis, tenía un código que, más o menos, funcionaba. Lo del más o menos es porque no tenía control de errores, pero funcionaba. Y el caso es que, de la noche a la mañana, ha dejado de hacerlo.
Se trata de un TreeView llamado «trvProyecto» que tiene unos botones añadidos para mover los ítems y resulta que que el invento funcionaba hasta hace poco —no puedo determinar cuándo, porque mis proyectos tienden a la eternización—, cuando comenzó a ocurrir que no podía cambiar el «Current» del TreeView con MoveTo(). Simplemente es que MoveTo() no hace nada de nada —y he probado luego con MoveChild, MoveParent, MoveBefore, MoveFirst, et caetera, con el mismo resultado—. No sé si os ha pasado lo mismo y estáis tan desesperados como yo. Pongo ejemplo del código:

Código:
Public Sub pryArriba_Click()

  Dim sClave As String

  Dim sEste As String

  sEste = trvProyecto.Current.Key

  trvProyecto.MoveCurrent

  If Not trvProyecto.MoveAbove() Then

    sClave = trvProyecto.Item.Key

    Try trvProyecto.Current.MoveBefore(sClave)

    trvProyecto.MoveTo(sEste)

  Endif

End

Public Sub pryAbajo_Click()

  Dim sClave As String

  Dim sEste As String

  sEste = trvProyecto.Current.Key

  trvProyecto.MoveCurrent

  If Not trvProyecto.MoveBelow() Then

    sClave = trvProyecto.Item.Key

    trvProyecto.Current.MoveAfter(sClave)

    trvProyecto.MoveTo(sEste)

    trvProyecto.Item.Selected = Si

  Endif

End

Public Sub pryPosterior_Click()

  Dim sClave As String

  Dim sEste As String

  sEste = trvProyecto.Current.Key

  trvProyecto.MoveCurrent

  If Not trvProyecto.MoveAbove() Then

    sClave = trvProyecto.Item.Key

    trvProyecto.Current.Reparent(sClave)

    trvProyecto.MoveTo(sEste)

    trvProyecto.Item.Selected = Si

  Endif

End

Public Sub pryAnterior_Click()

  Dim sClave As String

  Dim sEste As String

  sEste = trvProyecto.Current.Key

  trvProyecto.MoveCurrent

  If Not trvProyecto.MoveParent() Then

    If Not trvProyecto.MoveParent() Then

      sClave = trvProyecto.Item.Key

      trvProyecto.Current.Reparent(sClave)

      trvProyecto.MoveTo(sEste)

      trvProyecto.Item.Selected = Si

    Endif

  Endif

End

Public Sub prySuperior_Click()

  Dim sClave As String

  Debug trvProyecto.Current.Text 

  sClave = trvProyecto.Current.Key

  trvProyecto.Current.MoveFirst

  trvProyecto.MoveTo(sClave)

  Debug trvProyecto.Current.Text 

End

Public Sub pryInferior_Click()

  Dim sClave As String

  Debug trvProyecto.Current.Text 

  sClave = trvProyecto.Current.Key

  trvProyecto.Current.MoveLast

  trvProyecto.MoveTo(sClave)

  Debug trvProyecto.Current.Text 

End

¿Seríais tan amables de orientarme? —seguro que es una chorrada que mi ignorancia ha pasado por alto—. Gracias de antemano.

General Respuestas 9

TOMATITO, un —otro— reloj «pomodoro» para luchar contra la procrastinación.

Grandamakulo 25-08-2021, 00:28

Actualización: versión 1.0.0 TrayIcon —gracias, Shordi—.

Estimados compañeros, permítome presentaros una pequeña aplicación de un reloj para aplicar el método «pomodoro». Está aún dentro de un formulario, aunque en un tiempo razonable —entre dos días y cinco lustros— lo pasaré a formato «control personalizado»; o, simplemente, copiaré el formulario dentro del que emplee como principal. Es una «toolbox» que contiene todos los controles.
En fin, espero que este «tomatito» os sea útil de alguna manera.

PS.—Para quien no lo sepa, el método «pomodoro» consiste en centrarte en una tarea durante un tiempo determinado No es necesario ni completarla ni hacerla, simplemente, dedicar un tiempo a esa tarea. Esto se hace durante un determinado número de días, un mes más o menos, hasta que aparece la costumbre y eres ya capaz de concentrarte. Debo decir que a mí, en determinada circunstancias, me ha funcionado.