Ob de Form au démarrage

Question

J'ai une question toute bete. J'ai le programme suivant :
Private Sub Form_Load()
    Call test
End Sub

Public Function test()
    Form1.Show
    For C = 1 To 30000
        text_barre.Text = C
        text_barre.Refresh
      Next
   End
End Function

En l'exécutant, la couleur du fond reste blanc ou transparent alors que ça devait etre gris. Et le plus gênant, c'est quand on déplace la fenêtre pendant l'éxécution, il n'y a plus de rafraichissement de "text_barre.Text = C".
Pourriez vous m'aider ?
Merci

cs_fuck · Answer

Change le code pâr celui la :
 dans un module fait :

Public Function test()
Form1.Show
For c = 1 To 30000
Form1.text_barre.Text = c
Form1.text_barre.Refresh
Form1.Refresh
Next c
End
End Function

et dans la form_load pareil


Call test

Voila ;)

Ob de Form au démarrage

1 réponse

Discussions similaires