
16/09/2007, 13:34
|
 | | | Fecha de Ingreso: febrero-2007 Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 18 años, 3 meses Puntos: 19 | |
Re: Codigo Convertir MAyuscula Minuscula en VB 2005 Hola,mira aca te consegui una funcion para eso que queres,primero escribis el nombre tuyo y despues presiona el enter para confirmar y te pasa las primeras letras de las palabras a mayusculas  .
Código:
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Dim t As String = TextBox1.Text
Dim i As Integer
If t <> "" Then
Mid$(t, 1, 1) = UCase$(Mid$(t, 1, 1))
For i = 1 To Len(t) - 1
If Mid$(t, i, 2) = Chr(13) + Chr(10) Then
Mid$(t, i + 2, 1) = UCase$(Mid$(t, i + 2, 1))
End If
If Mid$(t, i, 1) = " " Then
Mid$(t, i + 1, 1) = UCase$(Mid$(t, i + 1, 1))
End If
Next
TextBox1.Text = t
End If
End If
End Sub
saludos.
__________________ " Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein |