VB调整窗口大小问题？

来源：百度知道 编辑：UC知道 时间：2024/06/04 06:53:05
怎样让VB窗口的大小不可改变，但标题栏的最小化按钮仍然可用，鼠标移到窗口边缘时也不会变成双向前头，就像QQ的登陆框一样。
楼下ourcolour能不能看清除问题了再回答？？

'------------下面是模块代码---------------------------------------

Option Explicit

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const GWL_WNDPROC = (-4)
Public Const WM_ENDSESSION = &H16
Public Const WM_QUERYENDSESSION = &H11

Public preWinProc As Long

Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
If