关于MDI窗体问题???

Question

我用MDI窗体写东西
但是问题是我不能设置子窗体的显示位置和关闭按钮
请赐教

Answer 1

在form load的时候加上：
  Me.Top = 100
  Me.Left = 100
就可以设置form窗体相对mdi窗体的位置了。

Answer 2

关闭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 = &HF060Public 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事件中调用Disableddim a as string
dim b as integer
a = me.hwnd
b = 0
disabled a,b