Shell 28-12-2022, 01:17
Buenas!.
Si dejan pulsada una tecla no se repite esta y no deja escribir en la caja de texto.
Hay que volver a levantar el dedo del teclado (
) y volver a escribir.
Claro que....je, je..si compruebo la longitud de la caja de texto, en realidad después de una letra siempre deberá ser la condición a True.
Uy que tarde....
Saludos
Si dejan pulsada una tecla no se repite esta y no deja escribir en la caja de texto.
Hay que volver a levantar el dedo del teclado (
) y volver a escribir.Código:
Private masdeuncaracter As Boolean
Public Sub Form_Open()
With TextBox1
.Font = Font["Mono Noto,Bold, 24"]
End With
End
Public Sub TextBox1_Change()
If Len(TextBox1.Text) >= 1 Then masdeuncaracter = True
End
Public Sub TextBox1_KeyPress()
If masdeuncaracter Then
Stop Event
Else
TextBox1.Insert(Upper(Key.Text))
Stop Event
Endif
End
Public Sub TextBox1_KeyRelease()
masdeuncaracter = False
EndClaro que....je, je..si compruebo la longitud de la caja de texto, en realidad después de una letra siempre deberá ser la condición a True.
Uy que tarde....
Saludos
Shell 28-12-2022, 00:37
Buenas!.
TextBox soporta el método Insert para escribir en el lugar del cursor del ratón.
Mi idea era cambiar a mayúscula o convertir a mayúsculas lo que se escriba, en este caso solo un carácter y parar el evento.
Esto lo hago en un TextBox.
Pero en un TableView no veo la forma adecuada.
El texto continua escribiéndose y al pulsar intro se convierte a mayúscula.
Probablemente diréis que por que no uso el evento KeyPress, no me soluciona mucho.
Algo así tampoco muestra la letra pulsada en la celda.
En la ayuda de Gambas dice que soporta Insert, pero no parece el mismo comportamiento que TextBox.
Saludos
TextBox soporta el método Insert para escribir en el lugar del cursor del ratón.
Mi idea era cambiar a mayúscula o convertir a mayúsculas lo que se escriba, en este caso solo un carácter y parar el evento.
Esto lo hago en un TextBox.
Código:
Public Sub Form_Open()
With TextBox1
.Font = Font["Mono noto,Bold, 24"]
End With
End
Public Sub TextBox1_KeyPress()
TextBox1.Insert(Upper(Key.Text))
Stop Event
EndPero en un TableView no veo la forma adecuada.
Código:
Public Sub Form_Open()
With TableView1
.Rows.Count = 15
.Columns.Count = 1
.Font = Font["Mono noto, Bold, 24"]
End With
End
Public Sub TableView1_Click()
TableView1.Edit
End
Public Sub TableView1_Save(Row As Integer, Column As Integer, Value As String)
If Len(TableView1.Current.Text) >= 1 Then
Stop Event
Else
TableView1[Row, Column].Text = Upper(Value)
Endif
EndEl texto continua escribiéndose y al pulsar intro se convierte a mayúscula.
Probablemente diréis que por que no uso el evento KeyPress, no me soluciona mucho.
Algo así tampoco muestra la letra pulsada en la celda.
Código:
Public Sub TableView1_KeyPress()
Message.Info("La tecla pulsada es: " & Key.Text)
EndEn la ayuda de Gambas dice que soporta Insert, pero no parece el mismo comportamiento que TextBox.
Cita:
This event is raised when the user requested an insertion by hitting the RETURN key inside the bottom-right cell.
Saludos
guizans 27-12-2022, 23:37
Hola a todos y felices fiestas.
Estoy usando Debian Stable y la versión de Gambas es la 3.17.3. El caso es que con la rueda del ratón puedo hacer desplazamiento vertical en la ventana del editor y en cambio con el touchpad no puedo. Y esto solo lo he notado en Gambas, en Firefox por poner un ejemplo funciona perfectamente el desplazamiento vertical, así que deduzco que no es problema de configuración del touchpad del portátil.
¿Alguien mas le pasa?
Un saludo.
Estoy usando Debian Stable y la versión de Gambas es la 3.17.3. El caso es que con la rueda del ratón puedo hacer desplazamiento vertical en la ventana del editor y en cambio con el touchpad no puedo. Y esto solo lo he notado en Gambas, en Firefox por poner un ejemplo funciona perfectamente el desplazamiento vertical, así que deduzco que no es problema de configuración del touchpad del portátil.
¿Alguien mas le pasa?
Un saludo.
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 206
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 218
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 912
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 367
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 206