paragraph.frm

用XML做专家系统的一个编译器,有说明书,使用简单,有模板

VERSION 5.00
Begin VB.Form frmParagraph 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "段落"
   ClientHeight    =   1050
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3315
   Icon            =   "Paragraph.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1050
   ScaleWidth      =   3315
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WhatsThisHelp   =   -1  'True
   Begin VB.Frame Frame1 
      Caption         =   "段落的对齐方式"
      Height          =   1035
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   1935
      Begin VB.PictureBox picAlign 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   540
         Left            =   1140
         Picture         =   "Paragraph.frx":000C
         ScaleHeight     =   510
         ScaleWidth      =   570
         TabIndex        =   6
         Top             =   360
         Width           =   600
      End
      Begin VB.OptionButton opnAlign 
         Caption         =   "左(&L)"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.OptionButton opnAlign 
         Caption         =   "中(&C)"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   8
         Top             =   480
         Width           =   1455
      End
      Begin VB.OptionButton opnAlign 
         Caption         =   "右(&R)"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   7
         Top             =   720
         Width           =   1275
      End
   End
   Begin VB.PictureBox picAlignArr 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Index           =   0
      Left            =   120
      Picture         =   "Paragraph.frx":0336
      ScaleHeight     =   585
      ScaleWidth      =   645
      TabIndex        =   4
      Top             =   1500
      Width           =   675
   End
   Begin VB.PictureBox picAlignArr 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Index           =   1
      Left            =   840
      Picture         =   "Paragraph.frx":0660
      ScaleHeight     =   585
      ScaleWidth      =   645
      TabIndex        =   3
      Top             =   1500
      Width           =   675
   End
   Begin VB.PictureBox picAlignArr 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   615
      Index           =   2
      Left            =   1560
      Picture         =   "Paragraph.frx":098A
      ScaleHeight     =   585
      ScaleWidth      =   645
      TabIndex        =   2
      Top             =   1500
      Width           =   675
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   390
      Left            =   2100
      TabIndex        =   1
      Top             =   75
      Width           =   1155
   End
   Begin VB.CommandButton cmdCxl 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   390
      Left            =   2100
      TabIndex        =   0
      Top             =   525
      Width           =   1155
   End
End
Attribute VB_Name = "frmParagraph"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'部分代码版权(C) 1995, Microsoft Corporation
'------HHZealot 翻译([e-mail])-----
Option Explicit

'*************************************************
' 目的:  卸载窗体
'*************************************************
Private Sub cmdCxl_Click()
    Unload Me
End Sub


'*************************************************
' 目的:   设置在活动的 RTF 控件中所选文字的对齐方
'         式
'*************************************************
Private Sub cmdOK_Click()
    Dim intSelected As Integer '所选项目的索引
    With fMainForm.ActiveForm.rtfText
    If opnAlign(0).value Then
        .SelAlignment = 0
    ElseIf opnAlign(1).value Then
        .SelAlignment = 2
    ElseIf opnAlign(2).value Then
        .SelAlignment = 1
    End If
    End With
    Unload Me
End Sub

'*************************************************
' 目的:   初始化带有活动 RTF 控件的所选段落文字的
'         对齐方式的窗体
'*************************************************
Private Sub Form_Load()
    With fMainForm.ActiveForm.rtfText
        Select Case .SelAlignment
            Case Null, rtfLeft
                opnAlign(0).value = True
            Case rtfCenter
                opnAlign(1).value = True
            Case rtfRight
                opnAlign(2).value = True
        End Select
    End With
End Sub

'*************************************************
' 目的:   设置所选项目的图片
'*************************************************
Private Sub opnAlign_Click(intIndex As Integer)
    picAlign.Picture = picAlignArr(intIndex).Picture
End Sub