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:
¿Seríais tan amables de orientarme? —seguro que es una chorrada que mi ignorancia ha pasado por alto—. Gracias de antemano.
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.
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]](https://i.ibb.co/CnJmT1w/2021-09-01-11-58.png)
![[Imagen: 2021-09-01-11-59.png]](https://i.ibb.co/hKYN9Mw/2021-09-01-11-59.png)
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.
Archivos adjuntos
AlfredoSC 24-08-2021, 21:17
Como todo en la vida real, a veces en el laboratorio de electrónica íbamos juntando en una caja, aquellos aparatos que no lográbamos reparar, o aquellos proyectos que no funcionaron adecuadamente. A la caja la bautizamos como "EL CAJÓN DE LOS FRACASOS".
En los meses mas recientes en este 2021, he tenido esos mismos síntomas con Linux, en las versiones que he estado probando (y conociendo). Síntomas que son fracasos porque no los puedo resolver, así que si les parece bien a los creadores del foro, hacer una sección denominada "Cajón de los Fracasos", donde podremos "echar" aquello que no pudimos solucionar, pero con la idea de rescatarlo en cuanto se encuentre solución.
Por lo pronto yo "metería" a ese cajón los siguientes:
- Linux Mint 20.2 64 bits no empata con Google Chrome ni con VS Code sobre una PC con Chipset Nvidia
- Debian 11 no encuentra drivers de tarjeta gráfica y parece no tener uno propio para AMD 760G de mi PC
- Mageia 8 entra en modo wayland y provoca que Gambas3 no se ejecute.
- Linux Mint 20.2 no ejecuta varios de los programas que muestra en el Menú, como por ejemplo Configuración del Sistema
- El grub de cada uno de los SO Linux se va corrompiendo mientras se instalan en multi-arranque en la PC
- Gambas3 se ha complicado la vida con qt5, qt6, gb. Se ha pegado un tiro a sí mismo.
- El arranque de Mageia 8 se queda colgado 2 veces y luego reanuda, tardando casi 3 minutos en concluir.
Parece buena idea??
Saludos...
En los meses mas recientes en este 2021, he tenido esos mismos síntomas con Linux, en las versiones que he estado probando (y conociendo). Síntomas que son fracasos porque no los puedo resolver, así que si les parece bien a los creadores del foro, hacer una sección denominada "Cajón de los Fracasos", donde podremos "echar" aquello que no pudimos solucionar, pero con la idea de rescatarlo en cuanto se encuentre solución.
Por lo pronto yo "metería" a ese cajón los siguientes:
- Linux Mint 20.2 64 bits no empata con Google Chrome ni con VS Code sobre una PC con Chipset Nvidia
- Debian 11 no encuentra drivers de tarjeta gráfica y parece no tener uno propio para AMD 760G de mi PC
- Mageia 8 entra en modo wayland y provoca que Gambas3 no se ejecute.
- Linux Mint 20.2 no ejecuta varios de los programas que muestra en el Menú, como por ejemplo Configuración del Sistema
- El grub de cada uno de los SO Linux se va corrompiendo mientras se instalan en multi-arranque en la PC
- Gambas3 se ha complicado la vida con qt5, qt6, gb. Se ha pegado un tiro a sí mismo.
- El arranque de Mageia 8 se queda colgado 2 veces y luego reanuda, tardando casi 3 minutos en concluir.
Parece buena idea??
Saludos...
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 240
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 252
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 946
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 401
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 227