1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Fichier / Disque
  5. Afficher les composants d'un projet

Afficher les composants d'un projet

Soyez le premier à donner votre avis sur cette source.

Vue 3 158 fois - Téléchargée 291 fois

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

Ajouter un commentaire Commentaires
alex1er
Messages postés
39
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
5 juin 2006
25 juil. 2003 à 09:19
Pas mal, mais il suffit d'ouvrir le vbp en mode text!!
pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
 4
24 juil. 2003 à 12:51
Laissez moi un commentaire au moin!! :( lol
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)