请教vb.net2005中如何禁止移动窗体啊？
如题
[解决办法]
Public Class Form1
Public Declare Function GetSystemMenu Lib "user32 " Alias "GetSystemMenu " (ByVal hWnd As IntPtr, ByVal bRevert As Integer) As IntPtr
Public Declare Function RemoveMenu Lib "user32 " Alias "RemoveMenu " (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Public Const SC_MOVE As Integer = &HF010
Public Const MF_BYCOMMAND As Integer = 0
Public Const MF_DISABLED As Integer = 2
Public Const MF_GRAYED As Integer = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hMenu As IntPtr = GetSystemMenu(Me.Handle, 0)
RemoveMenu(hMenu, SC_MOVE, MF_BYCOMMAND Or MF_DISABLED Or MF_GRAYED) '移动菜单
End Sub
End Class
[解决办法]
Private startPositionX As Integer
Private startPositionY As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
startPositionX = Me.Location.X
startPositionY = Me.Location.Y
AddHandler Me.LocationChanged, New EventHandler(AddressOf Form1_LocationChanged)
End Sub
Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Location = New Point(Me.startPositionX, Me.startPositionY)
End Sub
