初学者请教！！！！！

Question

请问对窗体的Maxbutton,Minbutton,BorderStyle三个属性能在运行时通过代码重新设置吗？

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 Form_Load()
Dim R As Integer
MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, &HF060, R
End Sub
这段代码是试X按钮不可用。最大化和最小化应该是一样的。只需要改一下&HF060的值就可以了。