1） 在窗体上先画两个图片框picture1和picutre2,在picture1中放四个选项按钮optio

来源：百度知道 编辑：UC知道 时间：2024/06/05 08:27:33
1） 在窗体上先画两个图片框Picture1和Picutre2,在Picture1中放四个选项按钮Option1(0)、Option1(1)、 Option1(2)和 Option1(3)，设置各个选项按钮的Style属性为1-Graphical，Caption属性分别为 “宋体”、“楷体”、“黑体”和“隶书”；
2） 在Picture2中放四个复选框Check1(0)、Check1(1)、 Check1(2)和 Check1 (3)，设置各个选项按钮的Style属性为1-Graphical，Caption属性分别为 “粗体”、“斜体”、“删除线”和“下划线”。

图1 设置文字效果
3） 编写程序，单击选项按钮可以改变文本框中文字的字体，选择复选框中的选项可以对文本框中的文本同时设置（或取消）文字的样式或效果。

Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then
Text1.FontBold = True
Else: Text1.FontBold = False
End If

If Check1(1).Value = 1 Then
Text1.FontItalic = True
Else: Text1.FontItalic = False
End If

If Check1(2).Value = 1 Then
Text1.FontStrikethru = True
Else: Text1.FontStrikethru = False
End If

If Check1(3).Value = 1 Then
Text1.FontUnderline = True
Else: Text1.FontUnderline = False
End If

End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontName = "宋体"
Case 1
Text1.FontName = "楷体_GB2312"
Case 2
Text1.FontName = "黑体"
Case 3
Text1.FontName = "隶书"
End Select

End Sub

b zm zd