Recuperer les Name des Form de tout le projet VB
Rmano
Messages postés
8
Date d'inscription
lundi 12 août 2002
Statut
Membre
Dernière intervention
21 septembre 2002
-
7 sept. 2002 à 17:56
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 8 sept. 2002 à 01:06
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 8 sept. 2002 à 01:06
1 réponse
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
8 sept. 2002 à 01:06
8 sept. 2002 à 01:06
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
' 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
