loadfrm.frm

来自「《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Fina」· FRM 代码 · 共 50 行

VERSION 5.00
Begin VB.Form LoadFrm 
   BorderStyle     =   0  'None
   ClientHeight    =   915
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2475
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   915
   ScaleWidth      =   2475
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
End
Attribute VB_Name = "LoadFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************
'    File Name      :     loadfrm.frm
'    Author         :     endlessfree
'    Last updated   :     10.04.2002
'    Compiler       :     Visucal Basic 6.0
'    Description    :     ExhCAD0.99.1的加载窗体
'**********************************************************
'事件
'**********************************************************
'Form_Click
'Form_Load
'***********************************************************

Private Sub Form_Activate()
 LoadFrm.Refresh
 ExhFrm.Show
 Unload LoadFrm
End Sub


Private Sub Form_Load()

 ExhCAD_Init
 ExhCADData_Read

  
  arg = Command
  
End Sub