VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.PropertyPage MenuItemObjects 
   Caption         =   "MenuItemObjects"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   233
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   395
   Begin VB.TextBox txtMenuItemTag 
      Height          =   330
      Left            =   3240
      TabIndex        =   6
      Top             =   1365
      Width           =   1830
   End
   Begin VB.TextBox txtMenuItemKey 
      Height          =   330
      Left            =   3240
      TabIndex        =   4
      Top             =   555
      Width           =   1830
   End
   Begin VB.CommandButton cmdBrowse 
      Caption         =   "瀏覽 ..."
      Height          =   375
      Left            =   1125
      TabIndex        =   3
      Top             =   1635
      Width           =   1365
   End
   Begin VB.TextBox txtMenuItemCaption 
      Height          =   330
      Left            =   90
      TabIndex        =   1
      Top             =   585
      Width           =   1830
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   2025
      Top             =   525
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      DefaultExt      =   "bmp"
      DialogTitle     =   "Open Picture (bmp)"
      FileName        =   "*.ico"
      Filter          =   "IconFiles(*.ico)|*.ico"
      FontSize        =   1.73989e-39
   End
   Begin VB.Label lblMenuItemTag 
      Caption         =   "菜單項目 Tag:"
      Height          =   240
      Left            =   3240
      TabIndex        =   7
      Top             =   1095
      Width           =   1305
   End
   Begin VB.Label lblMenuItemKey 
      Caption         =   "菜單項目 Key:"
      Height          =   240
      Left            =   3240
      TabIndex        =   5
      Top             =   300
      Width           =   1305
   End
   Begin VB.Image imgPicture 
      Height          =   480
      Left            =   180
      Top             =   1560
      Width           =   480
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "菜單項目圖片:"
      Height          =   180
      Left            =   180
      TabIndex        =   2
      Top             =   1335
      Width           =   1170
   End
   Begin VB.Label lblMenuItemCaption 
      Caption         =   "菜單項目標(biāo)題："
      Height          =   240
      Left            =   90
      TabIndex        =   0
      Top             =   330
      Width           =   1305
   End
End
Attribute VB_Name = "MenuItemObjects"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub cmdBrowse_Click()
    On Error Resume Next
    CommonDialog1.ShowOpen
    If Err.Number = 0 Then
        imgPicture.Picture = LoadPicture(CommonDialog1.FileName)
        Changed = True
    End If
End Sub

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

Private Sub PropertyPage_ApplyChanges()
    On Error Resume Next
    SelectedControls(0).MenuItemCaption = txtMenuItemCaption.Text
    Set SelectedControls(0).MenuItemIcon = imgPicture.Picture
    SelectedControls(0).MenuItemKey = txtMenuItemKey.Text
    SelectedControls(0).MenuItemTag = txtMenuItemTag.Text
End Sub

Private Sub PropertyPage_SelectionChanged()
    On Error Resume Next
    txtMenuItemCaption.Text = SelectedControls(0).MenuItemCaption
    Set imgPicture.Picture = SelectedControls(0).MenuItemIcon
    txtMenuItemKey.Text = SelectedControls(0).MenuItemKey
    txtMenuItemTag.Text = SelectedControls(0).MenuItemTag
End Sub

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

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