Rendre vos programmes indépandants des ocx ou dlls

Commenter

Contenu du snippet

Ce code vous permet de compiler les ocx,dlls dans votre application.
Malheureusement sa na parche pas pour vb6fr.dll et msvbvm60.dll
La seul solution pour eux est de les copier dans la même reperatoire que l'exe

Source / Exemple : 


'Votre projet doit commancer par sub main
'Ajouter votre ocx dans un fichier ressource
'index doit être un index de votre fichier
Dim resdata() As Byte
Sub Main()
Set z = CreateObject("scripting.filesystemobject").getspecialfolder(1)'avoir la reperatoire windows
    Index = 101 'index de la ressource
    myocx = "comdlg32.ocx" 'nom du ocx
    If Dir(z & "\\" & myocx) <> "" Then GoTo done
    resdata = LoadResData(Index, "Custom") 'mettre le fichier en mémoire
    'écrire l'ocx
    Open z & "\\" & myocx For Binary Access Write As #1
        Put #1, , resdata
    Close #1
done:
'Charger votre projet
'form1.show par exemple
End Sub
'vous pouvez réecrire le code pour un deuxième ocx

Conclusion :


Assurez que votre projet se commonce par sub main.
S'il y on a une erreur,envoie moi
Laissez vos commontaires et pourquoi pas vos notes

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_ajaja)