Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda stupida

Salve a tutti,
    ho la necessità di far scrivere nelle textbox sempre in maiuscolo.Ho
provato
tra le proprietà ma non ne trovo una che fa al mio caso.Ho provato che
all'evento change della textbox si ha:
text1.text=UCase(text1.text) ma il contenuto viene inserito al contrario.
Grazie a tutti

 ha scritto nel messaggio
news:HeHu7.14709$0Y2.2...@news.infostrada.it...


 ha scritto nel messaggio
news:HeHu7.14709$0Y2.2...@news.infostrada.it...


 text1.text=UCase(text1.text) ma il contenuto viene inserito al contrario.
Prova così:
Private Sub Text1_Change()
   Dim OldSelStart As Long
   OldSelStart = Text1.SelStart
   Text1.Text = UCase$Text1.Text)
   Text1.SelStart = OldSelStart
End Sub
Oltre a questo, per favore, la prossima volta inserisci un oggetto del
messaggio che sia più congruente col contenuto, così è più facile per chi
risponde capire che problema hai senza bisogno di leggere tutto il
messaggio.
Ciao
*Roby*

non è proprio così stupida :)
anche io ho avuto qualche problema....la questione è che ..ho modifichi il testo una volta che l'utente esce dal controllo...(quindi
eventi Lost Focus o validate)
oppure fai + o meno così(dimenticavo..usa StrConv):
Private Sub Text1_Change()
Text1.SelStart = Len(Text1)
Text1 = StrConv(Text1, vbLowerCase)
End Sub
Il problema però nasce quando l'utente vuole andare a correggere una cosa che ha scritto prima dell'ultima lettera; ex:
Scrivo--> Scciao a tutti
Quindi voglio correggere la farse togliendo Sc iniziali
e qui nasce il problema perchè dopo che hai inserito una lettera....il cursore torna alla fine della frase...!
(se non capisci qualche funzione...guardati Msdn).
Forse c'è un metodo..ma non l'ho ancora scoperto...confido nel genio altrui..per un migliore consiglio!
Ciao SIMO
p.s. Guarda il manifesto del Ng per formulare dei Subject corretti! (vedi firma sotto per url)
--
__________________
www.sasim.net
Vb è relativamente semplice perchè c'è MSDN!
Sito Comune Ng: 
http://www.it-lang-vb.net
Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt


 ha scritto nel messaggio
news:ktHu7.3325$Wg4.16...@news.edisontel.com...


ho la necessità di far scrivere nelle textbox sempre in maiuscolo
Il Platform SDK ci riserva continue sorprese:
SetWindowLong _
 text1.hWnd, _
 GWL_STYLE, _
 GetWindowLong(text1.hWnd, GWL_STYLE) Or ES_UPPERCASE
Per rimuovere l'effetto:
SetWindowLong _
 text1.hWnd, _
 GWL_STYLE, _
 GetWindowLong(text1.hWnd, GWL_STYLE) And Not ES_UPPERCASE
Come nel caso delle textbox numeriche, io sto qui a chiedermi perchè 
diavolo non siano proprietà dell'oggetto Textbox

 diavolo non siano proprietą dell'oggetto Textbox
Perche' altrimenti sarebbe troppo facile :P
Ciaotutti,
*

 Forse c'è un metodo..ma non l'ho ancora scoperto...confido nel genio altrui..per un migliore consiglio!
E' sufficiente che prima memorizzi la posizione per poi ripristinarla.
Private Sub Text1_Change()
   Dim Pos as Long
   Pos = Text1.SelStart
   Text1.SelStart = Len(Text1)
   Text1 = StrConv(Text1, vbLowerCase)
   Text1.SelStart = Pos
End Sub
Anche se in questo caso a ben guardarci è inutile.
Basterebbe semplicemente:
Private Sub Text1_Change()
   Text1 = StrConv(Text1, vbLowerCase)
End Sub
-- 
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/