reactualiser la FormRésolu

Question

Bonsoir!
Debutant VB6  , Voila mon Probleme
j' ai 2 Form
dans la Form2 j' ai une textBox que je Sauve dans un fichier , la pas de Probleme
Comment Faire pour reactualiser ma ComboBox avec ce meme fichier
quand je retourne dans ma Forme1
Sans Creer de Bouton Reactualiser
Merci!

PCPT · Accepted Answer

en effet, çà va marcher... mais c'est 1 accès fichier txt inutile Private Sub Cmd_Valider_Click() 'enregistrement dans le fichier texte '..... code existant 'mise à jour de la combo Dim TabTxt() As String, i As Integer TabTxt = Split (TextClients.Text, vbCrLf) 'Form1.ComboChoix.Clear ' ajout ou remplacement?! For i = 0 To UBound(TabTxt) Form1.ComboChoix.AddItem TabTxt(i) Next i 'décharge Unload Me End Sub Coloration syntaxique automatique [AFCK] que de temps perdu pour des explications évasives.... PCPT

PCPT · Answer

salut
dans ton &#233;venement qui enregistre ce fichier, &#224; la fin, tu ajoutes (en supposant les contr&#244;les par d&#233;faut)
Form1.Combo1.AddItem Me.Text1.Text
PCPT

papounez · Answer

Re!
la reactualisation se Fait ,mais sans retour de ligne
Voici mon code de MA Form2
Private Sub OKButton_Click()


iFile = FreeFile
Open "E:\Mes Documents\Clients.txt" For Output As #iFile


Print #iFile, TextClients.Text
Close #iFile

Form1.ComboChoix.Clear
Form1.ComboChoix.AddItem Me.TextClients.Text
Me.Hide
Form1.Show
End Sub

est que il faudrait faire une boucle?
Do While Not EOF(1)
      
       (du Genre) ComboChoix.AddItem  Me.Ligne 
        
    Loop
Merci

PCPT · Answer

re,
pourquoi Form1.Show, elle est cach&#233;e? elle est d&#233;charg&#233;e?
TextClients.Text renvoie bien une valeur correcte?

et ton fichier, il contient une seule ligne? parce qu'en effet, si en tu r&#233;cup&#232;res plusieurs, c'est pas bon du tout...

PCPT

papounez · Answer

Re!


non finalement pas besoin de cacher la Form1 la Form2 viens par dessus
je Saisie plusieur lignes dans TextClients.text
et quand je valide donc j' enregistre dans un Fichier .txt et ferme la Form2
je revient sur ma form1 et la l'actualisation se fait bien mais sur 1 ligne
c'est la que je voudrais que ce soit sur plusieur lignes 
pour choisir le Nom du clients dans la comboBox 
comment faire.
Merci

PCPT · Answer

je Saisie plusieur lignes dans TextClients.text
TextClients est multiligne?
tu enregistres tout en bloc, en fichier.txt ?
ton &#233;nonc&#233; n'est pas clair.
PCPT

papounez · Answer

Oui j' enregistre en Bloc
et TextClients est multiligne

papounez · Answer

Re
j'ai trouve une solution je ne sais pas si c'est la meilleure
mais sa marche
apres l'avoir enregistrer
je le reouvre

Open "E:\Mes Documents\Clients.txt" For Input As #1 


    Do While Not EOF(1)
       
        Input #1, Ligne
       
        Form1.ComboChoix.AddItem Ligne
        
    Loop
Close #1

Merci

Reactualiser la Form

8 réponses

Discussions similaires