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
Última modificación: 25-01-2023, 20:01 por Shell.
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
(25-01-2023, 02:09)Shordi escribió: No entiendo el propósito de tanto tejemaneje con el .tag de los textboxes ¿Por qué no preguntar por el .text y ya está?
El array cajas almacena el tag de las cajas de textos que son iguales al de la etiqueta. Hasta que no sean todas iguales no debe
mostrarse el mensaje que diga que son iguales todas. Ademas se comprueba que el tag almacenado existe o no
verificando si esa caja en concreto contiene el mismo texto.
¿ De qué otra forma sabrías que todas son iguales ?. De x's cajas de texto. No vale que sean dos, que sean tres, tienen que ser x's cajas.
¿ Con un contador que iguale al del numero de cajas de texto ?.
Es un planteamiento naturalmente, que puede existir otros, no lo dudo.
Espera unos días a ver si se anima alguien más para resolver el problema.
Intentaré hacerlo solo con la propiedad text, parece lo más sencillo. El problema es llevar el control de todas las cajas de texto.
Que se muestre el mensaje "solo" cuando sean iguales y que no quede fijo, etc.
Aunque parezca increíble estos problemas llevan algo de tiempo. Y aunque para algunas personas resulta más fácil, para otras no lo es tanto.
No lo sé si por si le gusta complicarse, usando propiedades o por el planteamiento. Ahora hablo en tercera persona. Si es que no me gana ni el tato.
Saludos
Última modificación: 25-01-2023, 15:33 por Shell.
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
Así también funciona, no tags, no array, no KeyPress. 
Me he valido de un contador y he cambiado el evento Change,
Había pensando en usar el evento LostFocus y el GetFocus de la caja.
Por eso digo que puede haber muchas formas de hacer algo y de ahí la complicación.
De lo que es hacer algo y que funcione a optimizar van dos pueblos.
Uno de los problemas es que me emperraba con Last.text, cuando debería haber usado desde el principio la caja de texto actual que se ve en el bucle.
ocajadetexto y su propiedad text.
Me he valido de un contador y he cambiado el evento Change,
Código:
Const NUMCAJASDETEXTO As Integer = 3
Const TEXTO As String = "prueba"
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
Dim cuenta As Integer
For Each ocajadetexto In Me.Controls
If ocajadetexto Is TextBox Then
If ocajadetexto.text = etiqueta1.Text Then cuenta += 1
Endif
Next
If cuenta = NUMCAJASDETEXTO Then
etiqueta2.Text = "Son iguales"
Else
etiqueta2.Text = ""
Endif
cuenta = 0
EndHabía pensando en usar el evento LostFocus y el GetFocus de la caja.
Por eso digo que puede haber muchas formas de hacer algo y de ahí la complicación.
De lo que es hacer algo y que funcione a optimizar van dos pueblos.
Uno de los problemas es que me emperraba con Last.text, cuando debería haber usado desde el principio la caja de texto actual que se ve en el bucle.
ocajadetexto y su propiedad text.
Archivos adjuntos
Última modificación: 25-01-2023, 20:13 por Shell.
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
Código:
For Each ocajadetexto In Me.Controls
If ocajadetexto Is TextBox Then
If ocajadetexto.text = etiqueta1.Text Then cuenta += 1
Endif
NextSaludos
Última modificación: 25-01-2023, 23:14 por Shordi.
No podemos regresar
(25-01-2023, 23:12)Shordi escribió: Eso se parece mucho más a lo que yo había pensado. Es el eterno principio de KISS.
El código puede ser simple, pero llegar a el, no siempre es fácil creando una solución que puede ser efectiva,
funcional que nos haga lo que queríamos, aunque tomemos muchas veces el camino más largo.
Eso lo podemos ver a diario de códigos también de compañeros, no solo los propios.
Pero hay muchos motivos por lo que ocurre esto. No tenemos la misma mente, formación, educación,
el momento en el que se hace el código, estado de animo...la lista es larga. Y no olvidemos el tiempo disponible
y sobre todo, sobre todo, trabajar bajo presión.
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln