Textbox solo mayusculas.

Iniciado por antraXactive, 11 Septiembre 2006, 20:37 PM

0 Miembros y 1 Visitante están viendo este tema.

antraXactive

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?

Zeroql

Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#


alfa_28

Cita de: Zeroql en 11 Septiembre 2006, 20:46 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 ...........

NYlOn

Private Sub Text1_Change()
    Text1 = UCase(Text1)
    Text1.SelStart = Len(Text1)
End Sub

Zeroql

hey si
Cita de: alfa_28 en 19 Septiembre 2006, 22:53 PM
Cita de: Zeroql en 11 Septiembre 2006, 20:46 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 ...........
teneis razon. disculpame por no poner atncion a las cosas, pero el estres ayuda un poco a que este asi.
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#


antraXactive

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

alfa_28

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....