menues.pag

星级酒店管理系统（附带系统自写控件源码）

VERSION 5.00
Begin VB.PropertyPage Menues 
   Caption         =   "Menues"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   LockControls    =   -1  'True
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.TextBox txtMenuStartup 
      Height          =   330
      Left            =   180
      TabIndex        =   5
      Top             =   1845
      Width           =   870
   End
   Begin VB.TextBox txtMenusMax 
      Height          =   330
      Left            =   180
      TabIndex        =   3
      Top             =   1125
      Width           =   870
   End
   Begin VB.TextBox txtMenuCur 
      Height          =   330
      Left            =   180
      TabIndex        =   1
      Top             =   450
      Width           =   870
   End
   Begin VB.Label Label1 
      BackColor       =   &H0080C0FF&
      Caption         =   "为程序最先启动时显示的菜单项。"
      Height          =   435
      Index           =   1
      Left            =   1305
      TabIndex        =   7
      Top             =   1815
      Width           =   1680
   End
   Begin VB.Label Label1 
      BackColor       =   &H0080C0FF&
      Caption         =   "当前菜单项的大小不能大于最大菜单数。"
      Height          =   435
      Index           =   0
      Left            =   1305
      TabIndex        =   6
      Top             =   480
      Width           =   1680
   End
   Begin VB.Label lblMenuStartup 
      AutoSize        =   -1  'True
      Caption         =   "菜单开始数:"
      Height          =   180
      Left            =   180
      TabIndex        =   4
      Top             =   1620
      Width           =   990
   End
   Begin VB.Label lblMenusMax 
      AutoSize        =   -1  'True
      Caption         =   "最大菜单数:"
      Height          =   180
      Left            =   180
      TabIndex        =   2
      Top             =   900
      Width           =   990
   End
   Begin VB.Label lblMenuCur 
      AutoSize        =   -1  'True
      Caption         =   "当前菜单项:"
      Height          =   180
      Left            =   180
      TabIndex        =   0
      Top             =   225
      Width           =   990
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0080C0FF&
      BackStyle       =   1  'Opaque
      Height          =   570
      Index           =   0
      Left            =   1170
      Shape           =   4  'Rounded Rectangle
      Top             =   390
      Width           =   1980
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0080C0FF&
      BackStyle       =   1  'Opaque
      Height          =   570
      Index           =   1
      Left            =   1170
      Shape           =   4  'Rounded Rectangle
      Top             =   1710
      Width           =   1980
   End
End
Attribute VB_Name = "Menues"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub txtMenuStartup_Change()
    On Error Resume Next
    Changed = True
End Sub

Private Sub txtMenusMax_Change()
    On Error Resume Next
    Changed = True
End Sub

Private Sub txtMenuCur_Change()
    On Error Resume Next
    Changed = True
End Sub

Private Sub PropertyPage_ApplyChanges()
    On Error Resume Next
    SelectedControls(0).MenuStartup = txtMenuStartup.Text
    SelectedControls(0).MenusMax = txtMenusMax.Text
    SelectedControls(0).MenuCur = txtMenuCur.Text
End Sub

Private Sub PropertyPage_SelectionChanged()
    On Error Resume Next
    txtMenuStartup.Text = SelectedControls(0).MenuStartup
    txtMenusMax.Text = SelectedControls(0).MenusMax
    txtMenuCur.Text = SelectedControls(0).MenuCur
End Sub