宝峰科技 › 门户 ›程序设计› Basic› Visual Basic › 查看内容

VB 神童教程第二章第六节——综合示例二

2010-9-23 20:08| 发布者: admin| 查看: 925| 评论: 0|来自: 互联网

摘要: 在前面两节中，我们学习了命令按钮（CommandButton）、单选按钮（OptionButton）、复选按钮（CheckBox）的使用，本节将就前两节的知识做个总结。一、程序目的：通过选项按钮的选择，对所选文本进行定制。二、程序界 ...

在前面两节中，我们学习了命令按钮（CommandButton）、单选按钮（OptionButton）、复选按钮（CheckBox）的使用，本节将就前两节的知识做个总结。

一、程序目的：
通过选项按钮的选择，对所选文本进行定制。

二、程序界面：
程序界面如图一：

图一

一个文本框（TxtContent），显示“Learning Visual Basic”字样；三个单选按钮：按钮一（OptArial）让文本字体变为 Arial 类型；按钮二（OptModern）让文本字体变为 Modern 类型；按钮三（OptRoman）让文本字体变为 Times New Roman 类型；三个复选按钮：按钮一（ChkBold），让文本字体变为黑体；按钮二（ChkItalic），让文本字体变为斜体字；按钮三（ChkUnderline），给文本增加下划线。另外，还有一个退出按钮（CmdQuit），作用在于退出程序。

三、属性设置：
根据图一进行属性设置。

四、书写程序：

OptArial 按钮：
Private Sub OptArial_Click()
　　TxtContent.FontName = "Arial"
End Sub

OptModern 按钮：
Private Sub OptModern_Click()
　　TxtContent.FontName = "Modern"
End Sub

OptRoman 按钮：
Private Sub OptRoman_Click()
　　TxtContent.FontName = "Times New Roman"
End Sub

ChkBold 按钮：
Private Sub ChkBold_Click()
　If ChkBold.Value = 1 Then
　　TxtContent.FontBold = True
　Else
　　TxtContent.FontBold = False
End IF
End Sub

ChkItalic 按钮：
Private Sub ChkItalic_Click()
　If ChkItalic.Value = 1 Then
　　TxtContent.FontItalic = True
　Else
　　TxtContent.FontItalic = False
End IF
End Sub

ChkUnderline 按钮：
Private Sub ChkUnderline_Click()
　If ChkUnderline.Value = 1 Then
　　TxtContent.FontUnderline = True
　Else
　　TxtContent.FontUnderline = False
End IF
End Sub

CmdQuit 按钮：
Private Sub CmdQuit_Click()
　End
End Sub

五、分组控件（Frame）的学习：
从前面学到的知识我们知道，单选按钮只能多选一，那么，下面这种分组选项的选择又该如何制作呢？如图二：

图二