1. Visual Basic - Curso completo teoria y practica

On Error GoTo DRIVE_ERROR
Dir1.Path = Drive1.Drive
Exit Sub
DRIVE_ERROR:
End Sub
MsgBox “ERROR: Unidad no preparada”, vbCritical, “Error”
Exit Sub
Private Sub Dir1_Change()
End Sub
File1.Path = Dir1.Path
Private Sub File1_Click()
End Sub
Dim ARCHIVO As String
ARCHIVO = File1.Path & “\”
ARCHIVO = ARCHIVO & File1.List(File1.ListIndex)
ImgVista.Picture = LoadPicture(ARCHIVO)
La instrucción On Error activa una rutina de control de
errores y especifica la ubicación de la misma en un
procedimiento.
LA FUNCIÓN MSGBOX
A menudo habrá situaciones en las cuales tendrá que
presentar algún mensaje (por ejemplo una pregunta) y en función
Pág. 93