Título: Textbox solo mayusculas. Publicado por: antraXactive en 11 Septiembre 2006, 20:37 pm Hola, estoy en Visual Basic .Net y tengo un problemilla, seguramente es lo mas sencillo del mundo, pero debo tar tonto y no se... resulta que quiero que un textbox (de nombre "pedido") todos aquellos caracteres que son escritos se transformen automáticamente en mayusculas... alguién tiene idea de como hacer esto?
Título: Re: Textbox solo mayusculas. Publicado por: Zeroql en 11 Septiembre 2006, 20:46 pm uCase(textox1.text)
Título: Re: Textbox solo mayusculas. Publicado por: alfa_28 en 19 Septiembre 2006, 22:53 pm uCase(textox1.text) hola que tal verifica este cod:Private Sub Text1_Change() If Text1.Text = LCase(Text1.Text) Then Text1.Text = UCase(Text1.Text) Else Text1.Text = uCase(Text1.Text) End If End Sub bueno en esto no mke sale pero en esto si Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.Text = UCase(Text1.Text) End If End Sub SALUDOS ........... Título: Re: Textbox solo mayusculas. Publicado por: NYlOn en 19 Septiembre 2006, 23:16 pm Código: Private Sub Text1_Change() Título: Re: Textbox solo mayusculas. Publicado por: Zeroql en 20 Septiembre 2006, 21:07 pm hey si
uCase(textox1.text) hola que tal verifica este cod:Private Sub Text1_Change() If Text1.Text = LCase(Text1.Text) Then Text1.Text = UCase(Text1.Text) Else Text1.Text = uCase(Text1.Text) End If End Sub bueno en esto no mke sale pero en esto si Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.Text = UCase(Text1.Text) End If End Sub SALUDOS ........... Título: Re: Textbox solo mayusculas. Publicado por: antraXactive en 21 Septiembre 2006, 19:07 pm Sipi, así vale, aunque al final decidí hacerlo a través de la vista en diseño xDDD... pero nada, para otra ya lo se :p
Graciassss Título: Re: Textbox solo mayusculas. Publicado por: alfa_28 en 12 Octubre 2006, 02:01 am hola otra forma de codigo en visual basic para solo mayusculas:
te dejo por si aun lo necesitas private sub text1_change() dim I as Integer text1.text=Ucase(text1.text) I=len(text1.text) text1.selstar=I End Sub Bueno saludos.... |