1223
社区成员
4.1w+
社区内容
- 主页
...全文
XPR 2004年12月24日
关闭MDI的关闭按钮
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060
Public Sub Disabled(A, B)
Dim hMenu, hwndMenu As Long
Dim C As Long
hMenu = GetSystemMenu(A, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Sub
在MDI的form_load事件中调用Disabled
dim a as string
dim b as integer
a = me.hwnd
b = 0
disabled a,b
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wflags As Long) As Long
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060
Public Sub Disabled(A, B)
Dim hMenu, hwndMenu As Long
Dim C As Long
hMenu = GetSystemMenu(A, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Sub
在MDI的form_load事件中调用Disabled
dim a as string
dim b as integer
a = me.hwnd
b = 0
disabled a,b
pweixing 2004年12月24日
在form load的时候加上：
Me.Top = 100
Me.Left = 100
就可以设置form窗体相对mdi窗体的位置了。
Me.Top = 100
Me.Left = 100
就可以设置form窗体相对mdi窗体的位置了。
maxsailor 2004年12月24日
非常感谢
可是设置了这些以后
怎样将子窗体不可移动呢?
可是设置了这些以后
怎样将子窗体不可移动呢?