Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/choreo/main.fr_/main.bin

Text File | 1995-08-22 | 2KB | 79 lines

VERSION 2.00
Begin MDIForm mdifrmMain
   Caption         =   "CenterView Books"
   ClientHeight    =   10830
   ClientLeft      =   540
   ClientTop       =   660
   ClientWidth     =   14055
   Height          =   11520
   Left            =   480
   LinkTopic       =   "MDIForm1"
   Top             =   30
   Width           =   14175
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuWindow
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin Menu mnuWindowCascade
         Caption         =   "&Cascade"
      End
      Begin Menu mnuWindowTile
         Caption         =   "&Tile"
      End
      Begin Menu mnuWindowArrange
         Caption         =   "&Arrange Icons"
      End
      Begin Menu mnuSeparator
         Caption         =   "-"
      End
      Begin Menu mnuWindowCustomerService
         Caption         =   "&Customer Service"
         Enabled         =   0   'False
      End
      Begin Menu mnuWindowShippingAddress
         Caption         =   "&Shipping Address"
      End
   End
End

Sub MDIForm_Load ()
    cfrmCustService.Height = 5700
    cfrmCustService.Width = 7635
End Sub

Sub mnuFileExit_Click ()
    End
End Sub

Sub mnuWindowArrange_Click ()
    'Arrange all form icons
    mdifrmMain.Arrange ARRANGE_ICONS
End Sub

Sub mnuWindowCascade_Click ()
    'Cascade child forms
    mdifrmMain.Arrange CASCADE
End Sub

Sub mnuWindowCustomerService_Click ()
    If iCustService = 0 Then
        cfrmCustService.Enabled = True
        cfrmCustService.Visible = True
        cfrmCustService.WindowState = 0
        iCustService = 1
        If iReviewOrders <> 0 Then
            cfrmCustService.cmb3dShowOrderDetail.Enabled = False
        End If
    End If
End Sub

Sub mnuWindowShippingAddress_Click ()
    cfrmShippingAddr.Show
End Sub