Conversion d'un projet vb6 en vb5

Soyez le premier à donner votre avis sur cette source.

Vue 6 415 fois - Téléchargée 15 720 fois

Télécharger le projet
Commenter

Description

Créer un projet standard et créer une feuille.
Y ajouter un CommonDialog (appelé ici Dialog1)

Source / Exemple : 


Private Sub Form_Load()
    On Error GoTo Annuler
    Dialog1.ShowOpen
    GoTo Suite
    
Annuler:
    Exit Sub
    
Suite:
    Dim FichierVB6
    FichierVB6 = Dialog1.filename
    
    FileCopy FichierVB6, (Mid(FichierVB6, 1, Len(FichierVB6) - 3) & "old")
    
    Dim Ligne As String, Texte As String
    Open FichierVB6 For Input As #1
        On Error GoTo FinFichier
        Do Until EOF(1) = True
            Do Until Ligne = "Retained=0" Or Ligne = "DebugStartupOption=0" Or Ligne = "CodeViewDebugInfo=0"
                Line Input #1, Ligne
                Texte = Texte & vbCrLf & Ligne
            Loop
            Texte = Left(Texte, Len(Texte) - Len(Ligne) - 2)
            Ligne = ""
        Loop

FinFichier:
    Close #1
    
    Kill FichierVB6
    
    Open FichierVB6 For Output As #2
        Print #2, Texte
    Close #2
    
    MsgBox "Conversion effectuée avec succès !", , "VB6 => VB5"
    End
    
End Sub

Conclusion :


Ici, le fichier VB6 original est conservé avec une extension *.old au cas où...

Pour ceux que ça fatigue de lancer le programme et qui désirent l'avoir en cliquant sur le projet VB6 avec le bouton droit de la souris :

Ouvrir une fenêtre Windows (par ex. poste de travail): Menu Affichage (ou Outils, selon la version de Windows) => Options des dossiers
Onglet Types de fichiers. Sélectionner "Visual Basic Project" et cliquer sur Modifier...
Puis Nouveau...
Et définir les propriétés suivantes:
Action: Conversion VB6=>VB5
Application utilisée: "Chemin de l'exe.exe"
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Commenter la réponse de The man
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_jray)