Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Visual Basic » Código de Visual Basic - Convertir a mayuscula la primera letra de cada palabra

Código de Visual Basic - Convertir a mayuscula la primera letra de cada palabra

Volver
Agregar Código Fuente
Filtrado por el tag: certificado
<<>>

Versión 1
estrellaestrellaestrellaestrellaestrella(7)

Publicado el 5 de Septiembre del 2002gráfica de visualizaciones de la versión: Versión 1
26.198 visualizaciones desde el 5 de Septiembre del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (7)

Dámaso Parra Veloso
10 de Octubre del 2002
estrellaestrellaestrellaestrellaestrella
Buen desafío, simple y funcional
Responder
roberto
16 de Marzo del 2003
estrellaestrellaestrellaestrellaestrella
Bueno este ejemplo lo necesitaba
Responder
the hacker
16 de Abril del 2003
estrellaestrellaestrellaestrellaestrella
es un buen codigo
Responder
lili
15 de Marzo del 2005
estrellaestrellaestrellaestrellaestrella
despues de

enter
no escribe la primera en mayuscula
Responder
Oscar
17 de Septiembre del 2008
estrellaestrellaestrellaestrellaestrella
Por q tan complejo si se puede hacer mas simple, con la función mid obtienes la primera letra la sacas a mayúsculas y la concatenas con la misma palabra pero cortada con mid nuevamente desde la segunda letra....
Responder
ANONIMO
17 de Noviembre del 2008
estrellaestrellaestrellaestrellaestrella
NO IMPORTA SI TODO ES MAYUSCULA
SIEMPRE LA PRIMERA LETRA ES MAYUSCULA LAS DEMAS MINUSCULAS
Y EN VICEVERSA IGUAL FUNCIONA
PERO TIENEN RAZON
DESPUES DE UN ENTER
YA NO FUNCIONA
Responder
Sah1d Ra
28 de Mayo del 2022
estrellaestrellaestrellaestrellaestrella
Espero les sirva las siguientes instrucciones:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Text1_KeyPress(KeyAscii As Integer)
 If InStr("abcdefghijklmnopqrstuvwxyzñ", LCase(Chr$(KeyAscii))) = 0 Then KeyAscii = 0
 'La linea anterior solo permite el acceso a los caracteres descritos arriba
 If Text1.SelStart = 0 Then 'Comprueba sea el primer carácter
  KeyAscii = Asc(UCase(Chr$(KeyAscii)))
  'La linea anterior convierte el código asc11 a carácter después lo hace mayúscula y lo vuelve a convertir a código asc11
 ElseIf Mid(Text1.Text, Text1.SelStart, 1) = Chr$(32) Or Mid(Text1.Text, Text1.SelStart, 1) = vbLf Then
  KeyAscii = Asc(UCase(Chr$(KeyAscii)))
 Else ' Realizado por Sahid Ra, espero darme a entender con el codigo.
  KeyAscii = Asc(LCase(Chr$(KeyAscii)))
  'La linea anterior convierte el código asc11 a carácter después lo hace minúscula y lo vuelve a convertir a código asc11
 End If
End Sub
'Este codigo no funciona si se pega del portapapeles con letras mayusculas, para corregir el error
'de pegar, ocupas hacer el uso del evento CHANGE del TextBox y utilizar la funcion STRCONV

Saludos y felices líneas de prograc10n
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s308