Comunidad Gambas-es
obtener foco sobre un formulario - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forumdisplay.php?fid=8)
+--- Tema: obtener foco sobre un formulario (/showthread.php?tid=1376)


obtener foco sobre un formulario - alberto-moyano - 26-05-2023

Hola colisteros, no encuentro que hago mal en el siguiente caso. Tengo un formulario (con un editor) que puedo instanciar tantas veces como lo necesite, la cuestión es que cuando quiero guardar cambios en cualquiera de los formularios abiertos, no lo obtengo y solo guarda los cambios en el primero, no entiendo si mi error es de lógica o de código, el código que desarrollé  es el siguiente.

Gracias por cualquier comentario
Código:
GAMBAS
  1. Private formulariosAbiertos As New FormMAESTRO[]
  2. Private activeForm As FormMAESTRO
  3.  
  4. ' Evento GotFocus para cada formulario
  5. Public Sub Form_GotFocus()
  6.  
  7.   activeForm = Me
  8.  
  10.  
  11. Public Sub menuSAVE_Click()
  12.  
  13.   If activeForm = Null Then
  14.     Return
  15.   End If
  16.  
  17.   If activeForm.Dialog.Path = "" Then
  18.     guardarComo(activeForm, True)
  19.   Else
  20.     File.Save(activeForm.Dialog.Path, activeForm.TextEditor.Text)
  21.   End If
  22.  
  24.  
  25. Public Sub menuSAVE_AS_Click()
  26.  
  27.   guardarComo(True)
  28.  
  30.  
  31. Public Sub guardarComo(formulario As FormMAESTRO, local As Boolean)
  32.  
  33.   formulario.Dialog.Title = "Guardar como..."
  34.   formulario.Dialog.Filter = ["*.tex", "Archivos LaTeX", "*.adoc", "Archivos Asciidoc", "*.md", "Archivos Markdown"]
  35.  
  36.   If formulario.Dialog.SaveFile() Then
  37.     ' Proceso cancelado por el usuario
  38.     Return
  39.   Else
  40.     If formulario.Dialog.Path = "" Then
  41.       Message.Info("El archivo no tiene un nombre válido.")
  42.       Return
  43.     End If
  44.  
  45.     If local Then
  46.       File.Save(formulario.Dialog.Path, formulario.TextEditor.Text)
  47.       ' Actualizar el título del formulario con la nueva ubicación
  48.       formulario.Title = formulario.Dialog.Path
  49.     Else
  50.       ' Otras acciones a resolver
  51.     Endif
  53.  


y el código que utilizo para abrir las diferentes instancias y guardarlas en una lista es

GAMBAS
  1. Public Sub menuABRIRarch_Click()
  2.  
  3.   Abrir(True)
  4.  
  6.  
  7. Public Sub Abrir(local As Boolean)
  8.  
  9.   Dim cadena As String
  10.  
  11.   Dialog.Title = "Escoger archivo"
  12.   Dialog.Filter = ["*.tex", "Archivos LaTeX", "*.adoc", "Archivos Asciidoc", "*.md", "Archivos Markdown"]
  13.  
  14.   If Dialog.OpenFile() Then
  15.     ' Proceso cancelado por el usuario
  16.     Return
  17.   Else
  18.     If Dialog.Path = "" Then
  19.       Message.Info("El archivo no tiene un nombre válido.")
  20.       Return
  21.     End If
  22.  
  23.     If local Then
  24.       cadena = File.Load(Dialog.Path)
  25.       Dim newForm As New FormMAESTRO
  26.       newForm.TextEditor.Text = cadena
  27.       newForm.TextEditor.SetFocus
  28.       newForm.Show
  29.       newForm.Title = Dialog.Path
  30.  
  31.       ' Añadir el formulario a la matriz de formularios abiertos
  32.       formulariosAbiertos.Add(newForm)
  33.     Else
  34.       ' Otras acciones según sea necesario
  35.     Endif
  37.  




RE: obtener foco sobre un formulario - tincho - 26-05-2023

Hola Alberto, mira no se como creas la instancia de cada formulario pero hice este ejemplo simple que hace algo parecido a lo que describiste.
EL caso es que cuando creo nuevos formularios copias de editor no funciona si no le asigno un tag y un nombre diferente a cada uno, tal vez sea eso lo que te pasa a vos.
por ejemplo:
GAMBAS
  2.  
  3. Public Sub ToolButton1_Click()
  4.  
  5.   Dim frm As FEditor
  6.  
  7.   frm = New FEditor(Panel2)
  8.   With frm
  9.     .Tag = k
  10.     .Name = CStr(k)
  12.  


[Imagen: 9T9RkBu.png]

RE: obtener foco sobre un formulario - alberto-moyano - 26-05-2023

Gracias Tincho, justo estoy leyendo en la wiki y los tiros vienen por donde lo planteas, el editor no se instancia junto con cada formulario abierto (así lo estoy entendiendo).

Este es el código para la apertura de cada formulario nuevo

GAMBAS
  1. Public Sub menuARCHnuevo_Click()
  2.  
  3.   Dim nuevoFormulario As New FormMAESTRO ' Crea una nueva instancia del formulario
  4.  
  5.   nuevoFormulario.Show() ' Muestra el nuevo formulario
  6.