Ejemplo de un nuevo evento.
Crea una nueva clase ejemplo “Cliente”.
y añade las siguientes lineas.
y añade las siguientes lineas.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Class cliente Public Event ValorCambiado(ByVal e As Object) Private NombreCliente_ As String Public Property NombreCliente() As String Get Return NombreCliente_ End Get Set(ByVal value As String) NombreCliente_ = value RaiseEvent ValorCambiado(value) End Set End Property Public Sub New() End Sub End Class |
Como verás estamos creando un evento cuando se rellena la propiedad nombrecliente, la cual devolvera el valor al cambiar.
una vez creada la clase instanciala de la siguente manera.
|
1 |
Public WithEvents Miclase As New cliente |
y veras quela instancia tendrá el evento ValorCambiado.
el cual será invocado a traves del RaiseEvent pasando a “e” el valor que esta devuelto.
|
1 |
Miclase.NombreCliente = "PEPITO PEREZ" |
Asigna un valor y verás que el evento es invocado
|
1 2 3 |
Private Sub Miclase_ValorCambiado(e As Object) Handles Miclase.ValorCambiado MsgBox(e.ToString) End Sub |