Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Como testar...????
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00611170
Message ID:
00611275
Views:
24
This message has been marked as a message which has helped to the initial question of the thread.
Coloque no Load do seu form:
create cursor ActiveX (Ole2 M (4))
append from <seu form.scx> for !empty(Ole2)
select activeX
scan all 
        m.lcActiveX=substr(activeX.Ole2,at("=",activeX.Ole2)+1,200)
	if !file (m.lcActiveX)
		=messagebox("Não existe o controle "+m.lcActiveX)
		use in activeX
		return .f.
	endif
endscan
use in activeX
A performace não é das melhores, mas você pode fazer a sua aplicação verificar todos os forms antes da execução e marcar um flag quando naquela máquina estiver tudo ok.

Pelo menos não abre a tela para o usuário procurar a OCX :D
Cordialmente,

Fabiano Costa
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform