Convertisseur projets vb6 - vb5

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 557 fois - Téléchargée 44 fois

Contenu du snippet

Bah c un petit prog qui permet de virer les clés incorrectes lorsqu'on execute un projet Vb6 sous Vb5. C pas très malin, mais ca marche. Evidemment, si le code du prog utilise des fonctions de vb6 qui sont pas dans vb5, ca risque pas de marcher. L'avantage, c que on convertit par simple clic droit sur le projet et en faisant convertir au lieu de faire ouvrir.
Faut donc rajouter 2 petites clé dans la base de registre et c tout. Pour le reste, ca récupere l'argument appelé lors de l'execution, qui donne directement le path du vbp choisi.

Voila Voila, ca va ptetre plaire a ceux qu'on Vb5, jlé mis pask c quand meme plus pratique que d'ouvrir a chaque fois le notepad.

Source / Exemple :


Option Compare Text
Dim PATHfichier As String
Dim fiChier As String
Private Sub Form_Load()
PATHfichier = Command
Open PATHfichier For Input As #1    'ouvre et met dans fichier le contenu du projet
fiChier = Input(FileLen(PATHfichier), #1)
Close #1

recommence:
For x = 1 To Len(fiChier)

'efface de fichier les clé incorrectes
If Mid(fiChier, x, 8) = "Retained" Then fiChier = Mid(fiChier, 1, x - 1) & Mid(fiChier, x + 12, Len(fiChier) - 10)
If Mid(fiChier, x, 18) = "debugstartupoption" Then fiChier = Mid(fiChier, 1, x - 1) & Mid(fiChier, x + 22, Len(fiChier) - 20)
Next x

'réecrit le projet "convertit"
Open PATHfichier For Output As #2
Print #2, fiChier
Close #2

MsgBox "Conversion terminée"

'quitte car c deja fini
Unload Form1
End Sub

Conclusion :


Clé a ajouter au registre:
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VisualBasic.Project\shell\Convertir\command
valeur:
"PATH de l'EXE compilé" %1

HKEY_CLASSES_ROOT\VisualBasic.Project\shell\Convertir\command
valeur:
"PATH de l'EXE compilé" %1

A voir également

Ajouter un commentaire

Commentaire

fou volant13
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002
-
Aucune suggestion ou commentaire pour cette source?
Pff

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.