caption.pag

图形界面面板

VERSION 5.00
Begin VB.PropertyPage ppgCaption 
   Caption         =   "Caption"
   ClientHeight    =   4080
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7590
   LockControls    =   -1  'True
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   4080
   ScaleWidth      =   7590
   Begin vbpPanel3D.Panel3D pnlDemo 
      Height          =   1245
      Left            =   135
      TabIndex        =   2
      Top             =   120
      Width           =   7320
      _ExtentX        =   12912
      _ExtentY        =   2196
      Version         =   "March,17 1998"
      Object.Align           =   0
      RichLabel       =   "True"
      Caption         =   ""
      Alignment       =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Font3D          =   3
      BackColor       =   12632256
      ForeColor       =   0
      BorderColor     =   12632256
      ShadowColor     =   8421504
      FloodColor      =   16711680
      OutLine         =   0   'False
      BevelInner      =   0
      BevelOuter      =   1
      BevelWidth      =   1
      BorderWidth     =   0
      WordBorderDistance=   0
      LinesDistance   =   0
      Enabled         =   -1  'True
      Object.Visible         =   -1  'True
      MousePointer    =   0
      MouseIcon       =   "Caption.pgx":0000
   End
   Begin VB.TextBox txtCaption 
      Height          =   2415
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   1500
      Width           =   4515
   End
   Begin VB.Label lblMsg 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "使用说明:"
      ForeColor       =   &H00800000&
      Height          =   2415
      Left            =   4800
      TabIndex        =   1
      Top             =   1500
      Width           =   2655
   End
End
Attribute VB_Name = "ppgCaption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Option Explicit
Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).Caption = txtCaption.Text
End Sub



Private Sub PropertyPage_Initialize()
  lblMsg = "控制符定义:" _
    & vbCrLf & "  \CR       回车,换行" _
    & vbCrLf & "  \FN?.     字体名,以'.'结束" _
    & vbCrLf & "  \FSnn     字体大小" _
    & vbCrLf & "  \BT       粗体" _
    & vbCrLf & "  \BF       取消粗体" _
    & vbCrLf & "  \IT       斜体" _
    & vbCrLf & "  \IF       取消斜体" _
    & vbCrLf & "  \UT       下划线" _
    & vbCrLf & "  \UF       取消下划线" _
    & vbCrLf & "  \DT       删除线" _
    & vbCrLf & "  \DF       取消删除线" _
    & vbCrLf & "  \FCnn     前景色,00-15"
End Sub

Private Sub PropertyPage_SelectionChanged()
  txtCaption = SelectedControls(0).Caption
End Sub

Private Sub txtCaption_Change()
  Changed = True
  pnlDemo.Caption = txtCaption.Text
End Sub