Ciao a tutti. Utilizzando una casella di testo TextBox per inserire dei dati in maiuscolo utilizzo la funzione Ucase nell'eveto Change in questo modo:
Public Sub TextBox1_Change()
TextBox1.Text = UCase$(TextBox1.text)
End
e funziona, però se sposto il cursore all'interno della textbox, per esempio, all'inizio della stringa, e digito un carattere, automaticamente il cursore, si sposta in fondo alla stringa di caratteri.
è possibile ovviare a questo problema?
grazie
Così non ti va bene?
Public Sub TextBox1_KeyPress()
TextBox1.Text = UCase$(TextBox1.text)
End
vedi se questo metodo ti può essere utile
Public Sub TextBox1_Change()
Dim iPs As Integer
iPs = Last.Pos
Last.Text = Upper(Last.Text)
Last.Pos = iPs
End