01-10-12, 03:56 PM
كاتب الموضوع : BADRMEDIA
::: How To Move Borderless Form :::
Declare Variables in General Blank
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