Differenze tra le versioni di "Sovrascrivere mediante nuovi caratteri i caratteri già presenti in un TextBox"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Se si prova a sovrascrivere dei caratteri su caratteri già presenti in un ''TextBox'', tale effetto non si produce; ma i caratteri già presenti nel ''TextBox'' verranno spos...") |
|||
| Riga 1: | Riga 1: | ||
Se si prova a sovrascrivere dei caratteri su caratteri già presenti in un ''TextBox'', tale effetto non si produce; ma i caratteri già presenti nel ''TextBox'' verranno spostati a destra men mano che si inseriscono i nuovi caratteri. | Se si prova a sovrascrivere dei caratteri su caratteri già presenti in un ''TextBox'', tale effetto non si produce; ma i caratteri già presenti nel ''TextBox'' verranno spostati a destra men mano che si inseriscono i nuovi caratteri. | ||
| − | Per ottenere questa modalità di sovrascrittura, capace di sostituisce i caratteri già presenti in un ''TextBox'' con nuovi caratteri immessi mediante la tastiera, si può adottare questa semplice linea di codice all'interno della routine scatenata dall' | + | Per ottenere questa modalità di sovrascrittura, capace di sostituisce i caratteri già presenti in un ''TextBox'' con nuovi caratteri immessi mediante la tastiera, si può adottare questa semplice linea di codice all'interno della routine scatenata dall'Evento "_KeyPress()" del Controllo ''TextBox'': |
If Key.Code < 220 Then TextBox1.Select(TextBox1.pos, 1) | If Key.Code < 220 Then TextBox1.Select(TextBox1.pos, 1) | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
| − | + | Public Sub Form_Open() | |
TextBox1.Text = "Questa è una prova." | TextBox1.Text = "Questa è una prova." | ||
| Riga 12: | Riga 12: | ||
TextBox1.Pos = 0 | TextBox1.Pos = 0 | ||
| − | + | End | |
| − | + | Public Sub TextBox1_KeyPress() | |
If Key.Code < 220 Then TextBox1.Select(TextBox1.Pos, 1) | If Key.Code < 220 Then TextBox1.Select(TextBox1.Pos, 1) | ||
| − | + | End | |
Versione attuale delle 15:57, 1 lug 2024
Se si prova a sovrascrivere dei caratteri su caratteri già presenti in un TextBox, tale effetto non si produce; ma i caratteri già presenti nel TextBox verranno spostati a destra men mano che si inseriscono i nuovi caratteri.
Per ottenere questa modalità di sovrascrittura, capace di sostituisce i caratteri già presenti in un TextBox con nuovi caratteri immessi mediante la tastiera, si può adottare questa semplice linea di codice all'interno della routine scatenata dall'Evento "_KeyPress()" del Controllo TextBox:
If Key.Code < 220 Then TextBox1.Select(TextBox1.pos, 1)
Mostriamo un esempio pratico:
Public Sub Form_Open() TextBox1.Text = "Questa è una prova." TextBox1.Pos = 0 End Public Sub TextBox1_KeyPress() If Key.Code < 220 Then TextBox1.Select(TextBox1.Pos, 1) End
