Recuperer les Name des Form de tout le projet VB

Messages postés
8
Date d'inscription
lundi 12 août 2002
Statut
Membre
Dernière intervention
21 septembre 2002
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
SAlut !

G un pb en ce moment et ça urge ! Je voudrais un bout de code qui permette de récupérer la propriété Name de toutes les Form présentes dans un projet VB

Merci !!

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Private Sub Command1_Click()
' Un bouton Command1
' Deux ListBox ListBox1 -> Nom du fichier .FRM
' et ListBox2 -> Propriété Name du fichier

ReDim Formes(1 To 50) As String
' 50 forms dans un projet, c'est pas mal !
Open "Chemin\Projet.vbp" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Trouvé = InStr(UCase(Ligne), "FORM=")
If Trouvé <> 0 And UCase(Right(Trim(Ligne), 4)) = ".FRM" Then
i = i + 1
Formes(i) = Trim(Mid(Ligne, Trouvé + 5))
List1.AddItem Formes(i)
End If
Loop
Close

ReDim NomsFrm(1 To List1.ListCount) As String

For i = 0 To List1.ListCount - 1
NomFich = List1.List(i )
Open "Chemin" & NomFich For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Trouvé = InStr(UCase(Ligne), "BEGIN VB.FORM ")
If Trouvé <> 0 Then
NomsFrm(i + 1) = Trim(Mid(Ligne, Trouvé + 14))
List2.AddItem NomsFrm(i + 1)
Close
Exit Do
End If
Loop
Close
Next j
End Sub