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

58 comentarios:

Anónimo dijo...

what was dating like during ww2 http://loveepicentre.com/ jason talyor dating dancer

Anónimo dijo...

vancouver dating cupid http://loveepicentre.com/advice.php perfict dating ages

Anónimo dijo...

vintage fabrics ebook http://audiobookscollection.co.uk/es/Project-Reviews-Assurance-and-Governance/p227872/ java programming ebook [url=http://audiobookscollection.co.uk/es/Microarray-Technology-in-Practice/p223325/]escape from freedom ebook[/url] free ebook 2007 and 2008 publish

Anónimo dijo...

xanax cost xanax bars online no prescription - overdose of xanax

Anónimo dijo...

buy xanax online overnight delivery xanax effects liver - xanax withdrawal gaba

Anónimo dijo...

cheap generic xanax buy xanax online with mastercard - xanax overdose how many milligrams

Anónimo dijo...

discount xanax long will 2mg xanax stay urine - xanax pills

Anónimo dijo...

generic xanax buy alprazolam powder - cheap online pharmacy xanax

Anónimo dijo...

generic xanax xanax 1 mg recreational use - xanax online no prescription review

Anónimo dijo...

buy tramadol online buy tramadol online without prescriptions usa - tramadol overdose bluelight

Anónimo dijo...

buy xanax online cheap zoloft drug interactions with xanax - xanax dosage take

Anónimo dijo...

xanax online xanax dosage .5 - how to buy xanax online legally

Anónimo dijo...

buy tramadol online buy tramadol online with visa - zydol tramadol dosage

Anónimo dijo...

generic xanax xanax dosage 1mg - buy xanax online without

Anónimo dijo...

buy tramadol online tramadol 50mg vs lortab 10mg - best buy tramadol

Anónimo dijo...

buy xanax online overnight xanax and alcohol stories - xanax side effects anxiety

Anónimo dijo...

buy carisoprodol carisoprodol generic name - buy carisoprodol usa

Anónimo dijo...

generic xanax are xanax pills blue - 2mg xanax and 2 beers

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

Anónimo dijo...

Definitely believe that which you stated. Your favorite justification appeared to be on
the web the easiest thing to be aware of. I say to you, I definitely get irked while people
consider worries that they just don't know about. You managed to hit the nail upon the top and also defined out the whole thing without having side effect , people can take a signal. Will probably be back to get more. Thanks

Feel free to visit my blog; jackpot 6000

Anónimo dijo...

Wonderful website you have here but I was wondering if уou κnew of any fоrums that cоver the same
topiсs talked about here? I'd really like to be a part of online community where I can get feed-back from other experienced people that share the same interest. If you have any recommendations, please let me know. Appreciate it!

My site; rhinoplasty surgery