• Jueves 28 de Marzo de 2024, 11:59

Autor Tema:  Control Activex  (Leído 1127 veces)

pacegar

  • Miembro MUY activo
  • ***
  • Mensajes: 108
  • Nacionalidad: es
    • Ver Perfil
    • INTEGRA Canarias
Control Activex
« en: Jueves 18 de Noviembre de 2004, 09:55 »
0
Hola chi@s....

Mi socnuslta es la siguiente. He hecho un control ActiveX que he insertado en mi aplicación. Lo que quiero hacer es que cuando llamo a ese activeX el control de ejecución no regrese a mi aplicación hasta que el activeX no haya acabado...

O por lo menos, si esto no es posible, que el activeX me devuelva un valor, tipo funcion, para saber cuando ha acabado...

Gracias por vuestras sugerencias
Un saludo
Pedro Acevedo
Director de Desarrollo
INTEGRA Tecnología y Comunicación de Canarias
www.integracanarias.com

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Control Activex
« Respuesta #1 en: Viernes 19 de Noviembre de 2004, 09:18 »
0
Hola pacegar.

Habría varias formas, la mejor que se me ocurre sería:

Crear un evento en el actX que se desencadenará al finalar el proceso el activeX, mediante una variable boolean controla en la aplicación el desencadenamiento del evento

En el Control activeX:
Código: Text
  1.  
  2. Public Event FinalizadoProceso()
  3.  
  4. Public Sub HazAlgo()
  5. .
  6. .
  7. .
  8.      RaiseEvent FinalizadoProceso
  9.    
  10. End Sub
  11.  
  12.  

En el form:
Código: Text
  1.  
  2. Private bFinalizado as boolean
  3.  
  4. Private Sub Comand1_Click()
  5.     .
  6.     .
  7.     .
  8.     bFinalizado = True
  9.     ControlActiveX1.HazAlgo
  10.     Do Until bFinalizado
  11.         Doevents
  12.     Loop
  13.     .
  14.     .
  15.     .
  16.  
  17. End Sub
  18.  
  19. Private Sub ControlActiveX1_FinalizadoProceso()
  20.  
  21.     bFinalizado = True
  22.  
  23. End Sub
  24.  
  25.  

Chao.