Discussion :

[Martipit]

Bonjour

Je voudrais que me mon label fasse des allés et retours sur une distance déterminée

Pour ce faire, j'ai testé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
LabLecteurOuvert.Left = LabLecteurOuvert.Left - 1
            If LabLecteurOuvert.Left + LabLecteurOuvert.Width < 362 Then LabLecteurOuvert.Left = LabLecteurOuvert.Left + 1
            If LabLecteurOuvert.Left + LabLecteurOuvert.Width > 656 Then LabLecteurOuvert.Left = LabLecteurOuvert.Left - 1

Que j'ai placé dans un timer.

Le label se déplace bien de la droite vers la gauche mais quand il arrive à la position 362, il ne repart pas vers la droite.

je pense qu'il me manque une instruction.

Merci par avance pour vos réponses

@+ Martipit

[shayw]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
   Private flagdirection As Integer
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 flagdirection = 1
 
end sub 
 
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim segment As Integer
'tu peux modifier la valeur de segment
        segment = 10
        If flagdirection = 1 Then
            'direction à droite
            Label1.Left += segment
            ' verifie si touche la limite de droite
            If Label1.Right >= 656 Then
                flagdirection = 0
            End If
        ElseIf flagdirection = 0 Then
            Label1.Left -= segment
            ' verifie si touche la limite de gauche
            If Label1.Left <= 352 Then
                flagdirection = 1
            End If
        End If
 
    End Sub

[Martipit]

salut
Merci pour ce code

Mais arrivé à la position 656, le label ne repart pas dans l'autre sens. il continue toujours vers la droite.

Bizarre tout cela.

@+ Martipit

[rv26t]

bonjour,

ta position 656 étant bien au dela de 362 tu ne reviendras jamais en arrière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
            If bDroite Then If LabLecteurOuvert.Left + LabLecteurOuvert.Width < 656 Then LabLecteurOuvert.Left = LabLecteurOuvert.Left + 1
            If bDroite And LabLecteurOuvert.Left + LabLecteurOuvert.Width >= 656 Then bDroite = False
            If Not bDroite Then If LabLecteurOuvert.Left >= 100 Then LabLecteurOuvert.Left = LabLecteurOuvert.Left - 1
            If Not bDroite And LabLecteurOuvert.Left < 100 Then bDroite = True

bDroite doit être défini a True au départ

A+, Hervé.

[shayw]

Mais arrivé à la position 656, le label ne repart pas dans l'autre sens. il continue toujours vers la droite.

si bien sur cela dépend de la variable segment
si tu veux exactement 656
met à la place de segment = 10
segment = 1

[Martipit]

j'ai testé la réponse de rv26t. Arrivé au dout à droite, le label s'arrête et ne repars pas en arrière

shayw, j'a imis le segment à 1 et arrivé au bout à droite, il ne repars pas dans l'autre sens, il fait des petis sauts sur place.

@+ Martipit

[rv26t]

j'ai testé la réponse de rv26t. Arrivé au dout à droite, le label s'arrête et ne repars pas en arrière

shayw, j'a imis le segment à 1 et arrivé au bout à droite, il ne repars pas dans l'autre sens, il fait des petis sauts sur place.

@+ Martipit

As-tu bien testé avec les valeurs que j'ai placé ? (tu pourras changer après)

As-tu bien définie bDroite au début de ta form. (pas dans le timer sinon il est remis a vrai à chaque appel)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Class Form1
    Dim bDroite As Boolean = True

Parcequ'avec ces conditions cela fonctionne chez moi.

Quel est le texte dans ton label ?

A+, Hervé.