ajouter un activex et sa dll

Question

mes ami(e)s bonsoir

j'ai un form qui contient le control
SmartMenuXP.ocx  
et sa dll SmartMenuXP.dll qui son bien enregistrer dans le registre et qui fonctionnent bien dans mon form1
mais que je fais appel a :

 Private Sub MenuInternet_Click            
Dim frm_web As FrmInternet
  Set frm_web = New FrmInternet
  frm_web.show
end sub

la nouvelle form s'affiche mais sans le control SmartMenuXP.


j'ai essayé :
Dim WithEvents ctlDynamic As VBControlExtender
Dim WithEvents ctlDynaWeb As VBControlExtender
Dim WithEvents ctlCommand As VB.CommandButton

et :
 Private Sub MenuInternet_Click            
Dim frm_web As FrmInternet
  Set frm_web = New FrmInternet
  frm_web.show
Licenses.add "SmartMenuXP"

Set MenuInternet = Controls.add("ProgId", "SmartMenuXP", frm_web)

Set ctlDynamic = Controls.add("MSComctlLib.TreeCtrl", "myctl", frm_web) 

Set ctlDynaWeb = Controls.add("Shell.explorer.2", "myctlweb", frm_web) 

Set ctlCommand = Controls.add("VB.CommandButton", "ctlCommand1", frm_web) 

end sub

rien ne s'affiche en plus j'ai une erreur 711

aidez moi svp
merci à l'équipe

ucfoutu · Answer

Bonjour,

le plus simple est peut-être de tenter d'ajouter un second controle SmartMenuXP.ocx (inviisible) sur ta première form et d'en rendre parente celle que tu as créée (en le rendant alors visible et en le plaçant où tu veux)


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

cs_amita · Answer

j'ai pas pu résoudre mon ami


merci à l'équipe

Ajouter un activex et sa dll

2 réponses

Votre réponse

Discussions similaires