COLOCAR UM DRAGDROP NA IMAGEM

CLAUDIOENNER 26/11/2012 16:27:24
#414798

E ai alguém se habilita?

DENNERFOX 05/12/2012 15:07:27
#415487 Resposta escolhida

Olha isso...
------------------
Private Local As Point
------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel1.AutoScroll = True
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
End Sub
------------------
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Local = New Point(e.X, e.Y)
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
Panel1.AutoScrollPosition = New Drawing.Point((Local.X - e.X - Panel1.AutoScrollPosition.X), (Local.Y - e.Y - Panel1.AutoScrollPosition.Y))
End If
End Sub
------------------

CLAUDIOENNER 05/12/2012 15:45:28
#415493

success full

Tópico encerrado!