frmmenu.frm

来自「this code helps u to understand the basi」· FRM 代码 · 共 35 行

VERSION 5.00
Begin VB.Form frmMenu 
   BackColor       =   &H00C0C0C0&
   Caption         =   "Inventory System"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuProduct 
      Caption         =   "&Product"
   End
   Begin VB.Menu mnuSales 
      Caption         =   "&Sales"
   End
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuProduct_Click()
frmProduct.Show 1, Me
End Sub

Private Sub mnuSales_Click()
frmSales.Show 1, Me
End Sub