CRIANDO OBJETO VIA CODIGO EM MODULO

DANLEONHART 16/03/2012 20:43:04
#397344
Pessoal...

Estou tentando criar um objeto via código pois não irei utilizar Form[ô]s, somente um Módulo...

Global MySvc As Object

Sub Main()
Set MySvc = CreateObject([Ô]NT.Service.Control.1[Ô])

End Sub


mas está sendo apresentado o seguinte erro:

Error 429
ActiveX component can[ô]t create object

o componente está registrado no sistema, e já o localizei no Regedit...mas não consigo instanciá-lo.

o componente é o [Ô]NTSVC.ocx[Ô].
LLAIA 11/04/2012 09:42:10
#399567
Esse erro 429 é terrível. Ele não especifica o porquê do erro. Vc sabe se esse ocx tem alguma dependência?
DANLEONHART 11/04/2012 12:29:25
#399586
Pior é que não sei cara...
pelo que pude encontrar na net ela é independente de outras bibliotecas...mas vá confiar !
MACYSZYN 11/04/2012 13:34:23
#399588
Resposta escolhida
Acho que você esta fazendo errado
assim não da erro
Set MySvc = CreateObject([Ô]NTService.Control.1[Ô])

Tenta ai.
KERPLUNK 11/04/2012 14:11:41
#399593
Eu fiz assim e funciona:
Dim MySvc As Variant
Set MySvc = CreateObject([Ô]NTService.Control.1[Ô])
MACYSZYN 11/04/2012 14:44:48
#399609
Eu fiz assim e funcionou
Global MySvc As Object

Sub Main()
Set MySvc = CreateObject([Ô]NTService.Control.1[Ô])
End Sub
DANLEONHART 11/04/2012 20:01:05
#399645
é pessoal...
como podem ver foi falta de atenção minha

Geralmente quando não sei como referenciar o objeto pela função [txt-color=#0000f0]CreateObject[/txt-color], eu procuro no Regedit para assim referenciá-la...
e fiz errado...coloquei [txt-color=#e80000][Ô]NT.Service.Control.1[Ô][/txt-color]
e o correto é: [txt-color=#0000f0][Ô]NTService.Control.1[Ô][/txt-color]

Agora vou tentar concluir este projeto [Ô]Service[Ô] que já havia o encostado há alguns dias

Obrigado a todos !
Tópico encerrado , respostas não são mais permitidas