18.01.2013 Views

Programación en Visual Basic 2008

Programación en Visual Basic 2008

Programación en Visual Basic 2008

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

palabra clave Handles le dice al controlador de ev<strong>en</strong>tos cuáles ev<strong>en</strong>tos debe<br />

controlar.<br />

Para compartir un controlador de ev<strong>en</strong>tos <strong>en</strong>tre varios controles, simplem<strong>en</strong>te<br />

debe agregar los nombres de los controles adicionales y el nombre del ev<strong>en</strong>to<br />

que desea controlar. Luego, el controlador de ev<strong>en</strong>tos recibe una notificación<br />

cuando se produce el ev<strong>en</strong>to para cualquiera de dichos controles. Por ejemplo,<br />

si ti<strong>en</strong>e dos controles Button y desea utilizar el mismo controlador de ev<strong>en</strong>tos<br />

para ambos, la cláusula Handles puede t<strong>en</strong>er el sigui<strong>en</strong>te aspecto.<br />

Handles Button1.MouseEnter, Button2.MouseEnter.<br />

Ahora ti<strong>en</strong>e un método único que controla el ev<strong>en</strong>to MouseEnter para ambos<br />

controles, pero ¿cómo sabe el controlador de ev<strong>en</strong>tos cuál control provocó el<br />

ev<strong>en</strong>to? Si examina nuevam<strong>en</strong>te la declaración Method, observará la cláusula<br />

ByVal s<strong>en</strong>der As Object; la palabra clave S<strong>en</strong>der le dice al controlador<br />

de ev<strong>en</strong>tos cuál objeto (<strong>en</strong> este caso cuál control) provocó el ev<strong>en</strong>to.<br />

Inténtelo<br />

Para compartir un controlador de ev<strong>en</strong>tos<br />

Abra el proyecto Ev<strong>en</strong>tHandler que creó <strong>en</strong> la lección anterior. Si no lo guardó,<br />

primero deberá regresar a la lección anterior, Hacer que el programa reaccione<br />

ante el usuario: crear un controlador de ev<strong>en</strong>tos y finalizar los procedimi<strong>en</strong>tos<br />

de dicha lección.<br />

En el Explorador de soluciones, seleccione Form1.vb y, a continuación, <strong>en</strong> el<br />

m<strong>en</strong>ú Ver elija Diseñador.<br />

En el Cuadro de herrami<strong>en</strong>tas, arrastre otro control Button hasta el<br />

formulario.<br />

En la v<strong>en</strong>tana Propiedades, establezca la propiedad AutoSize <strong>en</strong> True.<br />

En el m<strong>en</strong>ú Ver, elija Código para abrir el Editor de código.<br />

En la declaración de método Button1_MouseEnter (Private Sub<br />

Button1_MouseEnter(ByVal s<strong>en</strong>der As Object, ByVal e As<br />

System.Ev<strong>en</strong>tArgs) Handles Button1.MouseEnter), cambie la<br />

cláusula Handles para que se lea Handles Button1.MouseEnter,<br />

Button2.MouseEnter.<br />

En el cuerpo de la declaración de ev<strong>en</strong>to, reemplace el código con lo sigui<strong>en</strong>te.<br />

<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />

If s<strong>en</strong>der.Equals(Button1) Th<strong>en</strong><br />

Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 66

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!