如何调用api函数来屏蔽窗体上的还原按钮.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 15 行

可以这样做： 
    Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
    Private Const SC_MAXIMIZE = &HF030 
    Private Const MF_BYCOMMAND = &H0& 
    Private Const SC_RESTORE = &HF120 
     
    Private Sub Form_Load() 
     Dim hMenu As Long, Success As Long 
     
     hMenu = GetSystemMenu(hwnd, 0) 
     Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND) 
    End Sub 
<END>