Discussion :

[Mat32]

Hello,
Je débute en VB et j'essaie de recopier un code fournit par un fabricant.
Cependant, le programme m'indique une erreur dès le départ : Je n'arrive pas à créer un objet.

Quelqu'un pourrait-il m'aider...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Class Class1
    Private WithEvents gICham As INSTCTRLLib.CCham
    Set gICham = CreateObject("InstCtrl.Cham")
 
    Public Interface ICham
         gICham.ScanStart()
    End Interface
 
End Class

[MABROUKI]

bonjour mat32
Pour un controle Activex (a priori et vu que tu es avare d'information )c'est etrange que tu n'utilise pas la boite à outils .
Et que tu instancie le controle en faisant appel à du "late binding" par l'appel à l'interface.

Enfin relativement à ton code on devrait avoir ceci (la partie declaration interface est inutile et tu as probablement mal interprete la doc .Elle veut dire que l'objet Interface ICham peut appeller la methode ScanStart de cette facon).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Ceci est une  documentation indiquant que l'interface 
'ICham supporte une methode ScanStart()  
 
'Public Interface ICham
'         gICham.ScanStart()
'End Interface
 
 
Public Class Class1
 
    Private WithEvents gICham As INSTCTRLLib.CCham
    Public Sub New()
        gICham = CreateObject("InstCtrl.Cham")
        gICham.ScanStart()
    End Sub
End Class

Dans le cas d'appel des interface par "late binding" verifie avec l'outil OleViewer que le controle et eventuellement la librairie d'accompagnement
1/sont bien enregistres sur ta machine
2/que le ProgID(identificateur de programme) de ton controle Activex s'ecrit bien "InstCtrl.Cham" et pas autrement (la doc peut comporter des erreurs de frappe).
Bon code....

[Mat32]

Merci pour ta réponse

Je vais la tester lundi