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

《VB 神童教程第二章第六节——综合示例二.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB 神童教程第二章第六节——综合示例二作者：未知    阅读人次：51224    文章来源：未知    发布时间：2004-12-15    网友评论(97)条 在前面两节中，我们学习了命令按钮（CommandButton）、单选按钮（OptionButton）、复选按钮（CheckBox）的使用，本节将就前两节的知识做个总结。一、程序目的：通过选项按钮的选择，对所选文本进行定制。二、程序界面：程序界面如图一：  图一一个文本框（TxtContent），显示“LearningVisualBasic”字样；三个单选按钮：按钮一（OptArial）让文本

2、字体变为Arial类型；按钮二（OptModern）让文本字体变为Modern类型；按钮三（OptRoman）让文本字体变为TimesNewRoman类型；三个复选按钮：按钮一（ChkBold），让文本字体变为黑体；按钮二（ChkItalic），让文本字体变为斜体字；按钮三（ChkUnderline），给文本增加下划线。另外，还有一个退出按钮（CmdQuit），作用在于退出程序。三、属性设置：根据图一进行属性设置。四、书写程序：OptArial按钮：PrivateSubOptArial_Click()　　TxtContent.FontName="Aria

3、l"EndSubOptModern按钮：PrivateSubOptModern_Click()　　TxtContent.FontName="Modern"EndSubOptRoman按钮：PrivateSubOptRoman_Click()　　TxtContent.FontName="TimesNewRoman"EndSubChkBold按钮：PrivateSubChkBold_Click()　IfChkBold.Value=1Then　　TxtContent.FontBold=True　Else　　TxtContent.FontBold=FalseEn

4、dSubChkItalic按钮：PrivateSubChkItalic_Click()　IfChkItalic.Value=1Then　　TxtContent.FontItalic=True　Else　　TxtContent.FontItalic=FalseEndSubChkUnderline按钮：PrivateSubChkUnderline_Click()　IfChkUnderline.Value=1Then　　TxtContent.FontUnderline=True　Else　　TxtContent.FontUnderline=FalseEndSu

5、bCmdQuit按钮：PrivateSubCmdQuit_Click()　EndEndSub五、分组控件（Frame）的学习：从前面学到的知识我们知道，单选按钮只能多选一，那么，下面这种分组选项的选择又该如何制作呢？如图二：图二在图二中，既可以选择性别，又可以选择年级，它们是通过选项框分组控件（Frame）得以实现的。简单地说，选项框控件是将不同的选项分类，在某一类里只能多选一，但多个类别的交叉使用，可以完成比较复杂的多项选择。不仅仅如此，我们还可以将单选按钮、多选按钮分组，不同组内的操作不会影响其他组的操作。如图三：图三分组控件的制作方法：先在窗体上绘

6、制合适大小的框架，然后点选单选控件或多选控件，最后将鼠标移到框架内并拖拉出选项按钮。注意：请不要使用双击选择按钮控件然后将其拖动到分组框内的办法，否则，分组会失败。  文章录入：静夜思    责任编辑：静夜思 ·上一篇文章： VB 神童教程第二章第五节——单选与复选控件·下一篇文章： VB 神童教程第二章第七节——列表框控件 最新评论： 已有 97 位感兴趣的读者发表了看法BCCN网友 ip：113.91.76.*2012-12-717:44:46发表浅显易懂！还需深入分析，总结，实践！BCCN网友 ip：182.111.186.*2012-9-2215

7、:48:44发表VB小白500人超级群：200153276  欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级群：200153276  欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！VB小白500人超级群：200153276  欢迎您的加入！欢迎您来一起交流！有交流才会有进步！在群里对您不会有任何限制，我们最崇尚的就是自由，编程高手的最高境界是自由！BCCN网友 ip：60.55.8

8、.*2012-8-3019:18:38发表英语太烂了 学这个才ZTM吃力 每次都