form_load()Résolu

Question

bonsoir
amateur VB6
j'ai une application avec 2 form

comment faire quand je suis dans la form2 pour revenir dans la form1 rafraichir
c'est a dire passer par "  privat sub Private Sub Form_Load() "
voici mon code
form1 
Private Sub Form_Load()
Dim i As Integer
Dim Ligne As String

StatusBar1.Panels(4).Text = Date

If Dir(App.Path & "\Clients.txt") <> "" Then
  '// Si Le fichier existe, on continue
    Do While Not EOF(1)       
      Input #1, Ligne
              ComboChoix.AddItem Ligne      
    Loop
Close #1
    End If
end sub

form2
Private Sub OKButton_Click()
    'décharge
    Unload Me
    Form1.Show
End Sub

Merci

PCPT · Accepted Answer

salut

et si la form1 doit rester visible, change la portée (private public) du form_load et appelle la proc à partir de la form2.

ne pas oublier un petit combochoix.clear au début du load...
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_Exploreur · Answer

Salut,

Ben, dans ton form_load(form1) tu fais simplement : Unload Me et quand dans ta form2 tu vas faire Form1.Show tu vas automatiquement repasser par le form_load de form1..

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Remarque il vaut ne pas mettre le Unload me dans le form_load de form1 car tu riques d'avoir un bug d'object décharger(on peut le gérer avec un On Error Resume Next), vaut mieux mettre le unload me dans un bouton qui t'affiche la form2...

A+
Exploreur

 Linux a un noyau, Windows un pépin

papounez · Answer

salut,
oui ca marche
mais sans faire disparaitre la form1 il y a moyen de le faire ?

merci

papounez · Answer

salut
merci a tous
j'opte pour PCPT
c'est exactement ce que je desirai

Form_load()

5 réponses

Votre réponse

Discussions similaires