CRÉATION ET UTILISATION D'UNE DLL ACTIVEX VB

Commentaire de Ouneufe le 14/01/2002 00:23:07

Au poil, c'est l'exemple qu'il me fallait. En fait, j'ai buté sur un oubli stupide : le projet doit porter le même nom que la classe créée.

Commentaire de Doul21 le 14/06/2002 10:08:46

Meric beaucoup pour le code mais je voudrais savoir la syntaxze pour l'utilisation de cette DLL sous Delphi....

Commentaire de shining le 29/01/2003 01:25:59

voici une technique que j'utiliser auparavent, en fait comme tout le monde ne sais pas enregister une dll donc si tu file un programme qui exploite des dlls bah t'aura toujours des "mais ca marche pas !!!" donc la solution que g trouver c'est celle la
1-Créer un prog qui n'exploite pas de dll(donc il devrais marcher si toute fois l'utilisateur possede les runtimes de vb)
2-Etant donnée qu'ont connais d'avance le nom des dlls il suffit  de les declarer en private sans mettre de destination ...


voici un exemple  de ma source

'RegMyDllNum1 etant le Nom de ma premiere dll
'UnRegMyDllNum1 etant le deressencement de ma dll
'en clair RegMyDllNum1 enregistre vôtre dll et unreg la retire de la base deregistre
Private Declare Sub RegMyDllNum1 Lib "C:WindowsSystemvbScript.dll" Alias "DllRegisterServer" ()
Private Declare Sub UnRegMyDllNum1 Lib "C:WindowsSystemvbScript.dll" Alias "DllUnregisterServer" ()

'dans cette exemple nous allons desenregistrer vbscript.dll  et la réenregister
'Attetion toute fois de bien respecter la casse des Alias vous devez les recopier tel quel puisque les nom de dll font la difference entre Majuscule et Minuscule

on vas ajouter dans la forme un bouton nommé CmdSetup pour  Les Enregister et CmdUnSetup pour les Desenregistrer

Private Sub CmdSetup.Click()
RegMyDllNum1 'et voila  en recessence la dll dans la base de register en Faisant appel a ca fonction DllRegisterServeur, on procede de même pour autant de dll a enregister faut juste ne pas oublié de les declarer ;)
end sub

Private Sub CmdUnSetup.Click()
'bah ici on vas retirer la ou les dll de la base de registre
UnRegMyDllNum1 ' ect... num2,.....numx
'bien sur faut ajouter un bouton si possible avec une icone de Setupt barrer comme ca ils sauront que c pour desenregistrer les dll
'bien entendu si on avais ecris des choses dans la base de  register on mettra ici les routines pour effacer les donnée qu vous avez mis !
end Sub


'voila sauf que dans cette exemple g mis le path de c:windows evidemment dans vôtre prog il faudra enlever le path et si les dll ce trouve dans le même repertoire que vôtre prog alors dans la declaration
private declare sub mydll lib "MyDll.dll" sachant  qu'il n'est pas obligatoire de mettre l'extension dll windows le prend pas défaut, voila g mis une alias afin de pouvoir utliser la meme fonction pour un nombre de dll >2 bonne prog :)

Commentaire de TFlorian le 28/02/2004 14:41:53

Merci beaucoup pour cette source,

elle m'a permi d'expoter la fonction printer de VB et de l'utiliser sous excel (et non cette fonction n'est pas dispo :-( dans le vb d'excel !!! )

Bon code a tous ;)

TFlorian.

Commentaire de li le 09/07/2004 17:50:05

Salut quand je fait la commande regsvr32.exe DLLDate.dll se me dit ke la dll est introuvable quelqun peut maider ?

Commentaire de cyril_utc le 06/10/2004 09:54:43

li > Il faut que la ddl soit dans le répertoire system32 de windows je crois.