frmmaintest.frm

来自「电梯检测系统是对电梯性能进行检测的系统。是一个用来学习的程序。」· FRM 代码 · 共 48 行

VERSION 5.00
Begin VB.MDIForm FrmMainTest 
   BackColor       =   &H00A3766D&
   Caption         =   "Elevator Testing System"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11580
   Icon            =   "FrmMainTest.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "FrmMainTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Me.left = GetSetting(App.title, "CC2000", "Left", 100)
Me.top = GetSetting(App.title, "CC2000", "Top", 100)
Me.Width = GetSetting(App.title, "CC2000", "Width", Screen.Width - 100)
Me.Height = GetSetting(App.title, "CC2000", "Height", Screen.Height - 100)

FrmNavigate.Show

End Sub


Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Cancel = True
End Sub


Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
    SaveSetting App.title, "CC2000", "Left", Me.left
    SaveSetting App.title, "CC2000", "Top", Me.top
    SaveSetting App.title, "CC2000", "Width", Me.Width
    SaveSetting App.title, "CC2000", "Height", Me.Height
End If


End Sub