我们都知道窗体属性设置为无框架的时候默认它是不可以移动的!
要做好看的界面我喜欢用没有框架的窗体... 制作移动的无框架窗体可以利用API实现
声明部分:
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
在窗体的鼠标按下事件中输入:(Form_MouseDown事件)
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0&