Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/09/2007, 13:34
Avatar de seba123neo
seba123neo
 
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 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