main.frm

来自「VB精彩编程200例,可以快速的让你掌握VB的编程」· FRM 代码 · 共 49 行

VERSION 5.00
Begin VB.Form main 
   Caption         =   "屏蔽关闭、最大化、最小化按钮"
   ClientHeight    =   1575
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3720
   LinkTopic       =   "Form1"
   ScaleHeight     =   1575
   ScaleWidth      =   3720
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   495
      Left            =   675
      TabIndex        =   0
      Top             =   525
      Width           =   2250
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'API函数声明
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_COLSE = &HF060
Private Const SC_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020

Private Sub Form_Load()
' 关闭、最大化、最小化按钮不可用
  RemoveMenu GetSystemMenu(main.hWnd, 0), SC_COLSE, MF_REMOVE
  RemoveMenu GetSystemMenu(main.hWnd, 0), SC_MAXIMIZE, MF_REMOVE
  RemoveMenu GetSystemMenu(main.hWnd, 0), SC_MINIMIZE, MF_REMOVE
End Sub

Private Sub Command2_Click()
  End
End Sub