You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Catch<br />
' If an error occurs, code here will be run.<br />
Finally<br />
' Code in this block will always be run.<br />
End Try<br />
Primero, se ejecuta el código del bloque Try. Si se ejecuta sin error, el<br />
programa omite el bloque Catch y ejecuta el código del bloque Finally. Si se<br />
produce un error <strong>en</strong> el bloque Try, la ejecución salta inmediatam<strong>en</strong>te al bloque<br />
Catch y se ejecuta el código que se <strong>en</strong>cu<strong>en</strong>tra allí; luego se ejecuta el código del<br />
bloque Finally.<br />
Inténtelo<br />
Para utilizar el bloque Try...Catch<br />
En el m<strong>en</strong>ú Archivo, elija Nuevo proyecto.<br />
En el cuadro de diálogo Nuevo proyecto, <strong>en</strong> el panel Plantillas, haga clic <strong>en</strong><br />
Aplicación para Windows.<br />
En el cuadro Nombre, escriba TryCatch y haga clic <strong>en</strong> Aceptar.<br />
Se abre un nuevo proyecto de formularios Windows Forms.<br />
En el Cuadro de herrami<strong>en</strong>tas, arrastre un control TextBox y un control<br />
Button al formulario.<br />
Haga doble clic <strong>en</strong> Button para abrir el Editor de código.<br />
En el controlador de ev<strong>en</strong>tos Button1_Click, escriba el sigui<strong>en</strong>te código:<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
Try<br />
Dim aNumber As Double = CDbl(Textbox1.Text)<br />
MsgBox("You <strong>en</strong>tered the number " & aNumber)<br />
Catch<br />
MsgBox("Please <strong>en</strong>ter a number.")<br />
Finally<br />
MsgBox("Why not try it again?")<br />
End Try<br />
Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 56
Change language