Visual Basic.NET - como mover 1 PictureBox en tiemp de Ejecucion

Necesito saber qué tengo que hacer para poder mover un objeto PictureBox en tiempo de ejecución, que el usuario puede arrastrarlo y soltarlo donde desee dentro de un form. Gracias

Hola

Debes usar la técnica de drag and drop.. puedes ver un ejemplo en

http://www.codeproject.com/dotnet/csdragndrop01.asp

Saludos

Pero ese ejemplo me dice como arrastrar algo de un control a otro. Yo lo único que quiero es que el usuario pueda mover un picturebox de un lugar del form a otro, sin mas. Please, help!

El ejemplo que te envié es más complejo de lo que necesitas, pero te muestra claramente los liniamientos que se necesitan para hacer el drag and drop...

En primer lugar debes crear un metodo que maneje el evento MouseDown del PictureBox, dentro de este metodo, debes llamar al metodo DoDragDrop, pasandole como parémetro el picturebox a mover y el efecto que deseas darle... por ejemplo DragDropEffects.All.

Posteriormente... debes implementar ciertos metodos en el formulario, uno para manejar los eventos DragEnter, DragOver, DragDrop and DragLeave... el dragenter ocurre cuando el mouse esta arrastrando algun control en el formulario..

El DragOver ocurre despues del DragEnter y lo que hay que especificar en el metodo es que como se maneja el drag.. por lo que hay que especificar unicamente cual es el efecto que quieres darle... si especificas DragDropEffects.None simplemente estarias especificando que no se va a ejecutar el drag and drop..

El evento DragDrop ocurre cuando sueltas el boton del mouse... es aqui donde especificarás las nuevas coordenadas del PictureBox... pero no deberias trabajar directamente sobre el PictureBox.. sino a través del la propiedad e.Data (donde data es el parámetro del tipo DragEventArgs)

Basicamente eso es todo lo que debes hacer...

Saludos

Hola, agradezco me indiques como me inicio en picturebox, una amiga nos mando la fotografia de mi hija en una portada de cosmopolita, mi pregunta es donde y como realizo ese tipo de trabajos artitisticos donde puedo abceder a los modelos realizados por otras personas quiero realizar ese tipo de trabajo con fotografias de mi familia. saludos.

zuly molina

Hola, agradezco me indiques como me inicio en picturebox, una amiga nos mando la fotografia de mi hija en una portada de cosmopolita, mi pregunta es donde y como realizo ese tipo de trabajos artitisticos donde puedo abceder a los modelos realizados por otras personas quiero realizar ese tipo de trabajo con fotografias de mi familia. saludos.

zuly molina

me podrias mandar una respuesta ahorita mismo por favor

por fa nesesito
saber como hago un rompecabeza
quiero mover imagen cuando estoy compilando

por fa nesesito
saber como hago un rompecabeza
quiero mover imagen cuando estoy compilando

como mover un picturebox de la izquierda a la derecha y de la derecha a la izquierda

quien necesita drag drop ? en picture
mover el picture ?? en todo sentido

todo eso esta para visual 6 pero en net ?? alguien tiene el fuente

[email protected]

no entrego todo ya que es mi trabajo y necsito otro trabajo que me de mas $$$
ojala en chile

---

' Declaraciones Api

' Api que recupera el estilo de la ventana, en este caso el control picturebox
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long

' Api que establece el nuevo estilo al control picturebox
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

' Constante para el api GetWindowLong
Const GWL_STYLE = (-16)

Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, _
ByVal Cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const WS_THICKFRAME = &H40000
Const SWP_DRAWFRAME = &H20
Const SWP_NOZORDER = &H4

Private Sub Form_Load()

'picture1 es fijo y los otros dos van dentro del picture1 principal
Call Cambiar_Estilo(picture2)
Call Cambiar_Estilo(picture3)

End Sub

Private Sub Cambiar_Estilo(Picturebox As Picturebox)

Dim ret As Long
Dim Estilo As Long
Dim Flags As Long

Flags = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

' Opcional
Picturebox.BorderStyle = 0

Estilo = GetWindowLong(Picturebox.hwnd, GWL_STYLE)
Estilo = Estilo Or WS_THICKFRAME

' Cambia el estilo
Estilo = SetWindowLong(Picturebox.hwnd, GWL_STYLE, Estilo)

ret = SetWindowPos(Picturebox.hwnd, Picturebox.Parent.hwnd, _
0, 0, 0, 0, Flags)

End Sub

' Esto también funciona chicos, y con procedimientos básicos del Form
' Colocar un Panel en el Form
' Luego copiar este codigo y se podrá mover el Form y el Panel con el mouse

Option Strict On

Public Class Form1

Dim MVE As Boolean = False
Dim Xobj As Single, Yobj As Single
Dim Xfrm As Single, Yfrm As Single

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Dim CTRL As Control

Private Sub Mueve_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, Panel1.MouseDown
CTRL = CType(sender, Control)

If e.Button = MouseButtons.Left Then
CTRL.BringToFront()

Xobj = e.X
Yobj = e.Y

MVE = True
End If
End Sub

Private Sub Mueve_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove, Panel1.MouseMove
CTRL = CType(sender, Control)

If MVE = True Then
If e.Button = MouseButtons.Left Then

Xfrm = e.X + CTRL.Left
Yfrm = e.Y + CTRL.Top

CTRL.Left = CInt(Xfrm - Xobj)
CTRL.Top = CInt(Yfrm - Yobj)

CTRL.Refresh()
Application.DoEvents()
End If
End If

End Sub

Private Sub Mueve_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp, Panel1.MouseUp
MVE = False
End Sub

End Class