【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Ex8_8.frm”一文，供大家参考学习!

    VERSION 5.00
    Begin VB.Form Ex8_8 
       Caption         =   "框架控件的应用"
       ClientHeight    =   3510
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4695
       LinkTopic       =   "Form1"
       ScaleHeight     =   3510
       ScaleWidth      =   4695
       StartUpPosition =   3  '窗口缺省
       Begin VB.Frame Frame2 
          Caption         =   "字型"
          Height          =   735
          Left            =   480
          TabIndex        =   4
          Top             =   2400
          Width           =   3735
          Begin VB.CheckBox Check3 
             Caption         =   "下划线"
             Height          =   255
             Left            =   2520
             TabIndex        =   8
             Top             =   360
             Width           =   855
          End
          Begin VB.CheckBox Check2 
             Caption         =   "斜体"
             Height          =   255
             Left            =   1440
             TabIndex        =   6
             Top             =   360
             Width           =   855
          End
          Begin VB.CheckBox Check1 
             Caption         =   "粗体"
             Height          =   255
             Left            =   480
             TabIndex        =   5
             Top             =   360
             Width           =   855
          End
       End
       Begin VB.Frame Frame1 
          Caption         =   "字号"
          Height          =   735
          Left            =   480
          TabIndex        =   1
          Top             =   1440
          Width           =   3735
          Begin VB.OptionButton Option3 
             Caption         =   "24"
             Height          =   180
             Left            =   2640
             TabIndex        =   7
             Top             =   360
             Width           =   810
          End
          Begin VB.OptionButton Option2 
             Caption         =   "16"
             Height          =   180
             Left            =   1560
             TabIndex        =   3
             Top             =   360
             Width           =   810
          End
          Begin VB.OptionButton Option1 
             Caption         =   "12"
             Height          =   180
             Left            =   480
             TabIndex        =   2
             Top             =   360
             Width           =   810
          End
       End
       Begin VB.TextBox Text1 
          Height          =   975
          Left            =   480
          MultiLine       =   -1  'True
          TabIndex        =   0
          Top             =   240
          Width           =   3615
       End
    End
    Attribute VB_Name = "Ex8_8"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Option1_Click()  '设置字号为12
        If Option1.Value = True Then Text1.FontSize = 12
    End Sub
    Private Sub Option2_Click() '设置字号为16
        If Option2.Value = True Then Text1.FontSize = 16
    End Sub
    Private Sub Option3_Click() '设置字号为20
        If Option3.Value = True Then Text1.FontSize = 24
    End Sub
    Private Sub Check1_Click() '设置字型为粗体
        If Check1.Value = 1 Then
            Text1.FontBold = True
        Else
            Text1.FontBold = False
        End If
    End Sub
    Private Sub Check2_Click()   '设置字型为斜体
        If Check2.Value = 1 Then
            Text1.FontItalic = True
        Else
            Text1.FontItalic = False
        End If
    End Sub
    Private Sub Check3_Click()  '设置字型为下划线
        If Check3.Value = 1 Then
            Text1.FontUnderline = True
        Else
            Text1.FontUnderline = False
        End If
    End Sub