Shordi 24-04-2023, 11:16
No me funciona el traductor. Intento traducir, todo parece normal pero al salir e intentar compilar o ejecutar, genera un error.

Le pasa a todo el mundo o sólo a mí?

Saludos
Shordi 23-04-2023, 13:32
Os presento EditList, un control para editar arrays de diferentes tipos (a diferencia de ListEditor, que sólo edita String). Hace eso... y poco más, pero está chulo.
[Imagen: AclQwZi.png]
Los iconos de esta imagen son los "por defecto" sacados del Stock de gambas. Sin embargo el control permite acceder al panel de iconos de manera que podéis cambiarlos, añadir/ocultar botones, etc. En el ejemplo que os adjunto hay un segundo set de iconos.
[Imagen: y9LV97I.png]

Hasta donde lo he probado funciona con GTK y con Qt sin warnings ni cosas raras.
Aquí os adjunto el lanzamiento inicial, pero las actualizaciones las iré poniendo en gitlab, como siempre

Espero que os sea útil


Saludos
Archivos adjuntos
.gz
EditList-0.0.2.tar.gz (Tamaño: 22.48 KB Descargas: 3)
Shell 22-04-2023, 12:03
Buenas!.

¿ Se puede seleccionar más de una palabra de un texto en un TextArea ?. ( Desde Código )

He logrado o una o todas. Y lo cierto es que su método Select permite seleccionar un lugar concreto.
Si lo interpretamos como una selección de ratón No creo que sea posible. ¿ Existe otra posibilidad ?.

Hice un ejemplo que hace lo siguiente:
Las palabras que fallan son gallo y canta. Que son las que quiero seleccionar por separado (ojo).
Pero solo me selecciona una, la última del array de las no encontradas (afalladas).

[Imagen: Mh8Rpg1.png]

Definí la variable indice de las palabras erróneas pero parece que no es necesario.

Código:
Private fcorrecta As String = "El gallo canta todas las mañanas"
Private fentrada As String = "El perro ladra todas las mañanas"

Private acorrecta As String[]
Private aentrada As String[]
Private afalladas As String[]

Private indierroneas As New Integer[]

Public Sub Form_Open()

  Label1.Text = fcorrecta
  Label2.Text = fentrada
 
  acorrecta = Split(fcorrecta, " ")
  aentrada = Split(fentrada, " ")  
  afalladas = Comprueba()
  Mostrar()

End

Public Function Comprueba() As String[]
 
  Dim palabra As String
  Dim tacorrecta As String[]
  Dim indice As Integer
 
  tacorrecta = acorrecta
 
  For Each palabra In aentrada
    indice = tacorrecta.Find(palabra)
    If indice = -1 Then Continue
    'Añado el indice de la palabra que no existe en la frase correcta
    indierroneas.Add(indice)
    'Elimino la palabra del array temporal que contiene las palabras correctas
    tacorrecta.Remove(indice)
  Next
  Return tacorrecta
 
End

Public Sub Mostrar()
 
  Dim palabra As String
   
  TextArea1.Text = fentrada   
 
  For Each palabra In afalladas
    TextArea1.Select(String.InStr(fcorrecta, palabra) - 1, Len(palabra))
  Next
    
End

Os subo el ejemplo.

Saludos
Archivos adjuntos
.gz
PalabrasQueFallan-0.0.1.tar.gz (Tamaño: 12.12 KB Descargas: 2)
Páginas (560):    1 180 181 182 183 184 560   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 288
Último miembro: shoUsho
Temas del foro: 1,729
Mensajes del foro: 8,987
Últimos temas
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 458
GambOS
Foro: General
Último mensaje por: guizans, 20-08-2025, 13:58
Respuestas: 0 - Vistas: 318
Gambas y Wayland
Foro: General
Último mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 596
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 943
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.