You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Se abre un nuevo proyecto de formularios Windows Forms.<br />
Haga doble clic <strong>en</strong> el formulario para abrir el Editor de código.<br />
En el Editor de código, busque la línea que conti<strong>en</strong>e End Class. Éste es el fin<br />
de la sección de código que compone el formulario. Inmediatam<strong>en</strong>te antes de<br />
esta línea, agregue el sigui<strong>en</strong>te procedimi<strong>en</strong>to:<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
Function GetTime() As String<br />
Return CStr(Now)<br />
End Function<br />
Esta función utiliza el procedimi<strong>en</strong>to Now integrado para obt<strong>en</strong>er la hora<br />
actual, luego utiliza la función CStr para convertir el valor devuelto por Now <strong>en</strong><br />
una String legible. Finalm<strong>en</strong>te, ese valor String se devuelve como el resultado<br />
de la función.<br />
Sobre la función que agregó <strong>en</strong> el paso anterior, agregue el sigui<strong>en</strong>te Sub.<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
Sub DisplayTime()<br />
MsgBox(GetTime)<br />
End Sub<br />
Esta subrutina llama a la función GetTime y muestra el resultado que<br />
devolvió <strong>en</strong> un cuadro de m<strong>en</strong>saje.<br />
Finalm<strong>en</strong>te, agregue una línea al controlador de ev<strong>en</strong>tos Form1_Load que<br />
llama a la subrutina DisplayTime, como se muestra <strong>en</strong> el ejemplo.<br />
<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />
DisplayTime()<br />
Presione F5 para ejecutar el programa.<br />
Cuando el programa se inicia, se ejecuta el procedimi<strong>en</strong>to de ev<strong>en</strong>to<br />
Form1_Load . Este procedimi<strong>en</strong>to llama a la subrutina DisplayTime, de<br />
manera que la ejecución del programa va al procedimi<strong>en</strong>to de subrutina<br />
DisplayTime. Esa subrutina a su vez llama a la función GetTime, por lo que<br />
la ejecución del programa va a la función GetTime. Esta función devuelve una<br />
Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 42