mdiform1.frm

来自「一套鞋厂的仓库管理系统」· FRM 代码 · 共 32 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000001&
   Caption         =   "开发材料库存管理系统"
   ClientHeight    =   4950
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6405
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu file 
      Caption         =   "文件(&F)"
      Begin VB.Menu exit 
         Caption         =   "关闭(&E)"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub exit_Click()
    If MsgBox("退出开发材料库存管理系统？", vbOKCancel) = vbOK Then
       Unload Me
    End If
End Sub