Discussion :

[Lucas42]

Bonjour , j'aimerai limiter le deplacement d'un controle , je m'explique , j'ai inserer un controle PICTUREBOX2 dans une PICTUREBOX1 , grace aux evenement MouseMove et MouseDown , je peux deplacer la picturebox2, mais je peux le deplacer en dehors des limite de la picturebox , en d'autre terme , je perd ma picturebox2, j'ai fais ceci pour limiter le deplacement du control à l'interieure de ma picturebox , mais ya kk bug :s

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
28
29
30
31
32
Option Explicit
Dim x0 As Integer, Y0 As Integer
 
Private Sub picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        If Picture2.Left > 0 And (Picture2.Left + Picture2.ScaleWidth) < 2775 And Picture2.Top > 0 And (Picture2.Top + Picture2.ScaleHeight) < 2115 Then ' definition des limites de ma picturebox1
            Picture2.Move Int((Picture2.Left + ScaleX(X, 1, 3)) - x0), Int((Picture2.Top + ScaleY(Y, 1, 3)) - Y0)
        Else
            If Picture2.Left <= 0 Then
                Picture2.Left = 1
            End If
            If (Picture2.Left + Picture2.ScaleWidth) >= 2775 Then
                Picture2.Left = 2770 - Picture2.ScaleWidth
            End If
            If Picture2.Top <= 0 Then
                Picture2.Top = 5
            End If
            If (Picture2.Top + Picture2.ScaleHeight) Then
                Picture2.Top = 2110 - Picture2.ScaleWidth
            End If
        End If
    End If
    Label1.Caption = Picture2.Left
    Label2.Caption = Picture2.Top
End Sub
 
Private Sub picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
      Y0 = ScaleY(Y, 1, 3)
      x0 = ScaleX(X, 1, 3)
    End If
End Sub

merci d'avance
amicalement lucas

[méphistopheles]

et on peut connaitre la nature du bug?

[Lucas42]

Et bien la picturebox2 fait nimporte quoi lorsque je suis aux limite :s
Essaye en mettant une picturebox2 dans une picturebox1 de dimension
height = 2115 et Width = 2775

[jmfmarques]

Explications plus claires et plus précises à donner car je ne vois aucun déplacement de lanel dans ce code !
Deplus, quand je vois :

"2775"

je me dis que c'est tout sauf du calcul informatique !

[méphistopheles]

pas éttonant , essaye comme ça.

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
Option Explicit
Dim x0 As Integer, Y0 As Integer
 
Private Sub picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        If Picture2.Left > 0 And (Picture2.Left + Picture2.ScaleWidth) < 2775 And Picture2.Top > 0 And (Picture2.Top + Picture2.ScaleHeight) < 2115 Then ' definition des limites de ma picturebox1
            Picture2.Move Int((Picture2.Left + ScaleX(X, 1, 3)) - x0), Int((Picture2.Top + ScaleY(Y, 1, 3)) - Y0)
       End If
    End If
    Label1.Caption = Picture2.Left
    Label2.Caption = Picture2.Top
End Sub
 
Private Sub picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
      Y0 = ScaleY(Y, 1, 3)
      x0 = ScaleX(X, 1, 3)
    End If
End Sub

merci d'avance
amicalement lucas

[Lucas42]

oui pour le moment ya pas de calcul informatique mais je comprend qd mm po pourquoi ma PICTURE2 fait n'importe quoi lorsque je suis aux limite de ma PICTURE1

et méphistopheles , ce que tu as donner ne fonctionne qu'a moitié car dés qu'on atteint la limite du la PICTURE1 , la PICTURE2 reste figé

[jmfmarques]

Bon, je vois que Lucas a corrigé son 1er message (plus de déplacements de labels)
Mais il va falloir qu'il soit plus clair :
jusqu'ou exactement permettre à la Picture2 de naviguer à l'intérieur de la Picture1 ? (pour chacune des 4 arêtes, s'entend). Car le code de Méphisto en empêchait la sortie et me semblait correspondre au voeu !
Des explications claires s'imposent, sinon il va y avoir des pages et des pages inutiles !

[Lucas42]

Et bien oui le code de mephisto "fonctionne" mais ne correspond pas TOTALEMENT à mes attentes ... Je desire en effet pouvoir deplacer la picture2 à l'interieure des 4 arretes de la picture1 .
Mon code qd à lui fonctionne ( il est vrai qu'il n'est pas rédigé dans les régles de l'art ) mais lorsque que j'atteint les limites le picture2 fait nimporte quoi , mais je peut toujours deplacer ma picture2 , contrairement aux code de mephisto qui fige la picture2 lorsqu'on atteint les limites ....

[méphistopheles]

oui pour le moment ya pas de calcul informatique mais je comprend qd mm po pourquoi ma PICTURE2 fait n'importe quoi lorsque je suis aux limite de ma PICTURE1

et méphistopheles , ce que tu as donner ne fonctionne qu'a moitié car dés qu'on atteint la limite du la PICTURE1 , la PICTURE2 reste figé

ben oui, mais c'est par-ce que si tu déplace la picture box2, la position de la souris change, donc soit tu déplace aussi la souris, soit tu met une conditionpour arêter l'evenement (je vois pas trop comment).

une manière plus simple consisterais à utiliser getx et gety dans un timer, relié à mousedown et mousup.

[jmfmarques]

Que veux-tu faire exactement ?
J'y perds mon latin...
Veux-tu, par hasard, essayer d'exprimer que tu souhaites que de drag sur la picture2 provoque celui de la picture1 lorsque la picture2 atteint une arrête de la picture1 ?

[méphistopheles]

à son code, on dirais qu'il veut remmete lea picture 1 en 1,1 mais je vois pas pourquoi.