Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 919 fois - Téléchargée 26 fois
'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
(mais c'est tjrs bon de nous rafraichir la memoire)
et malheureusement elle a montrer ses limites car elle ne
permet pas d'enregistrer les composant dans le registre
(voir DllRegisterServer) du plus n'importe qui peut modifier
une ressource ce qui peut endommager le fichier.
Si vous voulez une bonne solution regarder le lien suivant :
http://thinstall.com/
@+
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.