consulta de programación
Publicado por ricardo (3 intervenciones) el 26/05/2022 23:00:32
hola, necesito ayuda con código, del cual no entiendo algunas partes.el codigo es el siguiente:
Instrucciones del procedimiento Text1_keypress: verifique que los apellidos y nombres se ingresen correctamente y que se convierte la primera letra a mayúscula y el resto a minúscula.
Private sub Text1_keypress(keyAscii As integer)
Static anteriorespacio As Boolean
If keyAscii = 13 then
Text2.setfocus
End If
If KeyAscii= 32 then
anteriorespacio= true
Else
If Mayuscula(KeyAscii) Or Minuscula(KeyAscii) Or Especial(KeyAscii)
If Trim(Text1)= "" Or anteriorespacio Then
Rem Convertir a Mayuscula
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Else
Rem Convertir a Minuscula
KeyAscii= Asc(LCase(Chr(KeyAscii)))
End If
anteriorespacio= False
Else
MsgBox "Debe ingresar solo letras", 16, "Cuidado"
KeyAscii=0 ´ignora el caracter digitado
Command1.Enabled= False
Command2.Enabled= False
End If
End If
End Sub
el anterior código es con el que tengo problemas.
te piden que la primera letra del apellido y del nombre sean mayúsculas, como se haría eso si con el código UCase convierte toda la cadena a mayúscula, algo parecido sucede con el código LCase . como se seleccionan las letras para cumplir con lo pedido.
les agradecería mucho si pudieran ayudarme con esto.
Instrucciones del procedimiento Text1_keypress: verifique que los apellidos y nombres se ingresen correctamente y que se convierte la primera letra a mayúscula y el resto a minúscula.
Private sub Text1_keypress(keyAscii As integer)
Static anteriorespacio As Boolean
If keyAscii = 13 then
Text2.setfocus
End If
If KeyAscii= 32 then
anteriorespacio= true
Else
If Mayuscula(KeyAscii) Or Minuscula(KeyAscii) Or Especial(KeyAscii)
If Trim(Text1)= "" Or anteriorespacio Then
Rem Convertir a Mayuscula
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Else
Rem Convertir a Minuscula
KeyAscii= Asc(LCase(Chr(KeyAscii)))
End If
anteriorespacio= False
Else
MsgBox "Debe ingresar solo letras", 16, "Cuidado"
KeyAscii=0 ´ignora el caracter digitado
Command1.Enabled= False
Command2.Enabled= False
End If
End If
End Sub
el anterior código es con el que tengo problemas.
te piden que la primera letra del apellido y del nombre sean mayúsculas, como se haría eso si con el código UCase convierte toda la cadena a mayúscula, algo parecido sucede con el código LCase . como se seleccionan las letras para cumplir con lo pedido.
les agradecería mucho si pudieran ayudarme con esto.
Valora esta pregunta


0