Shell 25-01-2023, 22:19
Buenas!.
Cuando tenemos un control le podemos dar una serie de propiedades.
Si tomamos ese control y lo copiamos , su copia debería tener propiedades con valores iguales al original.
Si es boton1, le damos propiedades, al copiar y pegar este, se crea boton2 y tendrán las mismas propiedades.
Ahora os cuento el problema.
Selecciono ambos botones y asigno un nombre al grupo de controles.
Solo me asigna el nombre del grupo a un solo botón, no a los dos.
Una forma posible es que cuando se crea el primer control, le asignamos el nombre del grupo,
copiamos, pegamos y su copia tiene en la propiedad de grupo, el mismo nombre.
La primera forma no hubiera sido una mala opción.
Saludos
Cuando tenemos un control le podemos dar una serie de propiedades.
Si tomamos ese control y lo copiamos , su copia debería tener propiedades con valores iguales al original.
Si es boton1, le damos propiedades, al copiar y pegar este, se crea boton2 y tendrán las mismas propiedades.
Ahora os cuento el problema.
Selecciono ambos botones y asigno un nombre al grupo de controles.
Solo me asigna el nombre del grupo a un solo botón, no a los dos.
Una forma posible es que cuando se crea el primer control, le asignamos el nombre del grupo,
copiamos, pegamos y su copia tiene en la propiedad de grupo, el mismo nombre.
La primera forma no hubiera sido una mala opción.
Saludos
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.
Bienvenido, Invitado
Últimos temas
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: vuott, Hoy, 00:36
Respuestas: 0 - Vistas: 41
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 423
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 567
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 921