Aplicación 6: Convertir Mayúsculas y Minúsculas


En esta aplicación veremos diferentes formas de convertir una cadena de carácteres de Mayúsculas a Minúsculas y viceversa. Al igual un código que convierte solamente la primera letra en mayúscula y el resto en minúsculas, ideal a la hora de crear formularios donde se consulten datos como el nombre de una persona, entre otros…

En la tabla siguiente se describen los dos métodos existentes para cambiar mayúsculas y minúsculas.

También se puede aplicar las funciones:

Cabe mensionar que los valores requeridos para estas funciones son expresiones de tipo String o Char.

El formulario como ejemplo queda así:

Ahora su código. Cosa que esta sencilla que no hay necesidad de explicación.

Public Class Form1
    'Convertir Minúsculas a Mayúsculas
    Private Sub btnMayus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMayus.Click
        txtresul1.Text = txtmayus.Text.ToUpper
    End Sub

    'Convertir Mayúsculas a Minúsculas
    Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click
        txtresul2.Text = txtminus.Text.ToLower
    End Sub

    'Boton q limpia todos los textbox
    Private Sub btnlimpiar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpiar1.Click
        txtmayus.Text = ""
        txtminus.Text = ""
        txtresul1.Text = ""
        txtresul2.Text = ""
        txtminus.Focus()
    End Sub

    'Código para convertir la primera letra de cada palabra en mayúscula y el resto en minusculas
    Private Sub txtNomApell_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNomApell.KeyPress
        Dim Longitud, ascii As Integer
        Dim Temp As String
        Dim Caracter As Char
        Longitud = (txtNomApell.TextLength) - 1
        If Longitud < 1 Then
            Longitud = Longitud + 1
            Caracter = Microsoft.VisualBasic.Right(txtNomApell.Text, 1)
            Caracter = UCase(Caracter)
            txtNomApell.Text = ""
            txtNomApell.Text = Caracter
            txtNomApell.SelectionStart = Longitud + 1
            Exit Sub
        End If

        Caracter = Mid(txtNomApell.Text, Longitud, Longitud)
        ascii = Asc(Caracter)
        If ascii = 32 Then
            Temp = Microsoft.VisualBasic.Left(txtNomApell.Text, Longitud)
            Caracter = Microsoft.VisualBasic.Right(txtNomApell.Text, 1)
            Caracter = UCase(Caracter)
            txtNomApell.Text = ""
            txtNomApell.Text = Temp + Caracter
            txtNomApell.SelectionStart = Longitud + 1

        End If

    End Sub
    'Boton para limpiar el textbox
    Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar2.Click
        txtNomApell.Text = ""
        txtNomApell.Focus()
    End Sub

    'salir de la aplicacion
    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        'aca otra forma pero mas larga par convertir minusculas a mayusculas
        'Dim I As Integer
        'TextBox1.Text = UCase(TextBox1.Text)
        'I = Len(TextBox1.Text)
        'TextBox1.SelectionStart = I

        'forma sencilla
        TextBox1.Text = UCase(TextBox1.Text)

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        'Otra forma pero mas larga para convertir mayusculas a minis
        'Dim I As Integer
        'TextBox1.Text = LCase(TextBox1.Text)
        'I = Len(TextBox1.Text)
        'TextBox1.SelectionStart = I

        'forma sencilla
        TextBox2.Text = LCase(TextBox2.Text)

    End Sub

    Private Sub btnlimpiar3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpiar3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Focus()
    End Sub
End Class

Para descargar la Aplicación da clic AQUI

Publicado el 10 junio, 2010 en .Net, Curiosidades, Programación, Recursos Gratis, Trucos, Visual Basic, Windows y etiquetado en , , , , , , . Guarda el enlace permanente. 2 comentarios.

  1. Hola, que tal arriba mencionas que LCase devuelve una cadena o un carácter que contiene la cadena específica en minusculas, pero no veo un ejemplo con sólo un carácter a minusculas, que es lo que necesito, tendrás algún ejemplo?, de antemano gracias y saludos…

  2. Do you mind if I quote a couple of your posts as long as
    I provide credit and sources back to your site?
    My blog is in the very same area of interest as yours and my users would
    definitely benefit from some of the information you present here.
    Please let me know if this okay with you. Thanks!

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: