form1.frm

来自「很好的教程原代码！」· FRM 代码 · 共 53 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   1320
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' GetSystemMenu 函数声明
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
' RemoveMenu函数声明
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 = &HF060
Private Const SC_MINIMIZE = &HF020
Private Const SC_MAXIMIZE = &HF030

Public Sub Disabled()
Dim hMenu As Long
' 获得系统菜单句柄
hMenu = GetSystemMenu(hwnd, 0)
' 使关闭按钮不可用
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
' 使最小化按钮不可用
RemoveMenu hMenu, SC_MINIMIZE, MF_REMOVE
' 使最大化按钮不可用
RemoveMenu hMenu, SC_MAXIMIZE, MF_REMOVE
End Sub

Private Sub Command1_Click()
Disabled
End Sub