Shell 25-01-2023, 00:49
Buenas!.
Se trata de que todas las cajas de texto tenga el mismo texto en todas. En este caso el de la etiqueta.
![[Imagen: loPqxRJ.png]](https://i.imgur.com/loPqxRJ.png)
Si varía una sola letra, ya no es el mismo contenido y no se muestra la etiqueta inferior.
![[Imagen: xsWarVr.png]](https://i.imgur.com/xsWarVr.png)
Saludos
Se trata de que todas las cajas de texto tenga el mismo texto en todas. En este caso el de la etiqueta.
Si varía una sola letra, ya no es el mismo contenido y no se muestra la etiqueta inferior.
Código:
' Gambas class file
'Se pretende que todas las cajas de texto contenga la misma cadena que la etiqueta
'Sin importar el número de cajas de texto que se use
Const NUMCAJASDETEXTO As Integer = 3
Const TEXTO As String = "prueba"
Private cajas As New Integer[]
Private etiqueta1 As Label
Private etiqueta2 As Label
Private cajadetexto As TextBox
Public Sub Form_Open()
With Me
.Arrangement = Arrange.Vertical
.Width = 200
.Spacing = True
.Margin = True
.AutoResize = True
End With
etiqueta1 = New Label(Me)
With etiqueta1
.Font = Font["Arial, 24, Bold"]
.Alignment = Align.Center
.Text = TEXTO
.H = 50
.W = 150
End With
For j As Integer = 0 To NUMCAJASDETEXTO - 1
cajadetexto = New TextBox(Me) As "Manipula"
With cajadetexto
.Font = Font["Arial, 18, Bold"]
.Alignment = Align.Center
.H = 50
.w = 150
.Tag = j
End With
Next
etiqueta2 = New Label(Me)
With etiqueta2
.Font = Font["Arial, 20, Bold"]
.Alignment = Align.Center
.Text = ""
.H = 50
.W = 150
End With
End
Public Sub Manipula_Change()
Dim ocajadetexto As Object
'Comprueba cada cambio en las cajas de texto
For Each ocajadetexto In Me.Controls
If ocajadetexto Is TextBox Then
If Last.text = etiqueta1.Text Then
If cajas.Find(Last.tag) = -1 Then cajas.Add(Last.tag)
If cajas.Count = NUMCAJASDETEXTO Then
etiqueta2.text = "Son iguales"
Else
etiqueta2.Text = ""
Endif
Else
etiqueta2.Text = ""
Endif
Endif
Next
End
Public Sub Manipula_KeyPress()
'Comprueba si se ha pulsado la tecla de retroceso o borrar
If Key.code = Key.Backspace Or Key.Code = Key.Delete Then
'Si el tag de la caja de texto donde se escribe se encuentra en cajas
If cajas.Find(Last.tag) <> -1 Then
'Elimina el tag de cajas
cajas.Remove(cajas.Find(Last.tag))
'Limpia el contenido de la etiqueta2
etiqueta2.Text = ""
Endif
Endif
EndSaludos
Archivos adjuntos
Shell 24-01-2023, 12:19
Buenas!.
Lo he intentado más de una vez, me he molestado en traducir el proyecto, crear un usuario en inglés, preguntaros y...
![[Imagen: kri2PAk.png]](https://i.imgur.com/kri2PAk.png)
Ese mensaje de enviado, debería de aparecer después de darle al botón, no antes.
Y eso es lo que me devuelve siempre.
![[Imagen: zCivPrS.png]](https://i.imgur.com/zCivPrS.png)
Inicio de sesión ya en uso.
A ver si la granja está de alguna forma "fichada" en alguna parte.
O soy yo, por culpa de los problemas de gmail y la lista internacional.
Aun no sé si mis mensajes llegan.
Mis millones de followers están esperando y esto no funciona, no puede seeeer, necesito a mis followers y ellos a mí. Que me da un amarillo.
Por cierto, ¿ la contraseña de la granja no tiene nada que ver con la de la lista internacional ?, supongo.
Lo he intentado más de una vez, me he molestado en traducir el proyecto, crear un usuario en inglés, preguntaros y...
Ese mensaje de enviado, debería de aparecer después de darle al botón, no antes.
Y eso es lo que me devuelve siempre.
Inicio de sesión ya en uso.
A ver si la granja está de alguna forma "fichada" en alguna parte.
O soy yo, por culpa de los problemas de gmail y la lista internacional.
Aun no sé si mis mensajes llegan.
Mis millones de followers están esperando y esto no funciona, no puede seeeer, necesito a mis followers y ellos a mí. Que me da un amarillo.
Por cierto, ¿ la contraseña de la granja no tiene nada que ver con la de la lista internacional ?, supongo.
Shell 23-01-2023, 23:52
Buenas!.
Buscando un lenguaje fui a dar con la web de gnu.org donde explicaba que era y de paso vi este enlace.
El software privativo a menudo es malware
No tiene desperdicio. ¿ No querías caldo ?. Pues toma dos tazas.
Este vídeo de su web es bastante explicativo. Podéis cambiar el lenguaje de los subtítulos.
Evasión hacia la libertad
Es curioso que no lo enlacen en YouTube. Por algo será.
Saludos
Buscando un lenguaje fui a dar con la web de gnu.org donde explicaba que era y de paso vi este enlace.
El software privativo a menudo es malware
No tiene desperdicio. ¿ No querías caldo ?. Pues toma dos tazas.
Este vídeo de su web es bastante explicativo. Podéis cambiar el lenguaje de los subtítulos.
Evasión hacia la libertad
Es curioso que no lo enlacen en YouTube. Por algo será.
Saludos
Bienvenido, Invitado
Últimos temas
El ratón no hace click do...
Foro: InstalaciónÚltimo mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 96
Parámetro de clase y pará...
Foro: GeneralÚltimo mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 211
Gmao-Factory: Aplicación ...
Foro: PythonÚltimo mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 179
SqetchDB, un proyecto re-...
Foro: GeneralÚltimo mensaje por: guizans, 21-01-2026, 19:57
Respuestas: 8 - Vistas: 367
Soporte para pasar Arrays...
Foro: Bases de DatosÚltimo mensaje por: Shordi, 19-01-2026, 19:14
Respuestas: 3 - Vistas: 244