Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Traducción De Eventos De VB A Gambas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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
 



 
ociokart - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
última edición por Shell el Sabado, 27 Abril 2013, 01:17; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Traducción De Eventos De VB A Gambas 
 
Gracias Shell, funciona perfecto  
 



 
última edición por ociokart el Sabado, 27 Abril 2013, 08:46; editado 2 veces 
ociokart - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Traducción De Una Aplicacion sdsoldi General 6 Lunes, 22 Noviembre 2010, 18:40 Ver último mensaje
fabianfv
No hay nuevos mensajes Los Peligros Por La Traducción????? v3ctor General 4 Martes, 24 Junio 2014, 13:54 Ver último mensaje
jsbsan
No hay nuevos mensajes Errores En La Traducción Del Proyecto Gam... Shell General 14 Jueves, 01 Octobre 2015, 01:11 Ver último mensaje
Shell
No hay nuevos mensajes Wikilibro De Gambas: Traducción De Ordene... jsbsan General 21 Miercoles, 20 Septiembre 2017, 18:32 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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
No puede descargar archivos
No puede publicar eventos en el calendario