Visual Basic程序设计 银红霞 第5章 常用控件程序设计

《Visual Basic程序设计 银红霞 第5章 常用控件程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章常用控件程序设计1本章主要内容单选按钮、复选框控件与框架控件列表框与组合框控件图片框与图像框控件定时器与滚动条控件(4～6学时)25.1单选按钮、复选框与框架控件3单选框和复选框这两种控件的区别：（1）单选按钮（OptionButton）：单选按钮必须成组出现，用户在一组单选按钮中必须选择一项，并且最多只能选择一项。用于多选一的情况。（2）复选框（CheckBox）：复选框可以单个出现，也可以成组出现，对于多个复选框，用户可以选定其中一项。5.1.1单选按钮和复选框41．单选框和复选框的属

2、性（1）基本属性单选按钮和复选框最常用的属性有Name、Enabled、Visible和Index等。（2）Caption属性设置单选按钮或复选框的文本注释内容。（3）Value属性表示单选按钮或复选框的状态。单选按钮True：被选定False：未被选定（默认值）。复选框0-Unchecked：复选框未被选定（默认值）。51-Checked：复选框被选定。2-Grayed：复选框变成灰色，禁止用户选择。（4）Style属性指定单选按钮或复选框的显示方式，用于改善视觉效果。0-Standard：标

3、准方式。1-Graphical：图形方式。（5）Index属性当建立控件数组（Name属性相同）时，系统给每个元素赋一个惟一的索引号（Index），即下标，下标值由Index属性指定。第1个元素下标是0，第2个元素下标是1，以此类推。62．事件和设计要点单选按钮和复选框都可以接收Click事件，但一般不需要编写Click事件过程。因为当用户单击单选按钮或复选框时，它们自动改变状态。从单选按钮的Value属性可以看出，使用单选按钮选择应该是一组互斥的方案，即适用于从若干种不同的方案中只能选择一种，

4、而且必须选择一种的情况。由于VisualBasic用控件的（Value）属性互斥保证了多分支结构的实现，因此程序设计者不必在程序代码中使用多分支结构，只需要编写各个分支需要执行的程序段就可以了。7例5-1用单选按钮和复选框在文本框中显示不同的字体。设计步骤：（1）添加控件：在窗体中添加1个文本框（Text1）2个命令按钮（Command1、Command2）3个单选按钮（Option1、Option、Option）3个复选框（Check1、Check2、Check3）控件。（2）通过属性窗口设置

5、各控件的属性。（3）编写程序代码。8单选按钮和复选框示例对象与控件标题(默认名称)(Caption)Form1单选按钮和复选框示例Command1输入文本Command2结束Option1宋体Option2黑体Option3楷体Check1加粗Check2倾斜Check3下划线属性设置9程序如下：PrivateSubForm_Load()Text1.Text=""'文本框置空Text1.FontSize=20'文本框字号为20Text1.Alignment=2'文本框中的内容居中EndSubPr

6、ivateSubCommand1_Click()Text1.Text=InputBox("输入文本框中文本内容",,"创建和谐社会")EndSubPrivateSubOption1_Click()Text1.FontName="宋体"EndSubPrivateSubOption2_Click()Text1.FontName="黑体"EndSub10PrivateSubOption3_Click()Text1.FontName="楷体_GB2312"EndSubPrivateSubCheck1_C

7、lick()Text1.FontBold=NotText1.FontBold‘每次单击都会改变属性值EndSubPrivateSubCheck2_Click()Text1.FontItalic=NotText1.FontItalicEndSubPrivateSubCheck3_Click()Text1.FontUnderline=NotText1.FontUnderlineEndSubPrivateSubCommand2_Click()EndEndSub111.控件数组的概念控件数组-----由

8、一组相同类型的控件组成,这些控件具有一个相同的名称和属性名。控件由控件数组的下标来区别,而下标由每个控件的唯一标识索引号(Index)来标识。2.控件数组的建立1．窗体上画出控件，进行属性设置，这是建立的第一个元素；在设计时建立控件数组的步骤：5.1.2控件数组122．选中该控件，进行“复制”操作若干次和“粘贴”操作若干次建立了所需个数的控件数组元素。例：PrivateSubCommand1_Click(IndexAsInteger)…IfIndex=3then…‘处理第四个命令按钮的操作End