VisualBasic6.0可视化编程与实训课件作者于泽主编项目五VB常用控件.ppt

项目五 VB常用控件 学习目标 掌握框架和单选按钮的使用 掌握复选框的的使用 掌握下拉列表框和组合框的使用 掌握滚动条的使用 掌握计时器的使用 知识1 框架和单选按钮 控件功能：框架的主要作用是作为容器以放置其他控件对象。将控件对象分成相互独立的控件组。单选按钮由一个圆圈及其右边的文字组成，是一种表示状态的选项，通常以选项组的形式出现。对于一组单选按钮，只能选择其中之一 知识1 框架和单选按钮 控件属性： 【案例5.1】设置字体字号颜色 要求：设计如图窗体，单击不同的单选按钮，改变标签的字号、字体和颜色 【案例5.1】设置字体字号颜色 【案例5.1】设置字体字号颜色 部分程序代码 Private Sub Option1_Click() Label1.FontSize=12 End Sub Private Sub Option4_Click() Label1.FontName=”宋体” End Sub Private Sub Option7_Click() Label1.ForeColor=VBRed End Sub 【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。 【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。 【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。 代码 Private Sub Form_Click() If Option1.Value = True Then a = 飞机 Else a = 火车 End If If Option3.Value = True Then b = 广州 Else b = 昆明 End If Label1.Caption = 坐 + a + 去 + b End Sub 知识2 复选框 控件功能：复选框由一个矩形框及其右边的文字组成。当存在多个复选框时，每个复选框都是相互独立的，可以多选、单选，也可以一个都不选。 知识2 复选框 【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 代码： Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub 【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”； 【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”； 【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”； 部分程序代码： Private Sub Command1_Click() If Check1.Value = 1 Then a = 上网 End If If Check2.Value = 1 Then b = 读书 End If Text1.Text = 我喜欢 + a + b End Sub 知识3 列表框 控件功能：列表框控件提供一个选项列表，用户可以从中选择一项或多项。 知识3 列表框 知识3 列表框 知识3 列表框 事件： 1.Click：单击列表框时引发该事件。 2.DblClick：双击列表框时引发该事件。 知识3 列表框 方法： 1. 添加项目（AddItem） 格式：列表框名.AddItem? 项目字符串 功能：向列表框中添加项目，项目内容要用双引号引起来。 2．? 删除项目（RemoveItem） 格式：列表框名.RemoveItem? 索引值 功能：从指定列表框中删除指定的项目，索引值为要删除项目的序号即ListIndex的值。 3．? 删除所有选项（Clear） 格式：列表框名.Clear 功能：删除指定列表框中所有项目 【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。 【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。 【