attente conviviale d'une form à l'autre vb2005

Question

bonsoir,

de la form1 je lance la form2,
mon problème c'est que avant de s'affichier complètement, la form2 met un certain temps du )à l'ouverture de ma base de données et le réglage de pal mal de paramètres.
J'aimerai mettre une sorte de progress bar pendant la transition.
c'est possible ? et si oui, après quel évènement de form1 jusqu'à quel évènement de form2 ?

sachant que de form1 je fais:

Me
.SendToBack()
form2.Activate()
form2.Visible = 
True
form2.Show()
form2.Select()

merci beaucoup

PCPT · Answer

salut, exemple en VB6 (pas compliqué à adapter...) dans Form1 : une Picture1, un Command1 dans la Picture1, une Picture2 ' = -=-=-= ' FORM1 ' =-=-=-= ' Option Explicit ' Private Sub Command1_Click() Load Form2 End Sub ' Private Sub Form_Load() Picture1.Width = 3495 Picture1.Height = 375 Picture1.BackColor = &HFFC0C0 Picture2.Left = 0 Picture2.Top = -120 Picture2.Width = 615 Picture2.Height = 495 Picture2.BackColor = &HC0FFC0 End Sub ' --=-= ' FORM2 ' --=-= ' Option Explicit ' Private Sub Form_Load() ' des boucles pour perdre du temps, en réel tes traitements assez longs ' et tu déplaces... Dim i% For i = 1 To 13 MovePic LooseTime Next i ' c'est fini tu affiches Me.Show ' pis tu décharges au besoin.... Unload Form1 End Sub ' Sub LooseTime() Dim i& For i = 0 To 15000 DoEvents Next i End Sub ' Sub MovePic() Form1.Picture2.Left = Form1.Picture2.Left + 200 End Sub Coloration syntaxique automatique [AFCK] ++

Prenez un instant pour répondre à ce sondage svp

Attente conviviale d'une form à l'autre vb2005

1 réponse

Votre réponse

Discussions similaires