Page 1 of 1
Soporte de múltiples ActiveX
Posted: Fri Mar 30, 2007 2:14 pm
by Antonio Linares
Algunos usuarios han comentado acerca de la posibilidad de usar simultaneamente varios controles ActiveX.
Aqui teneis un ejemplo:
Code: Select all
#include "FiveWin.ch"
function Main()
local oWnd, oActiveX1, oActiveX2
DEFINE WINDOW oWnd TITLE "FiveWin multiple ActiveX support"
oActiveX1 = TActiveX():New( oWnd, "Shell.Explorer" )
oActiveX1:Move( 10, 10, 220, 220 )
oActiveX1:Do( "GoHome" )
oActiveX2 = TActiveX():New( oWnd, "MediaPlayer.MediaPlayer.1" )
oActiveX2:Move( 10, 240, 220, 220 )
ACTIVATE WINDOW oWnd
return nil
Posted: Fri Mar 30, 2007 3:02 pm
by George
Antonio,
Que haces para que ese dialogo se vea tan elegante?
Se puede hacer con Borland Workshop?
Podrias postear un ejemplo de como crear esos dialogos?
Saludos,
George
Posted: Fri Mar 30, 2007 11:26 pm
by Raymundo Islas M.
Hola
Hay 2 opciones :
- Conseguir e instalar algun tema/skin que emule al Vista
- Instalar el windows Vista !!!!
( esta precioso
, pero algo caro por no decir mucho
)
Saludos
Posted: Sat Mar 31, 2007 8:45 am
by Antonio Linares
Es el Windows Vista x64 Ultimate
Aqui está el ejemplo nuevamente, usando los comandos de ActiveX:
Code: Select all
// Using several ActiveX simultaneously
#include "FiveWin.ch"
function Main()
local oWnd, oActiveX1, oActiveX2
DEFINE WINDOW oWnd TITLE "FiveWin multiple ActiveX support"
@ 10, 10 ACTIVEX oActiveX1 PROGID "Shell.Explorer" OF oWnd SIZE 220, 220
oActiveX1:Do( "GoHome" )
@ 10, 240 ACTIVEX oActiveX2 PROGID "MediaPlayer.MediaPlayer.1" OF oWnd SIZE 220, 220
ACTIVATE WINDOW oWnd
return nil