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 ( Rolleyes ) 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

End

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.... Tongue

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.

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

End

Pero 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


End

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.

Código:
Public Sub TableView1_KeyPress()

  Message.Info("La tecla pulsada es: " & Key.Text)

End

En 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.
Páginas (564):    1 234 235 236 237 238 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: Nicls_key
Temas del foro: 1,742
Mensajes del foro: 9,026
Últimos temas
Odio a gb.Report
Foro: General
Último mensaje por: guizans, Hace 4 horas
Respuestas: 9 - Vistas: 1,496
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, Ayer, 19:35
Respuestas: 0 - Vistas: 30
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,315
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 101
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.