ppg_sfcustom.pag

一个简单的快餐店收银软件

VERSION 5.00
Begin VB.PropertyPage ppg_SFCustom 
   Caption         =   "常规"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.CheckBox chkAllowResizing 
      Caption         =   "允许缩放"
      Height          =   285
      Left            =   3247
      TabIndex        =   9
      Top             =   1095
      Width           =   2460
   End
   Begin VB.CheckBox chkSystemIcon 
      Caption         =   "系统图标"
      Height          =   285
      Left            =   3247
      TabIndex        =   8
      Top             =   615
      Width           =   2460
   End
   Begin VB.TextBox txtCaptionTop 
      Height          =   330
      Left            =   217
      TabIndex        =   7
      Top             =   2025
      Width           =   2700
   End
   Begin VB.TextBox txtSkinPath 
      Height          =   330
      Left            =   217
      TabIndex        =   5
      Top             =   660
      Width           =   2700
   End
   Begin VB.TextBox txtCaption 
      Height          =   330
      Left            =   217
      TabIndex        =   3
      Top             =   1320
      Width           =   2700
   End
   Begin VB.CheckBox chkMinimizeBtn 
      Caption         =   "最小化按钮"
      Height          =   285
      Left            =   3247
      TabIndex        =   1
      Top             =   2055
      Width           =   2460
   End
   Begin VB.CheckBox chkMaximizeBtn 
      Caption         =   "最大化按钮"
      Height          =   285
      Left            =   3247
      TabIndex        =   0
      Top             =   1560
      Width           =   2460
   End
   Begin VB.Label lblCaptionTop 
      Caption         =   "标题位置:"
      Height          =   240
      Left            =   210
      TabIndex        =   6
      Top             =   1770
      Width           =   2700
   End
   Begin VB.Label lblSkinPath 
      Caption         =   "皮肤路径:"
      Height          =   240
      Left            =   210
      TabIndex        =   4
      Top             =   405
      Width           =   2700
   End
   Begin VB.Label lblCaption 
      Caption         =   "标题:"
      Height          =   240
      Left            =   210
      TabIndex        =   2
      Top             =   1080
      Width           =   2700
   End
End
Attribute VB_Name = "ppg_SFCustom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/12
'描  述：超强换肤控件
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Private Sub chkAllowResizing_Click()
    Changed = True
End Sub


Private Sub chkSystemIcon_Click()
    Changed = True
End Sub


Private Sub txtCaptionTop_Change()
    Changed = True
End Sub


Private Sub txtSkinPath_Change()
    Changed = True
End Sub


Private Sub txtCaption_Change()
    Changed = True
End Sub


Private Sub chkMinimizeBtn_Click()
    Changed = True
End Sub


Private Sub chkMaximizeBtn_Click()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).AllowResizing = (chkAllowResizing.Value = vbChecked)
    SelectedControls(0).SystemIcon = (chkSystemIcon.Value = vbChecked)
    SelectedControls(0).CaptionTop = txtCaptionTop.Text
    SelectedControls(0).SkinPath = txtSkinPath.Text
    SelectedControls(0).Caption = txtCaption.Text
    SelectedControls(0).MinimizeBtn = (chkMinimizeBtn.Value = vbChecked)
    SelectedControls(0).MaximizeBtn = (chkMaximizeBtn.Value = vbChecked)
End Sub


Private Sub PropertyPage_SelectionChanged()
    chkAllowResizing.Value = (SelectedControls(0).AllowResizing And vbChecked)
    chkSystemIcon.Value = (SelectedControls(0).SystemIcon And vbChecked)
    txtCaptionTop.Text = SelectedControls(0).CaptionTop
    txtSkinPath.Text = SelectedControls(0).SkinPath
    txtCaption.Text = SelectedControls(0).Caption
    chkMinimizeBtn.Value = (SelectedControls(0).MinimizeBtn And vbChecked)
    chkMaximizeBtn.Value = (SelectedControls(0).MaximizeBtn And vbChecked)
End Sub