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.

[sourcecode language="vb"]
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
[/sourcecode]

Para descargar la Aplicación da clic AQUI