limpiar el caption de menu - Versión para impresión

limpiar el caption de menu - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: limpiar el caption de menu (/thread-1774.html)

limpiar el caption de menu - alberto-moyano - 29-08-2024

Hola gente, estoy intentando adaptar esta función, es una solución muy práctica que aporto en su momento el compañero jsban,

Código:
    Dim mtmp As Menu

    Dim file As String

    For Each file In Dir(rutaScriptsExternos, "*.py").Sort()

      mtmp = New Menu(Menu76) As "obs"

      mtmp.caption = file

    Next

el tema es que ahora en una situación muy parecida (ya que rutaScriptsExternos es una ruta fija del programa) donde lo que cambia es la ruta (ahora refiere al directorio de trabajo y por consiguiente, es cambiante), el bucle no actualiza el contenido de los archivos que lee, sino que los va sumando, el bucle está así

Código:
  Dim mntp2 As Menu

  Dim file2 As String

  ' Ahora se procede a agregar los nuevos menús

  For Each file2 In Dir(rutaFILES, "*").Sort()

    mntp2 = New Menu(mDirFiles) As "obs2"

    mntp2.caption = file2

  Next

ahora bien, rutaFILES, se actualiza sin problemas, ya que el resto del programa que usa esa misma variable no tiene errores, mi pregunta es si el error está en como represento el bucle ya que si no entiendo mal, al cambiar el directorio se debería refrescar el caption.

La única diferencia importante que observo es que, el primer bucle está dentro del evento Open del formulario principal y el segundo dentro del evento click del menu abrir.

Ya me perdí.

RE: limpiar el caption de menu - Shordi - 29-08-2024

Los Menús son algo puñeteros en algunas cosas y nunca entendí del todo cómo los maneja el programa. Mejor al cambiar la ruta elimina el menú y vuelve a crearlo vía código.