'Exemple appliqué sur un objet PictureBox


Dim x As Integer
Dim y As Integer

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
   If e.Button = Windows.Forms.MouseButtons.Left Then
        x = e.X 
        y = e.Y
   End If
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 
   If e.Button = Windows.Forms.MouseButtons.Left Then
        PictureBox1.Left += (e.X - x) 
        PictureBox1.Top += (e.Y - y)
   End If
End Sub

//Exemple appliqué sur un objet PictureBox
int x;
int y;

private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
{
   if (e.Button == MouseButtons.Left)
     {
        pictureBox1.Left += e.X - x;
        pictureBox1.Top += e.Y - y;
     }
}

private void pictureBox1_MouseDown(object sender, MouseEventArgs e) 
{
   if (e.Button == MouseButtons.Left) 
     {
       x = e.X;
       y = e.Y;
     }
}

function move(OBJECT,X,Y,UNIT)//Objet à déplacer, position x, position y, unité(% ou px)
{
OBJECT.style.position="absolute";//position absolue de l'objet
OBJECT.style.left=X+UNIT;//positionnement horizontal ( position x + unité)
OBJECT.style.top=Y+UNIT;//positionnement vertical ( position y + unité)
}
Exemple d'utilisation :
<div style="position:absolute" onclick="move(this,50,200,'%')"></div>

{Pour déplacer tous les composants héritants de TWinControl (fenêtrés):
  TForm, TButton, TEdit, TComboBox, TListbox ... etc. etc.
  *** n'oubliez pas d'affecter FormMouseMove à tous les composants que vous voulez déplacer
  par l'intermédiaire de l'inspecteur d'objets}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) and (Sender is TWinControl) then
    if ReleaseCapture then
      TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
end;

{Pour déplacer tous les autres composants (non fenêtrés):
  TImage, TLabel ... ici un TImage}
var iX, iY : Integer;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    iX := X;
    iY := Y;
  end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
  begin
    Image1.Left := Image1.Left + X - iX;
    Image1.Top := Image1.Top + Y - iY;
  end;
end;

Dim dX As Single
Dim dY As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        dX = X
        dY = Y
    End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Picture1.Left = Picture1.Left + (X - dX)
        Picture1.Top = Picture1.Top + (Y - dY)
    End If
End Sub

Dim dX As Single, dY As Single '<- à placer en déclarations générales
Private Sub Frame1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X  As Single, ByVal Y As  Single)
    dX = X: dY = Y
End Sub
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X  As Single, ByVal Y As  Single)
    If Button = Excel.XlMouseButton.xlPrimaryButton Then Frame1.Move Frame1.Left + (X -  dX), Frame1.Top + (Y - dY)
End Sub