Discussion :

[ProgElecT]

Bonjour
Je réalise un OCX qui demande une DLL qui est installée sur tout les OS depuis Windows 98, mais il arrive qu’elle soit mal installée (pour faire simple).
J’ai le moyen de détecter ce cas, dans la procédure UserControl_InitProperties ==> appel de la sub privée de vérification, lors de la pose de l’ocx sur le Form.
S’il y a problème, un MsgBox le signale au concepteur-utilisateur.
Je voudrais, dans le cas de l’absence ou non-conformité, que le chargement de cette ocx prenne fin et bien sûr qu’il n’apparaisse pas sur le Form.
Pour résumer, comment empêcher que l’ocx ce retrouve sur le Form ?

Merci

[ucfoutu]

Bonjour,

Le plus simple est de :
- faire apparaître une msgbox informant le développeur de ce qu'un problème existe et qu'en conséquence vb va être fermé sans sauvegarde.
- fermer VB

[ProgElecT]

Salut ucfoutu
Non non, je veux que le programmeur qui pose l'OCX sur son Form ne ce retrouve pas avec un OCX qui lui fasse planter son projet.
Pour le MsgBox il y est déjà durant la pose sur le Form (dans la procédure UserControl_InitProperties ==> appel de la sub privée de vérification), avant même qu'il apparaisse.
Par contre si il le laisse et qu'il utilise les fonctions de la DLL utilisée, l'OCX ne fonctionne pas, mais je crains une fuite de mémoire et un risque de plantage, je voudrais éliminer cette possibilité.

Sur ce il se fait tard, je faisai un dernier passage, à bientôt ...... demain ...

[ucfoutu]

J'avais bien compris...

Si tu quittes VB en mode design (lors de la "pose" de ton ocx) sans enregistrer le projet ===>> pas d'ocx dans le projet ...

[DarkVader]

Bonjour,

J'avais bien compris...

Si tu quittes VB en mode design (lors de la "pose" de ton ocx) sans enregistrer le projet ===>> pas d'ocx dans le projet ...

Tu utilises une masse pour tuer une mouche, non ?

Voir peut-être du coté d'un addin pour gérer la mise en place
sinon tu peux tourner autour de ...

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub UserControl_Initialize()
    If MsgBox("On va quitter ?", vbYesNo) = vbYes Then UserControl_Terminate
End Sub
 
Private Sub UserControl_Terminate()
    Unload Me
End Sub

L'ennui c'est le message d'erreur qu'il va être difficile de contourner.

[ProgElecT]

Il y a souvent un moyen détourné de faire les choses.

L’important étant de ne pas faire planter l’éditeur VB, je me suis attelé a trouver la chronologie exacte des procédures enclenchées au moment de la pose d’un composant sur un Form.

Maitrisant bien la vérification de la DLL pouvant déclencher le problème, lors de la pose de l’ocx sur le Form, si la DLL qu’il utilise est non valide, je masque toutes ses fonctionnalités par un TextBox (présent de toutes façon) que je reseize au fur et a mesure, avec l’information «*OCX non utilisable, DLL non présente ou mal installé*».
Il ne reste au programmeur qu’a la supprimer du Form.
S’il fait un Run, le composant reste dans la même configuration, et si des appels par code sont fait, une variable Booléen à False fait quitter toutes les procédures et fonctions.
Pas super pro comme solution, mais efficace.
Merci de vos interventions.