Ejercicios introductorios a los formularios de Visual Basic
Primer programa Como siempre Hola Mundo:

Al entrar en el entorno de programación de Visual Basic (No en la versión .Net) y crear un nuevo proyecto standard nos encontramos con un formulario form1 le damos doble click y nos muestra la ventana de código que dice:

Private Sub Form_Load()
End Sub

La modificamos para que diga lo siguiente:

Private Sub Form_Load()
    Show
    Saludo = "Hola gente linda"
    Print Saludo
End Sub

Pulsa F5

Nota: En todos los FORM_LOAD deberás poner SHOW al principio para que se muestre lo que se imprime.

Los eventos.

Añade al form dos Label, un TextBox y un botón de comandos. El aspecto será algo parecido al de la siguiente figura:

Añade el siguiente código y después Pulsa F5.

Private Sub Form_Load()
    Label2 = ""
    Text1 = ""
End Sub


Private Sub Command1_Click()
    Label2 = "Hola " & Text1
End Sub

Cuando pulsas F5, se produce el evento Form_Load, por tanto se asigna al Label2 y al Text1 una cadena vacía, con lo cual borramos el contenido anterior, que es el que se muestra en la Figura.
Hasta que no pulsemos el botón mostrar, no ocurrirá nada

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

Convierte cada tecla pulsada en mayúscula.

Tutorial de Visual Basic

 
Ejemplo de Hola mundo en el evento paint (se lo llama cuando se repinta/redibuja la ventana) 'En el ejercicio anterior si minimizamos y restauramos la ventana nos daremos cuenta
'Que se borra el texto, para evitar eso hacemos uso de este evento.
 
 Private Sub Form_Paint()
     Form1.Print "Hola Visual Basic."
 End Sub


'Le agregamos el botón cerrar.
'El nombre del botón por defecto es : Command1.
'Hacemos doble click sobre el botón y escribimos :

Private Sub Command1_Click()
    Unload Form1
End Sub

' Para el siguiente ejemplo de ingreso de un password
' necesita arrastrar desde la caja de herramientas (toolbox)
' que se encuentra a la izquierda 2 textboxes y 1 command button
 
     Private Sub Form_Load()
         Command1.Enabled = False 'deshabilita el botón
     End Sub
 
     Private Sub Text1_Change()
         If Text1.Text = "" Then
              Command1.Enabled = False 'deshabilita el botón sin texto
         Else
              Command1.Enabled = True  'Habilitar el botón
         End If
         Text2.Text = Text1.Text        'Actualiza el text2
     End Sub                            'a medido que se cambia text1
 
 
     Private Sub Command1_Click()
         MsgBox "Texto 1: " & Text1.Text & " y  texto 2 " & Text2.Text
         Unload Form1
     End Sub
 

Pulse F5 para probar el código.

' Utilización del picture box para ver imagenes.
' debe arrastrar (en realidad seleccionar y colocar) un picturebox
' en el formulario que hará de contenedor de nuestra imagen.

 
 Private Sub Command1_Click()
     On Error GoTo fallo:
     Picture1.Picture = LoadPicture("C:\Windows\azteca.bmp")
     Exit Sub
 fallo:
     MsgBox "Error, fichero no encontrado."
 End Sub
 


' Ejemplo de uso del msgbox para ingreso de datos.

Private Sub Command1_Click()
    Dim Resp As Integer
    Resp = MsgBox("Hola" & vbCrLf & "Esto es un ejemplo."_
                  , vbQuestion + vbYesNo + vbDefaultButton2, "Ejemplo")
    If Resp = 6 Then
        MsgBox "Ha pulsado SI"
    Else
        MsgBox "Ha pulsado NO"
    End If
End Sub

Nota: el símbolo "_" sirve para continuar una línea en el renglón 
siguiente si es muy larga.

' Uso del InputBox para ingreso de texto

Private Sub Command1_Click()
    Dim Val As String
    Val = InputBox("Deme su nombre", "Ejemplo")
    MsgBox "Su nombre es: " & Val
End Sub

' El siguiente es un ejercicio que ejemplifica el uso del editor de menús
' Trabajar con diálogos, abrir y Guardar archivos desde Visual Basic