当窗体体Me.BorderStyle = 0使用什么API可以改变窗体的大小

Question

当窗体体Me.BorderStyle = 0时
'拖动窗体的API
Private Declare Function ReleaseCapture Lib "user32" () As Long
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
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1使用什么API可以改变窗体的大小
Me.Width=?
Me.Height=?

Answer 1

Public Declare Function MoveWindow Lib "user32" Alias "MoveWindow" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Answer 2

可以用代码 Me.Height 改变啊

Answer 3

在四边,四角都放上image控件,然后在各自的mousedown事件那加入如下代码
说明:Private Const WM_NCLBUTTONDOWN = &HA1
     Private Const W_SE_RESIZE = 17 '右下角可调整大小
     '左=10,右=11,上=12,左上=13,右上=14,下=15,左下=16,右下=17ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, W_SE_RESIZE, 0&明白...了吧