Afficher les composants d'un projet

Soyez le premier à donner votre avis sur cette source.

Vue 3 043 fois - Téléchargée 288 fois

Description

ce code affiche les composants (ocx,dll,tlb) d'un projet vb néccéssaire au fonctionnement de l'executable.

Source / Exemple :


Private Sub Command1_Click()
With boite
.Filter = "Projet Vb|*.vbp"
.ShowOpen
Text1 = .FileTitle
End With
Dim ligne As String
Dim tmp As String
Dim composant As String
Open boite.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
If Mid(ligne, 1, 6) = "Object" Then List1.AddItem UCase(Mid(ligne, 54, Len(ligne)))
If Mid(ligne, 1, 9) = "Reference" Then
    For i = Len(ligne) To 1 Step -1
        If Mid(ligne, i, 1) = "\" Then
        List1.AddItem UCase(Mid(ligne, i + 1, Len(ligne)))
        Exit For
        End If
     Next i
End If
Loop
Close #1
End Sub

Conclusion :


il faut :
1 commondilaog (name:boite)
1 textbox(text1)
1 listbox(list1)

Sinon y a le code source...

Voila j'éspére que ce sera utile!!!!?????

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
39
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
5 juin 2006

Pas mal, mais il suffit d'ouvrir le vbp en mode text!!
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
Laissez moi un commentaire au moin!! :( lol

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.