{"id":126,"date":"2015-03-07T11:03:07","date_gmt":"2015-03-07T09:03:07","guid":{"rendered":"https:\/\/burakcaliskan.org\/blog\/?p=126"},"modified":"2015-03-07T11:03:48","modified_gmt":"2015-03-07T09:03:48","slug":"vb-net-tasinabilir-suruklenebilir-form","status":"publish","type":"post","link":"https:\/\/burakcaliskan.org\/blog\/vb-net-tasinabilir-suruklenebilir-form\/","title":{"rendered":"VB.net Ta\u015f\u0131nabilir S\u00fcr\u00fcklenebilir Form"},"content":{"rendered":"<pre class=\"lang:vbnet decode:true \">Public Class Form1\r\nDim drag As Boolean\r\nDim mousex As Integer\r\nDim mousey As Integer\r\nPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load\r\n\r\nEnd Sub\r\n\r\nPrivate Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown\r\ndrag = True\r\nmousex = Windows.Forms.Cursor.Position.X - Me.Left\r\nmousey = Windows.Forms.Cursor.Position.Y - Me.Top\r\nEnd Sub\r\n\r\nPrivate Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove\r\nIf drag Then\r\nMe.Top = Windows.Forms.Cursor.Position.Y - mousey\r\nMe.Left = Windows.Forms.Cursor.Position.X - mousex\r\nEnd If\r\nEnd Sub\r\n\r\nPrivate Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp\r\ndrag = False\r\nEnd Sub\r\nEnd Class<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Public Class Form1 Dim drag As Boolean Dim mousex As Integer Dim mousey As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown drag = True mousex = Windows.Forms.Cursor.Position.X &#8211; Me.Left mousey = Windows.Forms.Cursor.Position.Y &#8211; Me.Top End [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":127,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[21,20],"tags":[52,54,53,55,50,51],"_links":{"self":[{"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/posts\/126"}],"collection":[{"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/comments?post=126"}],"version-history":[{"count":2,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/posts\/126\/revisions"}],"predecessor-version":[{"id":129,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/posts\/126\/revisions\/129"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/media\/127"}],"wp:attachment":[{"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/media?parent=126"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/categories?post=126"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/burakcaliskan.org\/blog\/wp-json\/wp\/v2\/tags?post=126"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}