5VB基础控件篇.OPTION单选与CHECK复选控件

1、vb 基础控件篇 .option 单选与 check 复选控件vb 基础控件篇修正时间： 2011 年 8 月 15修正方 vb 梦工厂 : http:/ 视频教程地址： http:/ visual basic 中，单选与复选按钮控件主要作为选项提供给用户选择。不同的是，在一组选择按钮中，单选控件只能选择一个，其他单选控件自动变为未被选中状态；而在一组复选按钮中，可以选定任意数量的按钮。一、单选控件（ optionbutton）与复选控件（checkbox ）的主要属性：在 vb 操作界面中，单选控件与复选控件的图标如图一所示：图一以前讲到的大多数属性都适用于单选与复选控件，包括：captio

2、n、enabled、font（fontbold、fontitalic 、fontname，等等）、 name、height ，等等，此处不再赘述。value 属性是单选与复选控件最主要的属性，但单选与复选控件的value 值有些微的差别。单选控件 ：选中时， value 值为true ；未被选中， value 值为 false 。复选控件 ：选中时， value 值为1 ；未被选中， value 值为 0 ；禁止对该按钮进行选择，value 值为 2 。请大家注意，单选控件与复选控件的value 值是不同的，而这是初学者最容易混淆的。二、单选按钮与复选按钮的事件：这两种控件最主要的事件是cli

3、ck 单击事件，当选中时，value 值变为true 或者1 ，控件也自动变为选中状态。三、单选按钮程序举例：有如图二这样一个程序：图二文本框（ text1）显示预设的字样；单选按钮一（option1），单击此按钮可以将文本框里显示的字样改变成arial字体；单选按钮二（optmodern ），单击此按钮能将文本框里显示的字样改变成modern 字体。1、单选按钮一：private sub option1_click()text1.fontname = arialend sub2、单选按钮二：private sub option2_click()text1.fontname = moderne

4、nd sub四、复选按钮的判断过程：复选按钮的使用跟单选按钮相似，但由于一次可以选择多个复选按钮，所以复选按钮的选择比单选按钮多了一个判断过程。这个判断过程在vb 中可以用if then elseif endif 语句完成。ifthen elseifendif 是 vb中的块结构条件语句，主要用来针对不同的情况，让应用程序做出不同的反应。语句功能如下：if 假设情况一then假设情况一成立时执行的语句块一elseif 假设情况二then假设情况二成立时执行的语句块二elseif 假设情况三then假设情况三成立时执行的语句块三else所有条件都不成立时要执行的语句块end if上面的语句块含义

5、为：如果“ 情况一 ” 成立，则执行 “ 语句块一 ” ；否则如果 “ 情况二 ” 成立，则执行 “ 语句块二”；如果所有情况都不成立，则执行else 之后的语句块并最后跳出判断过程。例：假设输入学生成绩（score），如果分数小于60 ，标签（ label1）显示 “ 成绩不及格 ” ；如果分数大于90 ，标签显示 “ 成绩优秀 ” ；如果分数介于两者之间，标签显示“ 成绩优良 ” 。if score 90 thenlabel1.caption = 成绩优秀 elselabel1.caption = 成绩优良 end if有几点必须加以注意：（1）、在上面的语句块中，elseif 之间没有空

6、格，如果有空格即else if ，块结构则不成立。else if 这种形式只能在单行结构条件语句中成立，而不能在块结构条件中成立。（2）、执行语句块的程序代码不能紧跟then ，必须放到下一行中，这是块状结构的规定。（3）、在块结构判断语句中，elseif 子句的数量没有限制，可以根据需要加入任意多个elseif 子句。（4）、 elseif 与 else 都是可选的，最简单的判断语句块形式如下：if 条件then要执行的语句块end if如： if score 60 thenlabel1.caption = 成绩不及格 end if（5）、块结构语句必须以if 开始，以end if 结束。五

7、、复选按钮举例：上面我们学习了复选按钮的判断过程，现在进入实例学习。有如图三这样一个应用程序：图三文本框（ text1）显示预设的字样；复选按钮一（chkbold ）可以将文本框里面的字变为粗体；复选按钮二（chkitalic ）可以将文本框里面的字变为斜体；复选按钮三（chkunderline ）可以给文本框里面的文字加上下划线。复选按钮一：private sub check1_click()if check1.value = 1 thentext1.fontbold= trueelsetext1.fontbold= falseend ifend sub复选按钮二：private sub c

8、heck2_click()if check2.value = 1 thentext1.fontitalic= trueelsetext1.fontitalic= falseend ifend sub复选按钮三：private sub check3_click()if check3.value = 1 thentext1.fontunderline= trueelsetext1.fontunderline= falseend ifend sub联想：复选按钮是不是非得经过这种选择判断？能不能如单选按钮那样直接使用呢？这是许多初学者，包括笔者自己，曾经感到疑惑的地方。（虽然现在看来它们的区别是如此

9、之大）还是上面这个例子，假设复选按钮一不经过判断，而直接在点击事件中输入代码：private sub check1_click()text1.fontbold= trueend sub那么你会发现，复选按钮一经点击就不能取消字体加粗的效果了；而实际上，复选按钮一的功能是，点击一次即选中时，字体加粗；点击第二次即取消选择，字体不再加粗；以此类推。六：知识点：1、切记，单选按钮与复选按钮的value 值是不同的。单选按钮：选中时， value 值为true ；未被选中时，value 值为 false 。复选按钮：选中时， value 值为1 ；未被选中时， value 值为0 ；禁止选择， value 值为 2 。你可以试验一下，将复选