例7_2.frm

在VB5环境下开发的VB程序集,窗体控件源代码.

VERSION 5.00
Begin VB.Form FRM7_1_2 
   BackColor       =   &H00C0FFFF&
   Caption         =   "单选钮与复选框实例--文本编辑器"
   ClientHeight    =   5340
   ClientLeft      =   210
   ClientTop       =   1410
   ClientWidth     =   9210
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   18
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5340
   ScaleWidth      =   9210
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0FF&
      Height          =   2175
      Left            =   2520
      TabIndex        =   9
      Top             =   3000
      Width           =   1335
      Begin VB.OptionButton Option6 
         Caption         =   "48"
         Height          =   495
         Left            =   120
         TabIndex        =   12
         Top             =   1680
         Width           =   975
      End
      Begin VB.OptionButton Option5 
         Caption         =   "16"
         Height          =   495
         Left            =   120
         TabIndex        =   11
         Top             =   840
         Width           =   975
      End
      Begin VB.OptionButton Option4 
         Caption         =   "8"
         Height          =   495
         Left            =   120
         TabIndex        =   10
         Top             =   0
         Width           =   975
      End
   End
   Begin VB.CheckBox Check5 
      BackColor       =   &H00FF0000&
      Caption         =   "BLUE"
      ForeColor       =   &H00FFFFFF&
      Height          =   495
      Left            =   7080
      TabIndex        =   8
      Top             =   4680
      Width           =   1335
   End
   Begin VB.CheckBox Check4 
      BackColor       =   &H0000FF00&
      Caption         =   "GREEN"
      Height          =   495
      Left            =   7080
      TabIndex        =   7
      Top             =   3840
      Width           =   1335
   End
   Begin VB.CheckBox Check3 
      BackColor       =   &H000000FF&
      Caption         =   "RED"
      Height          =   495
      Left            =   7080
      TabIndex        =   6
      Top             =   3000
      Width           =   1335
   End
   Begin VB.CheckBox Check2 
      Caption         =   "StrikeThrough"
      Height          =   495
      Left            =   3960
      TabIndex        =   5
      Top             =   3840
      Width           =   2775
   End
   Begin VB.CheckBox Check1 
      Caption         =   "UnderLine"
      Height          =   495
      Left            =   3960
      TabIndex        =   4
      Top             =   3000
      Width           =   2775
   End
   Begin VB.OptionButton Option3 
      Caption         =   "仿宋"
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   1200
      TabIndex        =   3
      Top             =   4680
      Width           =   1095
   End
   Begin VB.OptionButton Option2 
      Caption         =   "黑体"
      Height          =   495
      Left            =   1200
      TabIndex        =   2
      Top             =   3840
      Width           =   1095
   End
   Begin VB.OptionButton Option1 
      Caption         =   "宋体"
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   1200
      TabIndex        =   1
      Top             =   3000
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   2055
      Left            =   120
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   720
      Width           =   8895
   End
   Begin VB.Label Label1 
      BackColor       =   &H0000FF00&
      Caption         =   "单击相应选项看实际效果，思考考查哪些属性"
      Height          =   495
      Left            =   840
      TabIndex        =   13
      Top             =   120
      Width           =   7335
   End
End
Attribute VB_Name = "FRM7_1_2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim R, G, b

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontStrikethru = True
Else
Text1.FontStrikethru = False
End If
End Sub


Private Sub Check3_Click()
If Check3.Value = 1 Then
R = 255
Else
R = 0
End If
Text1.BackColor = RGB(R, G, b)
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
G = 255
Else
G = 0
End If
Text1.BackColor = RGB(R, G, b)
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then
b = 255
Else
b = 0
End If
Text1.BackColor = RGB(R, G, b)
End Sub



Private Sub Option1_Click()
If Option1.Value = True Then
Text1.FontName = "宋体"
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Text1.FontName = "黑体"
End If
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Text1.FontName = "仿宋_GB2312"
End If
End Sub

Private Sub Option4_Click()
If Option4.Value = True Then
Text1.FontSize = 16
End If
End Sub

Private Sub Option5_Click()
If Option5.Value = True Then
Text1.FontSize = 32
End If
End Sub

Private Sub Option6_Click()
If Option6.Value = True Then
Text1.FontSize = 64
End If
End Sub


Private Sub Form_Load()
Text1 = ""
Open App.Path + "\POME.TXT" For Input As #1
Do Until EOF(1)
Line Input #1, INPUTDATA
Text1 = Text1 + INPUTDATA + vbCrLf
Loop
Close #1
End Sub

Private Sub Text1_LostFocus()
Open App.Path + "\Pome.TXT" For Output As #1
Print #1, Text1
Close #1
End Sub