Discussion :

[Lucas42]

Bonjour , j'aimerai grâce à 2 commandButton , faire varier la variable Left de LblNomVanne , le premier commandbutton permet d'incrementer cette valeur , le second de la decrementer , la valeur de Left varie bien ( je la visualise grace a d'autre Label 2 et 3 ) mais le Label1 DISPARAIT

Voici mon code

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
Public x As Integer
Public y As Integer
 
Function PositionNomVanne()
    LblNomVanne.Top = y
    LblNomVanne.Left = x
End Function
 
Private Sub Command2_Click(index As Integer)
    Select Case index
        Case 0
        x = x - 2
        PositionNomVanne
        Case 1
        x = x + 2
        PositionNomVanne
    End Select
End Sub

merci d'avance
amicalement lucas

[richou]

salut!
quand tu appel ta fonction "PositionNomVanne" tu devrais lui passer la valeur de x en argument non pour qu'il soit pris en compte.

[Lucas42]

euh , oui mais la valeur de x s'incremente bien à chaque clique du boutton
ma ligne

Code :

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

Label3.caption = x

permet de confimer que la propriété Left s'incrémente bien , j'ai dejà utilisé cette méthode pour deplacer une image , mais la c'est bizarre que mon LblNomVanne Disparaisse dés que je clique sur le commandbutton

[richou]

oui sur chaque clique sur le bouton elle s'incremente mais quand tu appel ta fonction si tu lui passe pas la valeur de x

Code :

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

PositionNomVanne(x)

dans ta fonction

Code :

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

1
2
3
4
Function PositionNomVanne()
    LblNomVanne.Top = y
    LblNomVanne.Left = x
End Function

ton x n'aura pas de valeur, ta propriete "LblNomVanne.Left" aura pour valeur "vide" donc est ce que ca pourrait pas venir de ca?!!

[jmfmarques]

si x et y sont sans valeur de départ, cette valeur = 0
0 - quelquechose = label affiché hors de la Feuille !
bon ....

[Lucas42]

j'ai pas dit tout à l'heure ( mais ca me semblait evidant vu que j'i placer mon LblNomVanne à une position definie lors de l'initialisation )
donc x et y ont des valeurs

Code :

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

1
2
3
4
5
Private Sub UserControl_Initialize()
    x = 1750
    y = 700
    PositionNomVanne
End Sub

je ne voit toujours pas pk mon LblNomVanne Disparait