www.pudn.com > Doe.rar > ODEMDIForm.frm

VERSION 5.00 
Begin VB.MDIForm ODEMDIForm  
   BackColor       =   &H8000000C& 
   Caption         =   "DOE" 
   ClientHeight    =   3195 
   ClientLeft      =   165 
   ClientTop       =   735 
   ClientWidth     =   4680 
   Icon            =   "ODEMDIForm.frx":0000 
   LinkTopic       =   "MDIForm1" 
   StartUpPosition =   3  '系統預設值 
   WindowState     =   2  '最大化 
   Begin VB.Menu MnuOpen  
      Caption         =   "檔案" 
   End 
   Begin VB.Menu MnuBuild  
      Caption         =   "建立控制因子" 
   End 
   Begin VB.Menu MnuExit  
      Caption         =   "離開" 
   End 
End 
Attribute VB_Name = "ODEMDIForm" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
 
Private Sub MDIForm_Activate() 
    If iFirst = True Then 
        iFirst = False 
 
         
    End If 
End Sub 
 
Private Sub MDIForm_Load() 
     
    Dim nStatus As Integer 
    If isGetCN = False Then Call GetCN 
End Sub 
 
 
Private Sub MnuBuild_Click() 
    FrmBuildFac.Show 
End Sub 
 
 
Private Sub MnuExit_Click() 
    Dim iAns As Integer 
    iAns = MsgBox("請問是否真的離開系統 ? ", vbQuestion + vbYesNo, "詢問訊息") 
    If iAns = vbYes Then 
        Unload Me 
    End If 
End Sub 
 
 
Private Sub MnuOpen_Click() 
    FrmOpen.Show 
     
End Sub