martes, 30 de octubre de 2012

Mover Panel (Drag and Drop)



Public Class Form1
   Private FlgMover_01 As Boolean = False
   Private Ubicacion_01 As New Point

   Private FlgMover_02 As Boolean = False
   Private Ubicacion_02 As New Point

   Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
      FlgMover_01 = True
      Ubicacion_01 = New Point(e.X, e.Y)
      Me.Cursor = Cursors.SizeAll
   End Sub

   Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
      If FlgMover_01 = True Then
         Panel1.Location = New Point(Panel1.Location.X + e.X - Ubicacion_01.X, Panel1.Location.Y + e.Y - Ubicacion_01.Y)
      End If
   End Sub

   Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
      FlgMover_01 = False
      Me.Cursor = Cursors.Default
   End Sub

   Private Sub Panel2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseDown
      FlgMover_02 = True
      Ubicacion_02 = New Point(e.X, e.Y)
      Me.Cursor = Cursors.SizeAll
   End Sub

   Private Sub Panel2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseMove
      If FlgMover_02 = True Then
         Panel2.Location = New Point(Panel2.Location.X + e.X - Ubicacion_02.X, Panel2.Location.Y + e.Y - Ubicacion_02.Y)
      End If
   End Sub

   Private Sub Panel2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseUp
      FlgMover_02 = False
      Me.Cursor = Cursors.Default
   End Sub

End Class

38 comentarios:

Anónimo dijo...

generic xanax xanax 2mg strong - xanax street price

Anónimo dijo...

buy tramadol online without a prescription tramadol addiction during pregnancy - buy tramadol online in usa

Anónimo dijo...

xanax online xanax dosage long - xanax online overnight shipping

Anónimo dijo...

buy tramadol no prescription generic tramadol medication - tramadol withdrawal+muscle aches

Anónimo dijo...

generic cialis buy cialis online fast shipping generic - generic cialis tadalafil

Anónimo dijo...

xanax without a perscription buy xanax online - generic for xanax

Anónimo dijo...

cialis online illegal to buy cialis online - order cialis online with prescription

Anónimo dijo...

xanax online percocet xanax drug interactions - xanax (generic) 2 mg pills

Anónimo dijo...

buy cialis online cialis price compare - user reviews cialis daily use

Anónimo dijo...

xanax online xanax pills .25 - xanax xr 1mg high

Anónimo dijo...

cialis online cialis questions - cialis online from usa

Anónimo dijo...

http://buytramadolonlinecool.com/#91646 tramadol ratiopharm 100mg nebenwirkungen - purchase tramadol online cod

Anónimo dijo...

tramadol 50 mg buy generic tramadol - can tramadol withdrawal kill you

Anónimo dijo...

http://buytramadolonlinecool.com/#28875 buy tramadol online paypal - can you buy tramadol online no prescription

Anónimo dijo...

http://landvoicelearning.com/#62431 tramadol withdrawal in cats - tramadol controlled substance

Anónimo dijo...

http://landvoicelearning.com/#63987 cheap tramadol no prescription overnight - high on tramadol 50mg

Anónimo dijo...

buy tramadol online tramadol overdose amount dogs - tramadol hcl 50mg for dogs

Anónimo dijo...

buy tramadol tramadol dosage compared to vicodin - what are the best sites to buy tramadol online

Anónimo dijo...

buy tramadol online no prescription cheap is tramadol legal to buy online - tramadol 50 mg erowid

Anónimo dijo...

http://blog.dawn.com/dblog/buy/#about-us tramadol 100 mg recreational - generic tramadol no prescription overnight

Anónimo dijo...

buy tramadol online reviews tramadol 50 mg tablets dosage - tramadol 100mg for dogs

Anónimo dijo...

learn how to buy tramdadol buy tramadol online no prescription next day delivery - tramadol addiction forum

Anónimo dijo...

buy tramadol tramadol 50mg tablets dosage - buy tramadol online overnight shipping

Anónimo dijo...

http://landvoicelearning.com/#62431 buy tramadol 150 mg - tramadol shipped with no prescription

Anónimo dijo...

http://reidmoody.com/#51208 ativan gang - ativan dosage intravenous

Anónimo dijo...

ativan online pharmacy beating ativan addiction - ativan dosage for insomnia

Anónimo dijo...

order ativan online high on ativan - ativan uses seizures

Anónimo dijo...

http://staam.org/#56274 high on tramadol 50mg - buy tramadol cod overnight delivery

Anónimo dijo...

buy tramadol online illegal buy tramadol online - tramadol high review

Anónimo dijo...

xanax cheap is generic xanax the same - xanax dosage strengths

Anónimo dijo...

xanax medication xanax withdrawal after one month - xanax valium overdose

Anónimo dijo...

buy xanax online xanax overdose complications - buy xanax online canada no prescription

Anónimo dijo...

http://staam.org/#37708 buy tramadol online prescription - tramadol 50mg wiki

Anónimo dijo...

buy xanax online xanax drug misuse - xanax pills symptoms

Anónimo dijo...

http://ranchodelastortugas.com/#37284 how much are xanax 1 mg worth - xanax effects synapse

Anónimo dijo...

buy xanax online 1mg of xanax high - xanax urine test how long

Anónimo dijo...

buy xanax valium online florida xanax lyrics - xanax 0.25 mg effects

Anónimo dijo...

I do not even know how I ended up here, but I thought this post was good.
I do not know who you are but definitely you're going to a famous blogger if you aren't already ;) Cheers!


Also visit my website http://wiki.ku.dk