怎么才能把MDI窗口设置为不可改
'===============隐藏标题栏声明部分=================
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nI...全部
'===============隐藏标题栏声明部分=================
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
'===============隐藏标题栏声明部分=================
'===============隐藏标题栏调用部分 =================
'这部分写到MDIForm_Load()事件中
'===============隐藏标题栏=================
Dim L As Long
L = GetWindowLong(Me。
hWnd, GWL_STYLE)
L = 100663296 And Not (WS_CAPTION) 'L的值 100663296 无模式的 '113770496 Fix模式
' L = L And Not (WS_CAPTION) 'L的值 100663296 无模式的 '113770496 Fix模式
L = SetWindowLong(Me。
hWnd, GWL_STYLE, L)
'上面的代码中直接使用L而不用具体数值替换掉窗体会有一个边框
'===============隐藏标题栏调用部分=================
'隐藏了标题栏后窗体没法移动,下面是窗体移动的代码
'========移动没有标题栏的窗体声明部分===================
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Const WM_NCLBUTTonDOWN = &HA1
Const HTCAPTION = 2
'========移动没有标题栏的窗体声明部分===================
'下面这段调用代码放到窗体或者窗体上其他控件的Mouse_Move事件中,代码不需要做任何修改
'=======移动没有标题栏的窗体调用部分==============
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Me。
hWnd, WM_NCLBUTTonDOWN, HTCAPTION, 0&)
End If
'=======移动没有标题栏的窗体调用部分==============
。收起