VB窗体操作问题！等线等待

Question

怎样隐藏VB窗体右上角的“X”，或都变为灰色，不可用，

Answer 1

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 Sub Command1_Click()
  Unload Me
  End Sub
    
  Private Sub Form_Load()
  Dim R     As Integer
  MyMenu = GetSystemMenu(Me.hwnd, 0)
  RemoveMenu MyMenu, &HF060, R
  End Sub

Answer 2

VB窗体是MDIForm1，请问如何隐藏右上角的“X”，或者是不可用

Answer 3

xiaolei1982(小磊---雄性激素造就了一个男人却毁掉了一名帅哥...) ( ) 信誉：100  2007-07-20 11:55:12  得分: 0  
正解..学习了

Answer 4

用 API 函数   如 小磊的解法

Answer 5

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 LongPrivate Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim R As Integer
MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, &HF060, R
End Sub