VB 神童教程第二篇第六篇——综合示例二.docxVIP

VB?神童教程第二章第六节——综合示例二作者：未知????阅读人次：51224????文章来源：未知????发布时间：2004-12-15????网友评论(97)条?在前面两节中，我们学习了命令按钮（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 = ArialEnd SubOptModern 按钮：Private Sub OptModern_Click()　　TxtContent.FontName = ModernEnd SubOptRoman 按钮：Private Sub OptRoman_Click()　　TxtContent.FontName = Times New RomanEnd SubChkBold 按钮：Private Sub ChkBold_Click()　If ChkBold.Value = 1 Then　　TxtContent.FontBold = True　Else　　TxtContent.FontBold = FalseEnd SubChkItalic 按钮：Private Sub ChkItalic_Click()　If ChkItalic.Value = 1 Then　　TxtContent.FontItalic = True　Else　　TxtContent.FontItalic = FalseEnd SubChkUnderline 按钮：Private Sub ChkUnderline_Click()　If ChkUnderline.Value = 1 Then　　TxtContent.FontUnderline = True　Else　　TxtContent.FontUnderline = FalseEnd SubCmdQuit 按钮：Private Sub CmdQuit_Click()　EndEnd Sub五、分组控件（Frame）的学习：从前面学到的知识我们知道，单选按钮只能多选一，那么，下面这种分组选项的选择又该如何制作呢？如图二：图二在图二中，既可以选择性别，又可以选择年级，它们是通过选项框分组控件（Frame）得以实现的。简单地说，选项框控件是将不同的选项分类，在某一类里只能多选一，但多个类别的交叉使用，可以完成比较复杂的多项选择。不仅仅如此，我们还可以将单选按钮、多选按钮分组，不同组内的操作不会影响其他组的操作。如图三：图三分组控件的制作方法：先在窗体上绘制合适大小的框架，然后点选单选控件或多选控件，最后将鼠标移到框架内并拖拉出选项按钮。注意：请不要使用双击选择按钮控件然后将其拖动到分组框内的办法，否则，分组会失败。??文章录入：静夜思????责任编辑：静夜思??上一篇文章：?VB?神童教程第二章第五节——单选与复选控件?下一篇文章：?VB?神童教程第二章第七节——列表框控件?最新评论：?已有?97?位感兴趣的读者发表了看法BCCN网友?ip：113.91.76.*2012-12-7 17:44:46 发表浅显易懂！还需深入分析，总结，实践！BCCN网友?ip：182.111.186.*2012-9-22 15:48:44 发表VB小白500人超级群：200153276??欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级群：200153276??欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级群：200153276??欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程