Soyez le premier à donner votre avis sur cette source.
Vue 3 158 fois - Téléchargée 291 fois
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
25 juil. 2003 à 09:19
24 juil. 2003 à 12:51
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.