Liren Large Software Subsidy 10/10.iso/l/l407/5.ddi/MDINPAD.FR_/MDINPAD.bin

Visual Basic Form | 1993-04-28 | 3.9 KB | 138 lines

VERSION 2.00
Begin MDIForm frmMDI
   Caption         =   "Address Database"
   ClientHeight    =   5160
   ClientLeft      =   870
   ClientTop       =   1695
   ClientWidth     =   5715
   Height          =   5850
   Left            =   810
   LinkTopic       =   "MDIForm1"
   Top             =   1065
   Width           =   5835
   Begin PictureBox Picture1
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      ScaleHeight     =   465
      ScaleWidth      =   5685
      TabIndex        =   1
      Top             =   4665
      Width           =   5715
      Begin CommandButton Command2
         Caption         =   " >>"
         Height          =   360
         Left            =   2910
         TabIndex        =   5
         Top             =   75
         Width           =   855
      End
      Begin CommandButton Command1
         Caption         =   "<<"
         Height          =   360
         Left            =   1935
         TabIndex        =   4
         Top             =   75
         Width           =   825
      End
      Begin TextBox Text2
         Height          =   285
         Left            =   3870
         TabIndex        =   3
         Text            =   "Total Records : 3"
         Top             =   120
         Width           =   1725
      End
      Begin TextBox Text1
         Height          =   285
         Left            =   120
         TabIndex        =   2
         Text            =   "Current Record : 1"
         Top             =   120
         Width           =   1695
      End
   End
   Begin PictureBox picToolbar
      Align           =   1  'Align Top
      BackColor       =   &H8000000F&
      Height          =   435
      Left            =   0
      ScaleHeight     =   405
      ScaleWidth      =   5685
      TabIndex        =   0
      Top             =   0
      Width           =   5715
      Begin Image imgFileOpenButton
         Height          =   330
         Left            =   330
         Picture         =   MDINPAD.FRX:0000
         Top             =   45
         Width           =   360
      End
      Begin Image imgFileNewButton
         Height          =   330
         Left            =   45
         Picture         =   MDINPAD.FRX:0182
         Top             =   45
         Width           =   360
      End
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFNew
         Caption         =   "&New"
      End
      Begin Menu mnuFOpen
         Caption         =   "&Open"
      End
      Begin Menu mnuDash
         Caption         =   "-"
      End
      Begin Menu mnuFExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuWindow
      Caption         =   "&Window"
      Begin Menu mnuWindowTile
         Caption         =   "&Tile"
      End
      Begin Menu mnuWindowCascade
         Caption         =   "&Cascade"
      End
   End
Sub imgCopyButton_Click ()
End Sub
Sub imgCutButton_Click ()
End Sub
Sub imgPasteButton_Click ()
End Sub
Sub MDIForm_Load ()
    ReDim NewDoc(2) As New Form2
    Height = Screen.Height - (1 / 6 * Screen.Height)
    Width = Screen.Width - (1 / 2.5 * Screen.Width)
    Left = Screen.Width / 3 - Width / 2
    Top = Screen.Height / 2 - Height / 2
    For i = 0 To 2
        NewDoc(i).Show
    Next i
    frmMdi.Arrange 0
    NewDoc(0).Caption = "Andrew Fuller"
    NewDoc(0).txtName = "AndrewFuller"
    NewDoc(1).Caption = "Michael Suyama"
    NewDoc(1).txtName = "Michael Suyama"
    NewDoc(2).Caption = "Nancy Davolio"
    NewDoc(2).txtName = "Nancy Davolio"
End Sub
Sub mnuFExit_Click ()
    End
End Sub
Sub mnuFOpen_Click ()
filename$ = "Addrss.txt"
Open filename$ For Input As #1
End Sub
Sub mnuOptions_Click ()
End Sub
Sub mnuOToolbar_Click ()
End Sub