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
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, MoveFirstet 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.
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.

[Imagen: 2021-09-01-11-58.png]
[Imagen: 2021-09-01-11-59.png]
Archivos adjuntos
.zip
Tomatito_Barra.zip (Tamaño: 103.27 KB Descargas: 1)
Páginas (553):    1 388 389 390 391 392 553   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 280
Último miembro: herbert
Temas del foro: 1,704
Mensajes del foro: 8,843
Últimos temas
Error de sistema "Demasia...
Foro: General
Último mensaje por: chescobar, Hace 7 horas
Respuestas: 0 - Vistas: 29
controlar el Activado/Des...
Foro: General
Último mensaje por: atakito, Ayer, 17:18
Respuestas: 0 - Vistas: 21
Conexión Bluetooth: RFCOM...
Foro: Hardware & IoT
Último mensaje por: jguardon, 06-05-2025, 16:57
Respuestas: 5 - Vistas: 161
gb.db2: columnas calculad...
Foro: Bases de Datos
Último mensaje por: guizans, 04-05-2025, 21:02
Respuestas: 14 - Vistas: 536
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.