¿Cómo crear varios TextEditor de forma dinámica?
Grandamakulo 28-07-2023, 11:45
Hola a todos:
Tengo un formulario en el que he incrustado el IconPanel «iconpAyuda». Pretendo leer varios archivos «html» de un directorio y que cargue cada uno en una nueva «Tab» en la que creo un TextEditor para poder incorporar el «RichtText» de cada ayuda. Antes lo hacía con un «ListView», un solo editor y una matriz de cadenas, pero me gustaría poder cambiarlo a la idea que explico.
El problema que tengo es que no sé cómo crear los TextEditor de manera dinámica. ¿Podéis ayudarme? Gracias de antemano.
El código que uso es éste:
Tengo un formulario en el que he incrustado el IconPanel «iconpAyuda». Pretendo leer varios archivos «html» de un directorio y que cargue cada uno en una nueva «Tab» en la que creo un TextEditor para poder incorporar el «RichtText» de cada ayuda. Antes lo hacía con un «ListView», un solo editor y una matriz de cadenas, pero me gustaría poder cambiarlo a la idea que explico.
El problema que tengo es que no sé cómo crear los TextEditor de manera dinámica. ¿Podéis ayudarme? Gracias de antemano.
El código que uso es éste:
Código:
Public Sub _new()
Dim sArchivos As String[] ' Archivos de ayuda en formato html
Dim sArchivo As String ' Nombre archivo en tratamiento
Dim sPaso As String ' Para traspasar y operar cadena
Dim rTitulo As New RegExp ' RegExp para extraer el valor del título
Dim i As Integer ' Contador
Dim txeAyuda As New TextEdit[] ' TextEditor para mostrar la ayuda en RichText
' Título: se supone que este formulario va en una aplicación mayor
Me.Text = ("Ayuda") & " " & Application.Name & " " & Application.Version
sArchivos = Dir(Application.Path &/ "Ayuda").Sort()
i = 0
For Each sArchivo In sArchivos
sPaso = File.Load(Application.Path &/ "Ayuda" &/ sArchivo) ' Lista de archivos
rTitulo.Compile("<title[^>]*>(.*)</title>") ' Extraer título con RexEx
rTitulo.Exec(sPaso)
icopAyuda.Count = i + 1 ' Por cada archivo se añada una «Tab»
If rTitulo.Count > 0 Then
icopAyuda[i].Text = Util.HTMLaTexto(rTitulo[0].Text) ' Si existe título, se nombra la «Tab»
Else
icopAyuda[i].Text = ("Anónimo") ' Si no, ya veré qué poner...
Endif
txeAyuda.Add("Qué narices pongo aquí") '' ¿Qué narices pongo aquí? Tiene que ir un txe, pero es el
txeAyuda[i].Reparent(icopAyuda[i]) '' que estoy creando justo ahora...
txeAyuda[i].Expand = True
txeAyuda[i].RichText = sPaso
i = i + 1
Next
End
guizans 27-07-2023, 22:09
Hola.
No me pasa siempre, no he encontrado de que depende. Tengo un Panel, con la propiedad Arrangement en horizontal. Dentro coloco una serie de botones o toolButton de izquierda a derecha y despues al final un Spring. Pues el caso es que esto lo hago siempre así pero de vez en cuando, le da por colocar un boton donde le sale del nabo. Por ejemplo, si los tengo todos alineados a la izquierda uno de ellos me lo coloca en la derecha del todo. En el apartado "Hirearchy", muevo ese boton a la posición que yo quiero, pero al guardar cambios, se vuelve a descolocar. Lo que hago normalmente es borrar ese panel y empezar de nuevo, pero me parece una tocada de huevo.
Dejo imágenes de como lo tengo y lo que me aparece.
Un saludo.
No me pasa siempre, no he encontrado de que depende. Tengo un Panel, con la propiedad Arrangement en horizontal. Dentro coloco una serie de botones o toolButton de izquierda a derecha y despues al final un Spring. Pues el caso es que esto lo hago siempre así pero de vez en cuando, le da por colocar un boton donde le sale del nabo. Por ejemplo, si los tengo todos alineados a la izquierda uno de ellos me lo coloca en la derecha del todo. En el apartado "Hirearchy", muevo ese boton a la posición que yo quiero, pero al guardar cambios, se vuelve a descolocar. Lo que hago normalmente es borrar ese panel y empezar de nuevo, pero me parece una tocada de huevo.
Dejo imágenes de como lo tengo y lo que me aparece.
Un saludo.
Archivos adjuntos
Shordi 27-07-2023, 13:20
Depurando hoy un programita que usa el control WindowFrame, contenido en el componente gbThemes que os subí hace unos días, me encuentro esto
![[Imagen: NiG6dBh.png]](https://i.imgur.com/NiG6dBh.png)
No tengo ni pajolera idea de lo que significa. Lo he pasado a la lista internacional a ver si alguien se descuelga con algo. Mientras:
¿Alguien de por aquí ha visto antes eso y me lo puede explicar en cristiano?
Saludos
No tengo ni pajolera idea de lo que significa. Lo he pasado a la lista internacional a ver si alguien se descuelga con algo. Mientras:
¿Alguien de por aquí ha visto antes eso y me lo puede explicar en cristiano?
Saludos
Bienvenido, Invitado
Últimos temas
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, Ayer, 17:37
Respuestas: 2 - Vistas: 81
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 439
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 576
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 932