En VB6, una subrutina de eventos, como Button1_Click, era mucho menos complicada porque el sistema llamaba a la subrutina estrictamente por su nombre. Si existió un evento Button1_Click, el sistema lo llamó. Es directo y directo.
Pero en VB.NET, hay dos actualizaciones importantes que hacen VB.NET SOOPercharged (eso es "OOP" para Programación orientada a objetos).
- La cláusula "Handles" controla si el sistema llama a la subrutina, no al nombre.
- Los parámetros emisor y e se pasan a la subrutina.
Uso de parámetros
Veamos un ejemplo simple para ver la diferencia que hacen los parámetros en VB.NET.
Private Sub Button1_Click (
Remitente ByVal como sistema. Objeto,
ByVal e como sistema. EventArgs
) Botón de manijas 1.Haga clic en
'Tu código va aquí
End Sub
Las subrutinas de eventos siempre reciben un objeto "remitente" y un parámetro de sistema EventArgs "e". Debido a que el parámetro EventArgs es un objeto, admite todas las propiedades y métodos necesarios. Por ejemplo, la antigua subrutina de evento VB6 MouseMove solía recibir cuatro parámetros:
- Botón como entero
- Shift As Integer
- X como soltero
- Y como soltero
Cuando los ratones más avanzados salieron con más botones, VB6 tuvo un problema real para soportarlos. VB.NET solo pasa un parámetro MouseEventArgs, pero admite muchas más propiedades y métodos. Y cada uno de ellos son objetos que soportan aún más. Por ejemplo, el e. La propiedad del botón contiene todas estas propiedades:
- Izquierda
- Medio
- Derecho
- Ninguna
- XButton1
- XButton2
Si alguien inventa un mouse "trancendental" con un botón "virtual", VB.NET solo tendrá que actualizar .NET Framework para admitirlo y, como resultado, no se romperá ningún código anterior.
Hay una serie de tecnologías .NET que dependen absolutamente de estos parámetros. Por ejemplo, dado que su PC generalmente solo tiene una sola pantalla para mostrar gráficos, su código tiene que fusionar los gráficos que crea en la misma imagen utilizada por Windows. Por esa razón, se debe compartir un solo objeto "gráfico". La forma principal en que su código puede usar ese objeto de "gráficos" es usar el parámetro e que es pasado al evento OnPaint con el objeto PaintEventArgs.
Protegido reemplaza a Sub OnPaint (
ByVal e como sistema. Windows Formas PaintEventArgs)
Dim g As Graphics = e. Gráficos
Otros ejemplos
¿Qué más puedes hacer con estos parámetros? Para ilustrar, suponga que desea encontrar si una cadena, tal vez algo que ingresó en un cuadro de texto, existe en cualquiera de una colección de otros cuadros de texto cuando hace clic en uno. Puede codificar algunas docenas de subrutinas prácticamente idénticas para cada cuadro de texto:
Si TextBox42.Text. Índice de(
Cadena de búsqueda. Texto) = -1
Entonces NotFound. Texto =
"Extraviado"
Pero es mucho más fácil codificar solo uno y dejar que se encargue de todos ellos. El parámetro del remitente revelará en qué cuadro de texto se hizo clic.
Sub FindIt privado (
Remitente ByVal como sistema. Objeto,
ByVal e como sistema. EventArgs
) Maneja TextBox1.Enter,
TextBox2.Enter,
... y así sucesivamente.. .
TextBox42.Enter
Dim myTextbox As TextBox
myTextbox = remitente
Dim IndexChar As Integer =
myTextbox. Texto. Índice de(
Cadena de búsqueda. Texto)
Si IndexChar = -1 Entonces _
Extraviado. Texto = "No encontrado" _
El otro _
Extraviado. Texto = "¡Lo encontré!"
End Sub
Recientemente, un programador me pidió una mejor manera de "eliminar la línea en la que se hizo clic en cualquiera de las seis listas especificadas". Lo tenía trabajando en un par de docenas de líneas de código que simplemente me confundieron. Pero usando el remitente, fue realmente bastante simple:
Private Sub ListBox_Click (
Remitente ByVal como objeto,
ByVal e como sistema. EventArgs
) Maneja ListBox1.Click, ListBox2.Click
Dim myListBox como nuevo ListBox
myListBox = remitente
myListBox. Artículos. RemoveAt (myListBox. SelectedIndex)
End Sub
Un ejemplo más para precisar el punto es una pregunta enviada por Pierre en Bélgica. Pierre estaba probando la igualdad de Button1 y el remitente utilizando el Es operador para objetos:
Si el remitente es el botón 1, entonces ...
Esto es sintácticamente correcto porque el remitente y Button1 son objetos a los que se puede hacer referencia. Y dado que el remitente es idéntico a Button1, ¿por qué no funciona?
La respuesta depende de una palabra clave que se encuentra un poco antes en la declaración. Primero, revisemos la documentación de Microsoft para Es operador.
Visual Basic compara dos variables de referencia de objeto con el operador Is. Este operador determina si dos variables de referencia se refieren a la misma instancia de objeto.
Observe que se pasa el remitente ByVal. Eso significa que se pasa una copia de Button1, no el objeto real en sí. Entonces, cuando Pierre prueba para ver si el remitente y Button1 son la misma instancia, el resultado es False.
Para probar si se ha hecho clic en Button1 o Button2, debe convertir el remitente en un objeto Button real y luego probar una propiedad de ese objeto. Generalmente se usa texto, pero puede probar un valor en Etiqueta o incluso en la propiedad Ubicación.
Este código funciona:
Dim myButton As Button
myButton = remitente
Si myButton. Text = "Button1" Entonces