VB语言程序设计教程 教学课件 作者 杨忠宝 康顺哲 第06章 Visual Basic常用控件.ppt

《VB语言程序设计教程 教学课件 作者 杨忠宝 康顺哲 第06章 Visual Basic常用控件.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第6章VisualBasic常用控件工具箱6.1单选控件与复选控件在一组选择按钮中，单选控件只能选择一个，其它单选控件自动变为未被选中状态。而在一组复选按钮中，可以选定任意数量的按钮。注意单选控件与复选控件1.单选按钮的属性Value属性是单选按钮最主要的属性。单选控件选中时，Value值为True；未被选中，Value值为False。2.单选按钮的事件单选按钮最主要的事件是Click事件，当选中时，Value值变为True或者1，控件也自动变为选中状态，否则Value的值为False。6.1.1单选控件(OptionButton)【例6.1

2、】设计如下图所示的窗口，使文本框中的文本显示相应的字体。文本框(TxtContent)显示预设的字样；单选按钮一(OptArial)，单击此按钮可以将文本框里显示的字样改变成Arial字体；单选按钮二(OptModern)，单击此按钮能将文本框里显示的字样改变成Modern字体。代码：(1)单选按钮一：PrivateSubOptArial_Click()TxtContent.FontName="Arial"EndSub(2)单选按钮二：PrivateSubOptModern_Click()TxtContent.FontName="Moder

3、n"EndSub6.1.2复选控件(CheckBox)1.复选按钮的属性Value属性是复选控件最主要的属性，复选控件选中时，Value值为1；未被选中，Value值为0；禁止对该按钮进行选择，Value值为2。注意，单选控件与复选控件的Value值是不同的。2.复选控件的事件复选控件最主要的事件是Click事件，选中时，Value值为1；未被选中，Value值为0；禁止对该按钮进行选择，Value值为2。复选按钮的使用跟单选按钮相似，但由于一次可以选择多个复选按钮，所以复选按钮的选择比单选按钮多了一个判断过程。例如：假设输入学生成绩(Sc

4、ore)，如果分数小于60，标签(LblShow)显示“成绩不及格”；如果分数大于90，标签显示“成绩优秀”；如果分数介于两者之间，标签显示“成绩优良”。IfScore<60ThenLblShow.Caption="成绩不及格"ElseIfScore>90ThenLblShow.Caption="成绩优秀"ElseLblShow.Caption="成绩优良"EndIf有几点必须加以注意：(1)在上面的语句块中，ElseIf之间没有空格，如果有空格即ElseIf，块结构则不成立。ElseIf这种形式只能在单行结构条件语句中成立，而不能在块结

5、构条件中成立。(2)执行语句块的程序代码不能紧跟Then，必须放到下一行中，这是块状结构的规定。(3)在块结构判断语句中，ElseIf子句的数量没有限制，可以根据需要加入任意多个ElseIf子句。(4)ElseIf与Else都是可选的，最简单的判断语句块形式如下：If条件Then要执行的语句块EndIf(5)块结构语句必须以If开始，以EndIf结束。【例6.2】设计如下图的窗口。文本框(TxtContent)显示预设的字样；复选按钮一(ChkBold)可以将文本框里面的字变为粗体；复选按钮二(ChkItalic)可以将文本框里面的字变为斜体

6、；复选按钮三(ChkUnderline)可以给文本框里面的文字加上下划线。复选按钮一Click事件代码如下：PrivateSubChkBold_Click()IfChkBold.Value=1ThenTxtContent.FontBold=TrueElseTxtContent.FontBold=FalseEndIfEndSub复选按钮二Click事件代码如下：PrivateSubChkItalic_Click()IfChkItalic.Value=1ThenTxtContent.FontItalic=TrueElseTxtContent.F

7、ontItalic=FalseEndIfEndSub复选按钮三Click事件代码如下：：PrivateSubChkUnderline_Click()IfChkUnderline.Value=1ThenTxtContent.FontUnderline=TrueElseTxtContent.FontUnderline=FalseEndIfEndSub思考：复选按钮是不是非得经过这种选择判断？6.2列表框和组合框6.2.1列表框控件(ListBox)图标如图1、列表框控件的主要属性List(列表)属性ListCount属性ListIndex(索

8、引)属性Columns(列)属性MultiSelect(多重选择)属性Style(类型)属性Selected(选中)属性2.列表框控件的主要事件列表框控件主要接收C