home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / databa_1 / frame.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-10  |  3.2 KB  |  92 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.MDIForm frmFrame 
  5.    AutoShowChildren=   0   'False
  6.    BackColor       =   &H8000000C&
  7.    Caption         =   "Database"
  8.    ClientHeight    =   4530
  9.    ClientLeft      =   165
  10.    ClientTop       =   735
  11.    ClientWidth     =   6345
  12.    LinkTopic       =   "MDIForm1"
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin MSComctlLib.ImageList ImageList1 
  15.       Left            =   1320
  16.       Top             =   1080
  17.       _ExtentX        =   1005
  18.       _ExtentY        =   1005
  19.       BackColor       =   -2147483643
  20.       ImageWidth      =   16
  21.       ImageHeight     =   16
  22.       MaskColor       =   12632256
  23.       _Version        =   393216
  24.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  25.          NumListImages   =   6
  26.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  27.             Picture         =   "Frame.frx":0000
  28.             Key             =   "imgDatabase"
  29.          EndProperty
  30.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "Frame.frx":024C
  32.             Key             =   "imgClosed"
  33.          EndProperty
  34.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "Frame.frx":0348
  36.             Key             =   "imgOpen"
  37.          EndProperty
  38.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "Frame.frx":045C
  40.             Key             =   "imgField"
  41.          EndProperty
  42.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "Frame.frx":056E
  44.             Key             =   "imgProp"
  45.          EndProperty
  46.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "Frame.frx":0686
  48.             Key             =   "imgPropBig"
  49.          EndProperty
  50.       EndProperty
  51.    End
  52.    Begin MSComDlg.CommonDialog CommonDialog1 
  53.       Left            =   2370
  54.       Top             =   1140
  55.       _ExtentX        =   847
  56.       _ExtentY        =   847
  57.       _Version        =   393216
  58.    End
  59.    Begin VB.Menu mnuFile 
  60.       Caption         =   "File"
  61.       Begin VB.Menu mnuFileOpen 
  62.          Caption         =   "Open"
  63.       End
  64.       Begin VB.Menu mnuFileExit 
  65.          Caption         =   "Exit"
  66.       End
  67.    End
  68.    Begin VB.Menu mnuWindow 
  69.       Caption         =   "Window"
  70.       WindowList      =   -1  'True
  71.    End
  72. Attribute VB_Name = "frmFrame"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. ' Frame.frm
  78. ' By Herman Liu
  79. Option Explicit
  80. Private Sub MDIForm_Load()
  81.        ' AutoShowChildren has been set to False
  82.     frmFrame.WindowState = 2
  83.     MsgBox "If this is your first visit, please read comment lines in DataBaseApp.BAS" & vbCrLf & _
  84.            "(Delete this message afterward)"
  85. End Sub
  86. Private Sub mnuFileOpen_Click()
  87.     DBFilesMDBproc
  88. End Sub
  89. Private Sub mnuFileExit_Click()
  90.     End
  91. End Sub
  92.