[RISOLTO] textbox e Ucase

[naderit]

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:

Codice: [Seleziona]

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

[kicco]

Così non ti va bene?

Codice: [Seleziona]

Public Sub TextBox1_KeyPress()
  TextBox1.Text = UCase$(TextBox1.text)
End

[tornu]

Ciao naderit,
vedi se questo metodo ti può essere utile

Codice: [Seleziona]

Public Sub TextBox1_Change()
  Dim iPs As Integer

  iPs = Last.Pos

  Last.Text = Upper(Last.Text)

  Last.Pos = iPs 
End

[vuott]

kicco bocciato, tornu super !

[naderit]

Eccomi. dunque, la soluzione di Kicco non funziona perché l'ultimo carattere inserito rimane minuscolo. Mentre quella di Tornu funziona molto bene... grazie