Sovrascrivere mediante nuovi caratteri i caratteri già presenti in un TextBox

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() dell'oggetto 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