Discussion :

[nasri_j2]

bonjour tout le monde,
Svp,j'aimerais savoir comment faire deplacer un controlutilisateur en mode d'execution,g fais une recherche dans la bib msdn g trouvé que la methode OleDrag permet de faire ca je l'ai testé mais il parait qu'il ya une chose qui manque .
Merci d'avance pour votre aide.

[Mandalar]

regarde s'il a des propriété left et top et essaie de les changer:

Code :

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

objet.Left = 500

ou autre chose du genre...

[nasri_j2]

top et left permettent de deplacer le controlutilisateur en mode conception , ce que je veux moi c de le faire deplacer en mode execution .
En tout cas merci pour votre reponse .

[SfJ5Rpw8]

tu as la fontion Move

Code :

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

CommandButton1.Move 10,10

[nasri_j2]

merci bbil,
mais le deplacement du usercontrol que je cherche se fait en mode execution cad par la souris et non pa un code, donc il me faut une methode ou une propreité qui donne au usercontrol la possibilité de se deplacer en suivant le glissement de souris .
merci de nouveau.

[SfJ5Rpw8]

tiens dans un userform en VBA..... à adapter...

Code :

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

1
2
3
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Move X, Y
End Sub

[leroissejp]

Bonjour,
Pour déplacer une image.

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
 
   Dim xTemp, xTemp2 As Long
    Dim yTemp, yTemp2 As Long
 
    'form ou un autre conteneur
    Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
 
 
    Source.Move X - xTemp, Y - yTemp
    End Sub
 
  'Si on drag sur l'objet
 Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
 
 
 Source.Move xTemp2 + X - xTemp, yTemp2 + Y - yTemp
  End Sub
 
 'Et votre objet à déplacer
  Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
 
   Image1.Drag
  xTemp = X
 yTemp = Y
 xTemp2 = Image1.Left
 yTemp2 = Image1.Top
  End Sub

jpleroisse