Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Traducción De Eventos De VB A Gambas

Responder al tema

 

ociokart
Citar
Mensajes: 13 Ubicación: geo:lat=43.20411224425437 geo:lon=-3.0964279174804688
Viernes, 26 Abril 2013, 15:23
Objetivo: Traducción De Eventos De VB A Gambas
Buenas, soy programador de VB y estoy empezando con gambas. Quisiera solucionar unas "peguillas" que tengo respecto a la declaración y llamadas a eventos...


Para declarar eventos en una clase:
public event evento(param1 as string)


Lanzar el evento en la clase:
raise evento("prueba")



¿Para declarar y usar un objeto de esa clase con eventos?
(en VB)
dim withevents objObjeto as clsClase
public sub objObjeto_evento(param1 as string)
' ...
end sub


¿cómo sería en gambas?
Gracias

Perfil MP   Sitio web
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Sabado, 27 Abril 2013, 00:16
Objetivo: Re: Traducción De Eventos De VB A Gambas
Hola!.

El ejemplo lo encontré en un tutorial.

Declaración de evento en una clase.
Event MiEvento(Data As String)


Llamada del evento correcta.

Para declarar y usar el objeto de esa clase.Instancias la clase y luego creas un observador.

Ejemplo que cuenta hasta 10 y luego vuelve a empezar de nuevo.
Necesitas un formulario y un botón que contara el numero de clicks.

Creamos la clase ClsElemento

Event MiEvento(Data As String)

Private contador As Integer

Public Sub Llamada()

'Incrementamos el contador
contador += 1
If contador > 9 Then
'Si el valor es 10 disparamos el evento
Raise MiEvento("Contador vale 10")
'Y restauramos el contador
contador = 0
Endif

End


Aj ejecutarse Form_Open, instanciamos el objeto de la clase ClsElemento y declaramos
un nombre para el observador o manejador de eventos.

Al manejador de eventos u observador, le añadimos después del guión bajo, el nombre del evento
que declaramos en la clase ClsElemento (al que llamamos cuando se genera el evento).

Código del formulario:
Private MiClase As ClsElemento

Public Sub _new()

End

Public Sub Form_Open()
MiClase = New ClsElemento As "MiObservador"
End

Public Sub btnIniciar_Click()

MiClase.Llamada()

End

Public Sub MiObservador_MiEvento(Data As String)

Message.Info(Data)

End



Saludos

última edición por Shell el Sabado, 27 Abril 2013, 00:17; editado 1 vez
Perfil MP   Sitio web
ociokart
Citar
Mensajes: 13 Ubicación: geo:lat=43.20411224425437 geo:lon=-3.0964279174804688
Sabado, 27 Abril 2013, 07:46
Objetivo: Re: Traducción De Eventos De VB A Gambas
Gracias Shell, funciona perfecto

última edición por ociokart el Sabado, 27 Abril 2013, 07:46; editado 2 veces
Perfil MP   Sitio web
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4719s (PHP: -82% SQL: 182%)
Consultas SQL: 47 - Debug off - GZIP Activado