/Anonimizzato25932Utente anonimizzato17 apr 2019, 11:12Buongiorno a tutti, ho un problema: devo inserire dei nomi in una Richtexbox solo in maiuscolo. Se scrivo il nome tutto ok, ma se incollo un nome scritto in minuscolo non me lo trasforma....Private Sub txt_voce_KeyPress(KeyAscii As Integer) 'TUTTO IN MAIUSCOLO KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub
OoregonSuper FamosoIscritto danov, 2011Messaggi2191717 apr 2019, 14:03Il copia incolla non passa dall'evento KeyPress e non esiste evento specifico. Potresti usare un generico evento Change ma non sapresti esattamente cos a trasformare in maiuscolo (a meno di non trasformare tutto il contenuto)
/Anonimizzato25932Utente anonimizzato17 apr 2019, 17:34Ciao oregon ho provato così ma mi scrive al contrario:Private Sub txt_voce_Change() 'TUTTTO IN MAIUSCOLO ANCHE INCOLLANDO txt_voce.Text = UCase(txt_voce.Text) End Sub
/Anonimizzato25932Utente anonimizzato18 apr 2019, 15:38Ci sarebbe altrimenti un modo per impedire di incollare nella textbox...
/Anonimizzato11767Utente anonimizzato18 apr 2019, 17:33Paolo87 ha scritto: Ci sarebbe altrimenti un modo per impedire di incollare nella textbox... Dovresti disattivare il CanPaste. Prova a fare una ricerca con i termini: Richtexbox vb6 disable CanPaste
/Anonimizzato25932Utente anonimizzato18 apr 2019, 21:42Sul web non trovo nulla per VB6...., non riesco comunque a capire perchè la la funzione Ucase mi scrive nella textbox al contrario.
/Anonimizzato11767Utente anonimizzato18 apr 2019, 21:56Il RichTextBox non funziona come il normale TextBox, perché il testo può essere formattato. Se vuoi, fai un progetto di test, zippalo e pubblicalo qui, vedo di fare delle prove.
OoregonSuper FamosoIscritto danov, 2011Messaggi2191718 apr 2019, 22:02Paolo87 ha scritto: Sul web non trovo nulla per VB6...., non riesco comunque a capire perchè la la funzione Ucase mi scrive nella textbox al contrario. Nella Change aggiungi txt_voce.SelStart = Len(txt_voce.Text)