Aidez moi pour mon prog!

Skyyyy Messages postés 69 Date d'inscription mercredi 12 novembre 2003 Statut Membre Dernière intervention 10 octobre 2006 - 14 sept. 2004 à 23:26
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 15 sept. 2004 à 00:12
salut tout le monde voila je me suis fait un prog et jai fais une rubrique definition malheuresement

mes definition sont trop grosse a ecrire dans le code voila mon code

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "SFR"
Text1.Text = ""
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "SFR"
End Sub



voila je me voit mal ecrire une centaine de ligne ici alors je voudrai savoir si on pouvait faire apparaitre sur le text1 de mon prog la def avec un fichier txt???
Jsuis un NooB (Pour linstant :big) )

1 réponse

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
15 sept. 2004 à 00:12
Voici un exemple pour un fichier txt contenant la definition

Dim Texte as string 
Open "MonFichier.txt" for binary as #1
Texte=space(lof(1))
get #1,,Texte
close #1
Texte1=Texte


@+

E.B.
0
Rejoignez-nous