test.frm

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

      ButtonCaption2  =   "Next"
      ButtonDescription2=   "Display next page from history"
      ButtonPicture2  =   "Test.frx":1566
      ButtonPictureOver2=   "Test.frx":1A68
      ButtonToolTipText2=   "Next"
      ButtonDescription3=   "Stop loading a page"
      ButtonPicture3  =   "Test.frx":1F6A
      ButtonPictureOver3=   "Test.frx":246C
      ButtonToolTipText3=   "Stop"
      ButtonCaption4  =   "Refresh"
      ButtonDescription4=   "Refresh the current page"
      ButtonPicture4  =   "Test.frx":296E
      ButtonPictureOver4=   "Test.frx":2E70
      ButtonToolTipText4=   "Refresh"
      ButtonAlwaysShowCaption4=   -1  'True
      ButtonDescription5=   "Displays your home page"
      ButtonPicture5  =   "Test.frx":3372
      ButtonPictureOver5=   "Test.frx":3874
      ButtonToolTipText5=   "Home"
      ButtonStyle6    =   2
      ButtonDescription7=   "Displays a search engine"
      ButtonKey7      =   "Search"
      ButtonPicture7  =   "Test.frx":3D76
      ButtonPictureOver7=   "Test.frx":4278
      ButtonToolTipText7=   "Search"
      ButtonDescription8=   "Displays your favourites menu"
      ButtonKey8      =   "Fav"
      ButtonPicture8  =   "Test.frx":477A
      ButtonPictureOver8=   "Test.frx":4C7C
      ButtonToolTipText8=   "Favourites"
      ButtonDescription9=   "Displays your history list"
      ButtonKey9      =   "History"
      ButtonPicture9  =   "Test.frx":517E
      ButtonPictureOver9=   "Test.frx":5680
      ButtonToolTipText9=   "History"
      ButtonStyle10   =   2
      ButtonDescription11=   "Allows you to set options"
      ButtonPicture11 =   "Test.frx":5B82
      ButtonPictureOver11=   "Test.frx":6084
      ButtonPictureDown11=   "Test.frx":6586
      ButtonToolTipText11=   "Options"
      ButtonStyle12   =   2
      ButtonDescription13=   "Displays the page full screen"
      ButtonPicture13 =   "Test.frx":6A88
      ButtonPictureOver13=   "Test.frx":6F8A
      ButtonToolTipText13=   "Full Screen"
      ButtonDescription14=   "Allows the page to be edited"
      ButtonPicture14 =   "Test.frx":748C
      ButtonPictureOver14=   "Test.frx":79DE
      ButtonToolTipText14=   "Edit"
      ButtonStyle15   =   2
   End
   Begin AIFCmp1.asxToolbar tbrHeader 
      Align           =   3  'Align Left
      Height          =   4140
      Left            =   0
      Top             =   510
      Width           =   510
      _ExtentX        =   900
      _ExtentY        =   7303
      BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TextColor       =   12582912
      TextDisabledColor=   8421504
      ButtonGap       =   6
      BorderStyle     =   0
      BackColor       =   255
      HighlightColor  =   12632319
      ShadowColor     =   192
      HighlightDarkColor=   8421631
      ShadowDarkColor =   128
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ButtonCount     =   3
      ShowSeparators  =   -1  'True
      ButtonCaption1  =   "Code"
      ButtonKey1      =   "Code"
      ButtonPicture1  =   "Test.frx":7F30
      ButtonToolTipText1=   "Display Code Module"
      ButtonGroupID1  =   1
      ButtonCaption2  =   "Notes"
      ButtonKey2      =   "Notes"
      ButtonPicture2  =   "Test.frx":8282
      ButtonToolTipText2=   "Display Code Description"
      ButtonGroupID2  =   1
      ButtonKey3      =   "Example"
      ButtonPicture3  =   "Test.frx":85D4
      ButtonToolTipText3=   "Display examples on using the code"
      ButtonGroupID3  =   1
   End
   Begin VB.Label lblHdr 
      AutoSize        =   -1  'True
      Caption         =   "Border&Style:"
      Height          =   195
      Index           =   0
      Left            =   630
      TabIndex        =   25
      Top             =   1305
      Width           =   855
   End
   Begin VB.Label lblHdr 
      AutoSize        =   -1  'True
      Caption         =   "&Appearance:"
      Height          =   195
      Index           =   1
      Left            =   630
      TabIndex        =   24
      Top             =   630
      Width           =   915
   End
   Begin VB.Label lblHdr 
      AutoSize        =   -1  'True
      Caption         =   "Caption&Options:"
      Height          =   195
      Index           =   2
      Left            =   630
      TabIndex        =   23
      Top             =   1980
      Width           =   1125
   End
   Begin VB.Label lblHdr 
      AutoSize        =   -1  'True
      Caption         =   "Button&Gap:"
      Height          =   195
      Index           =   3
      Left            =   630
      TabIndex        =   22
      Top             =   3330
      Width           =   810
   End
   Begin VB.Label lblHdr 
      AutoSize        =   -1  'True
      Caption         =   "CaptionAlignm&ent:"
      Height          =   195
      Index           =   4
      Left            =   630
      TabIndex        =   21
      Top             =   2655
      Width           =   1275
   End
   Begin VB.Label lblHdr 
      AutoSize        =   -1  'True
      Caption         =   "St&yle:"
      Height          =   195
      Index           =   5
      Left            =   630
      TabIndex        =   20
      Top             =   4005
      Width           =   390
   End
End
Attribute VB_Name = "frmToolbarDemonstration"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
DefInt A-Z


Private Sub cboAlignment_Click()
 tbrDemo.CaptionAlignment = cboAlignment.ListIndex
End Sub


Private Sub cboAppearance_Click()
 tbrDemo.Appearance = cboAppearance.ListIndex
 tbrFontDemo.Appearance = cboAppearance.ListIndex
 tbrHeader.Appearance = cboAppearance.ListIndex
End Sub


Private Sub cboBorderStyle_Click()
 tbrDemo.BorderStyle = cboBorderStyle.ListIndex
End Sub

Private Sub cboCaption_Click()
 tbrDemo.CaptionOptions = cboCaption.ListIndex
End Sub


Private Sub cboStyle_Click()
 tbrDemo.Style = cboStyle.ListIndex
End Sub


Private Sub chkBold_Click()
 tbrHeader.BoldOnChecked = chkBold
End Sub

Private Sub chkBorderBottom_Click()
 tbrDemo.Borderbottom = chkBorderBottom
End Sub

Private Sub chkBorderLeft_Click()
 tbrDemo.Borderleft = chkBorderLeft
End Sub

Private Sub chkBorderRight_Click()
 tbrDemo.Borderright = chkBorderRight
End Sub


Private Sub chkBorderTop_Click()
 tbrDemo.BorderTop = chkBorderTop
End Sub


Private Sub chkDisabled_Click()
 tbrDemo.DisabledText3D = chkDisabled
End Sub

Private Sub chkDoubleBottomBorder_Click()
 tbrDemo.DoubleBottomBorder = chkDoubleBottomBorder
End Sub

Private Sub chkDoubleTopBorder_Click()
 tbrDemo.DoubleTopBorder = chkDoubleTopBorder
End Sub


Private Sub chkEnabled_Click()
 tbrDemo.Enabled = chkEnabled
 tbrFontDemo.Enabled = chkEnabled
 tbrHeader.Enabled = chkEnabled
End Sub


Private Sub chkShowSeparators_Click()
 tbrHeader.ShowSeparators = chkShowSeparators
End Sub

Private Sub chkShowToolTips_Click()
 tbrDemo.ShowToolTips = chkShowToolTips
End Sub

Private Sub chkSolidChecked_Click()
 tbrHeader.SolidChecked = chkSolidChecked
End Sub


Private Sub chkSounds_Click()
 tbrDemo.PlaySounds = chkSounds
End Sub

Private Sub Form_Load()
 cboAppearance.ListIndex = ifcaStandard
 cboBorderStyle.ListIndex = tbbsRaised
 cboCaption.ListIndex = iftoSelectedLabels
 cboAlignment.ListIndex = ifcaCaptionOnRight
 cboStyle.ListIndex = tbtsVariable
 txtField = tbrDemo.ButtonGap
End Sub


Private Sub tbrDemo_ButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
 If ButtonKey = "Search" Or ButtonKey = "Fav" Or ButtonKey = "History" Then
  tbrDemo.ButtonChecked(ButtonIndex) = Not tbrDemo.ButtonChecked(ButtonIndex)
 End If
End Sub


Private Sub txtField_Change()
 tbrDemo.ButtonGap = Val(txtField)
End Sub