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

Versión 1
estrellaestrellaestrellaestrellaestrella(7)

Publicado el 5 de Septiembre del 2002gráfica de visualizaciones de la versión: Versión 1
25.662 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)

10 de Octubre del 2002
estrellaestrellaestrellaestrellaestrella
Buen desafío, simple y funcional
Responder
16 de Marzo del 2003
estrellaestrellaestrellaestrellaestrella
Bueno este ejemplo lo necesitaba
Responder
16 de Abril del 2003
estrellaestrellaestrellaestrellaestrella
es un buen codigo
Responder
15 de Marzo del 2005
estrellaestrellaestrellaestrellaestrella
despues de

enter
no escribe la primera en mayuscula
Responder
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
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
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

http://lwp-l.com/s308