Afficher les composants d'un projet

Télécharger le projet
Commenter

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!!!!?????
Télécharger le projet

Codes Sources

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 (pcpunch)