Escribir en mayuscula
Publicado por Carlos (6 intervenciones) el 04/11/2013 14:40:45
Buenas amigos, sigo encontrando discrepencias entre el VB 6.0 y el VB 2008, ahora quiero escribir en mayusculas indistintamente de como este escribiedo, no quiero utilizar Ucase porque este evento se realiza es despues de que escribes el segundo caracter para hacer el cambio en el anterior
en VB 6.0 se hace asi:
Private Sub text01_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90 'mayusculas
Case 97 To 122 'minusculas
key = key - 32
Case 241 'ñ
key = 209 'Ñ
Case 209
Case 8 'bs
Case Else
key = 0
End Select
End Sub
¿cómo se hace VB 2008?
en VB 6.0 se hace asi:
Private Sub text01_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90 'mayusculas
Case 97 To 122 'minusculas
key = key - 32
Case 241 'ñ
key = 209 'Ñ
Case 209
Case 8 'bs
Case Else
key = 0
End Select
End Sub
¿cómo se hace VB 2008?
Valora esta pregunta


0