Ejecutar evento

08/04/2005 - 23:37 por JHenao | Informe spam
Saludos,
Es posible ejecutar un evento dentro de una misma clase
( en este caso un webform)?

intente hacer algo asi como:
******************************************
Public Class clsPrueba

Private Event Interno(ByVal i As Integer)
Dim WithEvents This As clsPrueba

public Sub Desencadenar(ByVal n As Integer)
RaiseEvent Interno(n)
End Sub

Private Sub This_Interno(ByVal i As Integer) Handles This.Interno
..
End Sub

End Class

Adios y Gracias!!

Preguntas similare

Leer las respuestas

#1 Jorge Serrano [MVP VB]
09/04/2005 - 09:05 | Informe spam
Hola JHenao,

sí se puede, lo que pasa es que en este caso, deberás asignar la clase a la
variable que la declara y usa en el formulario. Lo normal sería crear un
delegado desde el formulario para utilizar la clase o realizar alguna otra
acción, pero para que veas como se puede hacer en tu caso, te pongo el
siguiente ejemplo sacado del tuyo:

Public Class clsPrueba

Public Event Interno(ByVal i As Integer)
Public WithEvents This As clsPrueba

Public Sub Desencadenar(ByVal n As Integer)
RaiseEvent Interno(n)
End Sub

Private Sub This_Interno(ByVal i As Integer) Handles This.Interno
'..
MessageBox.Show("Devuelve: " & i)
End Sub

End Class


La llamada a la clase sería:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim MiClase As New clsPrueba
MiClase.This = MiClase
MiClase.Desencadenar(5)
End Sub


Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"JHenao" wrote:

Saludos,
Es posible ejecutar un evento dentro de una misma clase
( en este caso un webform)?

intente hacer algo asi como:
******************************************
Public Class clsPrueba

Private Event Interno(ByVal i As Integer)
Dim WithEvents This As clsPrueba

public Sub Desencadenar(ByVal n As Integer)
RaiseEvent Interno(n)
End Sub

Private Sub This_Interno(ByVal i As Integer) Handles This.Interno
..
End Sub

End Class

Adios y Gracias!!


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida