mdiform1.frm

来自「读excel文件生产文本文件导入用友生产凭证」· FRM 代码 · 共 52 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "慧海图书财务接口程序"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":08CA
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuabout 
      Caption         =   "关于    "
   End
   Begin VB.Menu munexit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
With FrameMain
FrameMain.Left = 0
FrameMain.Top = 0
FrameMain.Height = MDIForm1.Height - 770
FrameMain.Width = MDIForm1.Width - 180
End With
  
 FrameMain.Show
End Sub

Private Sub MDIForm_Resize()
FrameMain.Left = 0
FrameMain.Top = 0
If (MDIForm1.Height > 770) Then
FrameMain.Height = MDIForm1.Height - 770
End If
If (MDIForm1.Width > 180) Then
FrameMain.Width = MDIForm1.Width - 180
End If
End Sub

Private Sub mnuabout_Click()
frmSplash.Show
End Sub