منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
How To Move Borderless Form - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : How To Move Borderless Form (/showthread.php?tid=4685)

How To Move Borderless Form - RaggiTech - 01-10-12

كاتب الموضوع : BADRMEDIA

::: How To Move Borderless Form :::

Declare Variables in General Blank

كود :
[color=#000000][COLOR=#0000bb] Dim drag [/color][color=#007700]As [/color][COLOR=#0000bb]Boolean
    Dim mousex [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer
    Dim mousey [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer  
[/COLOR][/COLOR]

Then


كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub FrmBADRMEDIA_MouseDown[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseDown
        drag [/COLOR][color=#007700]= [/color][COLOR=#0000bb]True
        mousex [/COLOR][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Left
        mousey [/COLOR][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Top
    End Sub

    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub FrmBADRMEDIA_MouseMove[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseMove
        [/COLOR][color=#007700]If [/color][COLOR=#0000bb]drag Then
            Me[/COLOR][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- [/color][COLOR=#0000bb]mousey
            Me[/COLOR][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]= [/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]Cursor[/color][color=#007700].[/color][color=#0000bb]Position[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- [/color][COLOR=#0000bb]mousex
        End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub

    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub FrmBADRMEDIA_MouseUp[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseUp
        drag [/COLOR][color=#007700]= [/color][COLOR=#0000bb]False
    End Sub  
[/COLOR][/COLOR]


This Is Simple

How To Move Borderless Form - RaggiTech - 01-10-12

كاتب المشاركة : GinoSama

Or you can do this one


كود :
[color=#000000][COLOR=#0000bb]Dim X[/color][color=#007700], [/color][color=#0000bb]Y [/color][color=#007700]As [/color][COLOR=#0000bb]Integer  
[/COLOR][/COLOR]




كود :
[color=#000000][COLOR=#007700]Private [/color][color=#0000bb]Sub Form1_MouseDown[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseDown
        X [/COLOR][color=#007700]= [/color][color=#0000bb]Control[/color][color=#007700].[/color][color=#0000bb]MousePosition[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Location[/color][color=#007700].[/color][COLOR=#0000bb]X
        Y [/COLOR][color=#007700]= [/color][color=#0000bb]Control[/color][color=#007700].[/color][color=#0000bb]MousePosition[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Location[/color][color=#007700].[/color][COLOR=#0000bb]Y
    End Sub  
[/COLOR][/COLOR]




كود :
[color=#000000][COLOR=#007700]Private [/color][color=#0000bb]Sub Form1_MouseMove[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseMove
        [/COLOR][color=#007700]If [/color][color=#0000bb]e[/color][color=#007700].[/color][color=#0000bb]Button [/color][color=#007700]= [/color][color=#0000bb]MouseButtons[/color][color=#007700].[/color][COLOR=#0000bb]Left Then
            NewPoint [/COLOR][color=#007700]= [/color][color=#0000bb]Control[/color][color=#007700].[/color][COLOR=#0000bb]MousePosition
            NewPoint[/COLOR][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]= [/color][color=#0000bb]NewPoint[/color][color=#007700].[/color][color=#0000bb]X [/color][color=#007700]- ([/color][color=#0000bb]X[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]NewPoint[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]= [/color][color=#0000bb]NewPoint[/color][color=#007700].[/color][color=#0000bb]Y [/color][color=#007700]- ([/color][color=#0000bb]Y[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Location [/color][color=#007700]= [/color][COLOR=#0000bb]NewPoint
        End [/COLOR][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]


btw thanks for sharing bro!