PRÁCTICA 1

1.- Crear un Proyecto Nuevo

2.- Añadir al Form1 dos Label, un TexBox y un CommandButtom:



3.- Escribir el siguiente código:

Option Explicit

Private Sub cmdMostrar_Click()
      LblMostrar = "Hola " & txtNombre
End Sub

Private Sub Form_Load()
      LblMostrar = ""
      txtNombre = ""
End Sub

4.- Ejecutar el programa

Para mostrar el nombre en mayúsculas:

Private Sub cmdMostrar_Click()
      LblMostrar = "Hola " & UCase(txtNombre)
End Sub 

El Ucase convierte en mayúscula lo q esta en el txtMostrar.

Convertir los caracteres conforme se vayan escribiendo:

Private Sub txtNombre_Change()
      txtNombre = UCase(txtNombre)
End Sub

De manera correcta:

Private Sub txtNombre_Change()
      txtNombre = UCase(txtNombre)
      txtNombre.SelStart = Len(txtNombre)
End Sub

Len cuenta los caracteres de una cadena y lo devuelve como número, SelStar es una propiedad del TextBox , que indica la posición en que se insertara el siguiente carácter que se escriba o bien la posición del cursor y obliga a poner el cursor al final de la última letra que contiene el txtMostrar. Cada vez que cambie el txtMostrar se produce el evento Change.

Otra forma de hacerlo:

Private Sub txtNombre_KeyPress(KeyAscii As Integer)
      Dim s As String
      s = UCase(Chr(KeyAscii))
      KeyAscii = Asc(s)
End Sub