barre d'attenteRésolu

Question

salut a tous bon &#231;a va faire une semaine que je surf sur le forum &#224;
trouver un exemple de ce que je veux. je n'ai toujours rien trouver. Si
vous avez un lien je suis preneur ou une petite aide, n'importe quoi.
Je suis d&#233;sesp&#233;rer.



Alors j'explique ce que je veux faire : j'ai envie de faire une imga
rectangle qui se d&#233;place dans un sorte de progressbarr qui part de la
droite et qui finivers la gauche et une fois fini, il repart de la
droite et vas vers la gauche ind&#233;finiment.

Gobillot · Accepted Answer

Dim pas As Integer

Dim pos As Integer

Dim Min As Integer

Dim Max As Integer





Private Sub Form_Load()

    pas = 30

    Min = 0

    Max = Me.ScaleWidth - Image1.Width

    pos = Image1.Left

    Timer1.Interval = 30

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    If pos + pas < Min Or pos + pas > Max Then

       pas = -pas

       End If

    pos = pos + pas

    Image1.Left = pos

End Sub


Daniel

Barre d'attente

1 réponse

Discussions similaires