DLL, PictureBox, code ect...Résolu

Question

Voila mon probl&#232;me : je veux cr&#233;er une dll sous vb6 que je puisse appeler dans un autre programme VB, mais je veut que cette Dll contienne une picturebox avec une image de fond, des bouton, du code ect... et que dans mon programme en VB je veut pouvoir appeller cette picturebox pour l'ins&#233;rer dans une des forms et que sont code lui aussi soit int&#233;grer.

Une sort de plugin, sauf que je sait pas faire, jusqu'a mainteant les dll que je cr&#233;ai je n'y appelai que des String, des longs ect...

Autre question, est il possible de cr&#233;er une dll qui contienne une image(en bmp dans un fichier ressource) et de pouvoir appler cette image dans un picturebox ou une form?

rvblog · Accepted Answer

Salut Nico1610, je ne comprends pas tout ce que tu dis (ex: pictureBox qui a un bouton "Afficher l'heure", je sais que c'est possible, mais c'est bizarre), mais moi, parfois, on ne comprend pas tout ce que je dis. La technique des pluggins (ou Addins ou Compléments...) se repose souvent sur une technologie simple : les interfaces. Une interface est un contrat (dixit MSDN) entre 2 parties. En l'occurrence, ton form quelconque dit "je veux manipuler un objet Pcpt et lui dire, sans me tromper et les yeux fermés, Pcpt.DonnesDuCode(LaIci)". De l'autre côté, ta dll, doit signer le contrat et dire "quand on me direras DonnesDuCode(LaIci), je donnerais du code, dans LaIci". Je fais simple, pour... simplifier 1./ Il te faut créer une bibliothèque (conseil: dll activeX) contenant l'interface. Tu l'appelleras ContratQuestionReponse.dll, le nom du projet sera aussi ContratQuestionReponse, et elle ne contiendra qu'une classe que tu appelleras Nico1610aDit. Cette classe implémentera une seule méthode (function), nommée DonnesDuCode(ByRef LaIci As String), et, c'est important, ne contiendra pas de code (je crois que dans d'autres langages, on appelle ça une méthode abstraite). Tu compiles, et tu registres ta dll auprès de Windows. 2./ Tu crées ensuite une autre dll (conseil: tjrs active X, pourquoi se priver), que tu appeleras AdminVBFrance.dll. Tu lui ajoutes une référence à ContratQuestionReponse (que tu dois trouver dans la liste des disponibles, si tu as registré la bibliothèque interface). Tu y crées une classe nommée ToujoursPret. Au niveau module de cette classe (cad zone déclaration avec la combo de gauche du panneau de code ouvert), tu écris : Implements ContratQuestionReponse.Nico1610aDit Toujours dans la combo de gauche, cherches à présent l'objet Nico1610aDit et sélectionnes le. Tu vas te retrouver dans une section de code nommée Nico1610aDit_DonnesDuCode(LaIci As String). C'est ici que se retrouve tous ceux qui chercheront à l'avenir à répondre aux sollicitations qu'on leur fera, les yeux fermés et sans se tromper. 3./ Enfin, crée un projet (ex: exe standard, mais tout est possible), et ajoute aussi une référence à ContratQuestionReponse (que tu dois trouver dans la liste des disponibles, si tu n'es pas en train de lire le 3./ avant le 2./). Il te suffit, maintenant, de : - Dim strMonEspritVorace as String - Dim Pcpt as ContratQuestionReponse.Nico1610aDit 'on ne déclare que l'interface, qu'on connait déjà et que tout le monde respecte - set Pcpt = CreateObject("AdminVBFrance.ToujoursPret") ' on pourrait faire une liaison précoce et utiliser l'opérateur New, mais si on veut gérer des Pluggins que l'on ne connait qu'au dernier moment, il vaut mieux des liaisons tardives - PcpT.DonnesDuCode strMonEspritVorace ' et Pcpt s'exécute sans sourciller, comme d'habitude, et tu retrouves le code dans... Mais non, le code, il est juste au dessus :P Ensuite, tu fait autant de dll que tu en souhaites (AdminVBExpert.dll, AdminDeveloppez.dll...), qui implémentent l'interface définie, et dont tu pourras instancier les classes, et bouffer du code jusqu'à la lie :) Tu noteras que tu peux inventer un sous-système de la technologie de ton choix (fichier ini, base de registre, base de données, intranet...) pour savoir quels sont les Pluggins à instancier, puisqu'on les instancie grâce à leur ClassID. Tu noteras aussi que, quand tu auras réussi à mettre en oeuvre cet exemple fort simple, tu auras plein d'autres idées qui viendront (oh, mais est-ce que c'est...? est-ce qu'on peut...? et est-ce que si je...?), et qu'il faudra que tu te répondes "sûrement, je vais essayer", car c'est le 2ème meilleur moyen d'avancer, en se dépassant ,(le 1er meilleur moyen est de demander au Admin CS), et de corroborer le célèbre "C'est en se mochant qu'on devient moucheron!". Je t'ai déjà dit que, parfois, on ne comprend pas ce que je dit? rvblog^{n

PS: pour les Admin CS, j'avais un peu de temps, et comme ça, c'est pas toujours les mêmes qui s'y collent! et si vous avez une réponse à ma question du 14/03/06, je suis preneur!}

PCPT · Answer

salut,

OUI (pour tout).



pour ta dll, il faut une classe (obligatoire) et une Form.

ta classe faisant le lient entre la form[projet activex] et le code form[projet exe standard].



pour resource, possible mais je ne vois pas pourquoi. tu peux directement stoquer l'image dans la pbox de la form de la dll.

cs_nico1610 · Answer

tu est bien gentil mais je voudrai du code, car j'ai essyer et ca ne marche pas.
Il me faudrai donc une source qui montre coment recup&#233;rer une image d'une dll du style :
'## La module de calsse a placer
...
'## La fonction pour appeler
me.Picture1.picture = Mydll.GetPicture1

Et comment le code peut int&#233;ragire entre la dll et une picture box ins&#233;rer dans ma forme ?

Le but est de cr&#233;er des plugin qui s'ajouteron et qui pouron avoir autan de fonction qu voulu et autant de bouton que voulu.

Du style Dans la dll , il y a une pictureBox qui a un bouton "Afficher l'heure"

Dans ma form j'apelle cette picture box depuis ma dll, et quand on clic sur le le bouton ca va &#233;x&#233;cut&#233; de code contenu dans la dll !


Le principe est de pouvoir charger autan de ces picture box que possible sans en connaitre un traite mot de code ! juste le :
Dim Pic as ew PictureBox
Pic = mydll.pictureBoxInsert
Pic.left = Mydll.PicLeft 
ect ...

PCPT · Answer

r&#233;ponse intelligente et fort agr&#233;able &#224; lire

cs_nico1610 · Answer

Super ton truc, je vien de comprendre le probl&#232;me des plugin (qui n'en est plus un pour moi !)
Un grand merci, je peut donc cr&#233;er des plugin a la folie !!
Mais mon probl&#232;me (et oui) est toujours dans les picture box !!

En faite je me sert des picturebox comme de conteneur et je met dedans des controles (boutton, image, PictureBox(pourquoi pas!) ...)
Et dans notre picturebox de d&#233;part, chaque controle &#224; un code sp&#233;cifique, et ce que je veut faire c'est justement un plugin (dll) qui ai une Picture Box toute faite avec ses controles &#224; l'interieur et le code pour chaque controle.  Et comme ca dans ma form de d&#233;part (dans mon projet Exe) je n'ai plus qu'a faire:
Dim MonPlugIn as MaDll.NomDuPlugIn
Dim PictureForDll as New PictureBox
CreatPlugin in PictureForDll as MonPlugIn.PicturePourForm

Naturellement je ne cherche pas a savoir comment faire la fonction CreatPlugin
MAIS comment cr&#233;er une fonction dans ma classe de dll qui puisse envoyer au programme exe la picturebox avec le code, l'image de fond de la picturebox ...
L&#224; est mon probl&#232;me !
Naturellemnt tu m'as d&#233;ja boucuop aider mais ...

PCPT · Answer

pour l'image (dans la pic), j'ai d&#233;j&#224; r&#233;pondu.

(la classe a un objet pic, une propri&#233;t&#233; stdpicture, et r&#233;cup&#232;re le
pic.picture de la form que le projet activex contient. la classe
faisant le lien, elle renvoie son stdpicture)

par contre si par exemple ta pic (activex) contient un bouton et que tu
veux, &#224; l'appel du plugin, que le bouton se dessine dans la pic exe, &#231;&#224;
sous forme de plugin (donc ne pas savoir &#224; l'avance la structure de la
dll), tu ne pourras qu'indirectement (getparent, setparent).



sinon il faut passer par un ctl dans la dll.



ps : Dim PictureForDll as New PictureBox impossible!!

cs_nico1610 · Answer

Ok Grand merci
Je pense que j'ai compris comment faire mais PlugIn,

La suite bientot sur le code d&#233;pos&#233; !

Un grand merci a vous deux !

amezghal · Answer

tester cela:
public property get getpicture(pic as picturebox)
pic.picture=form1.picture1.picture
end property

cs_nico1610 · Answer

si seulemnt c'&#233;tait aussi simple !

Le stdpicture non plus ne marche pas alors je fait un fichier externe que je r&#233;cup&#233;re!
dommage, mais si je trouve mieux je le ferai savoir sur ce post !

PCPT · Answer

c'est assez bizarre, j'utilise des stdpicture par dll, un peu de la m&#234;me mani&#232;re que toi (plugin) et y'a pas de mal....

cs_nico1610 · Answer

Si tu peut m'envoyer un exemple vite fait se serai simpa ,
juste une dll + plugin + exe fait en 2 minute a evc une stdpicture en exemple 
STP !!
Car la je gal&#232;re grave ! et ma solution boiteuse me plai qu'a moiti&#233; !

cs_nico1610 · Answer

mon mail = nico1610_68@yahoo.fr

PCPT · Answer

mon code reprend trop de ... bidouilles

on tourne en boucle :



dans la dll, j'ai une form avec 30 picturebox contenant mes bmp voulues et pas de code (enfin &#231;&#224; d&#233;pend, mais &#231;&#224; ne joue pas).

dans ma classe j'ouvre la form (appel, pas visible), que je d&#233;charge &#224; la fin







'   *- INITIALIZE -*

Private Sub Class_Initialize()

    Load Frm_Resources

End Sub

'

'

'   *-TERMINATE -*

Private Sub Class_Terminate()

    Load Frm_Resources

End Sub





et dans mes appels (par exemple ) :



Public Property Get pBackGround() As StdPicture

    Set pBackGround = Frm_Resources.Pic_00frm.Picture

End Property







pour le principe de la dll en plug-in, je suis parti de la base de Galy (que tu as vu apparemment aujourd'hui)



mon ocx compte son nombre d'instances et cr&#233;&#233; ou non une collection de mes dll (ressources) voulues.

j'acc&#232;de donc &#224; mes propri&#233;t&#233;s comme &#224; une collection :



Set ObjDll = Mod_MainAndTools.AfResource.GetDllObject(mSkinIndice)



et je g&#232;re ensuite avec ObjDll (as object) dont les propri&#233;t&#233;s sont toujours les m&#234;mes (cette fameuse stdpicture pour le cas pr&#233;sent)

tu as maintenant des noms de variables en plus, mais &#231;&#224; ne va pas
forc&#233;ment t'avancer &#224; grand chose, c'est juste ce que je disais au
d&#233;but.



bon courage en tout cas

cs_nico1610 · Answer

A c'est peut &#234;tre parceque je ne mettais pas le SET !!
Je verifie ...

OH LOL CA MARCHE !!

UN GRAND MERCI A TOI !!!

TU EST UN DIEU .... ^^

DLL, PictureBox, code ect...

14 réponses

Discussions similaires