...prova un po' questa integrazione, facendo il test sull'oggetto TextBox1 della Classe Form1.class:
1) poni questa variabile Globale
2) modifica il contenuto della sub-routine "Public Sub TextBox1_Change()" come segue:
Public Sub TextBox1_Change()
ps = TextBox1.Pos
TextBox1.Text = UCase(TextBox1.Text)
TextBox1.Pos = ps
End
Grazie allo spunto di vuott, e al suo invito a "sforzarmi un pochino" ;D
ho risolto in questo modo
Public Sub TextBox1_Change()
Dim iPs As Integer
iPs = Last.pos
Last.text = Upper(Last.text)
Last.pos = iPs
End
Rimane comunque il fatto che continuo a non capire la logica del perchè per "forzare" un oggetto come la TextBox
ad utilizzare le maiuscole devo utilizzare del codice per controllare il cursore, mentre se la lascio di default (quindi
stringhe in minuscolo) funziona tutto correttamente. Se qualcuno a la bontà di spiegarmelo, lo ringrazio.