Discussion :

[bugsisgood]

Bonjour à tous,

un petit soucis que je n'arrive pas à résoudre :

Sur certains PC devant utiliser mon code, un message d'erreur apparait, alors que sur d'autres cela passe bien.

Voici la partie de code (tout simple) qui génère le soucis :
(Image1 est un objet Image)
(OpenFile1 est un objet OpenFile)

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
18
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
' Zoom de l'image de l'Equipement
With Form_Image_PMV
    Select Case Button
        Case 1, 4 ' bouton gauche de la souris
            .Height = Image3.Height * 4: .Width = Image3.Width * 4
            .Picture1.Height = .Height: .Picture1.Width = .Width
            .Picture1.Left = 0: .Picture1.Top = 0
            .Image1.Height = .Height: .Image1.Width = .Width
            .Image1.Left = 0: .Image1.Top = 0
            .Image1 = Form1.Image3
            .Caption = Form1.Caption
            .Show
        Case 2 ' Bouton droit de la souris
            Menu_Chemin_Photos
    End Select
End With
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub OpenFile1_FileSelected()
 
'   Dans cette procédure, on va ouvrir une arborescence du disque, afin d'aller y sélectionner un répertoire précis qui servira ensuite de chemin de stockage pour les fichiers traces .log des interventions techniciens.
 
'   la prochaine recherche partira du dernier répertoire sélectionné
    InitDir = text 
 
    Call EcrireKeyIni("Config_IHM", "Chemin_LOG", OpenFile1.text, FileSource)
    Form1.Label_CheminLog = "(" & OpenFile1.text & ")"
    OpenFile1.Visible = False
    Hide
End Sub

le message integral tel qu'il apparait est :

"Erreur d'exécution 339
Le composant DirOpenFile6.ocx ou une de ses correspondances n'est pas correctement enregistrée, un fichier est absent ou incorrect"


Les PC sont tous identiques et tournent sous WindowsXP Professionnel Version 2002 - Service Pack3

Si je recherche ce composant "DirOpenFile6.ocx" sur mon propre PC où le code tourne bien, je ne le trouve pas !!
Alors .... qu'elle est son importance ??

Merci si quelqu'un a une idée lumineuse à ce sujet ...

[Delbeke]

Le composant est forcément sur ta machine ! Vérifie avec le nom exact qui est DiOpenFIle6.ocx et non DirOpenfile6.ocx

Sur les machines cibles, le composant doit non seulement être copié, mais en plus être enregistré dans la base de registre. Quoique non obligatoire, l'emplacement où mettre ce composant est le répertoire system.