VB单选钮与复选框列表框组合框多窗体与菜单
VB6教程第6章 常用控件与多窗体
退出
浙江蜗牛网络-VB论坛:/cto.asp
6.1 图片框与图像框 6.2 定时器 6.3 单选钮与复选框 6.4 容器与框架 6.5 列表框与组合框 6.6 滚动条 6.7 焦点与Tab顺序 6.8 多窗体
浙江蜗牛网络-VB论坛:/cto.asp
浙江蜗牛网络-VB论坛:/cto.asp 【例6.5】用复选框控制文本是否加下划线和斜体 6.5】 显示.在程序执行期间,如果选定"加下划线"复选 显示.在程序执行期间,如果选定"加下划线" 框,则文本框中的内容就加上了下划线,如果清除 则文本框中的内容就加上了下划线, "加下划线"复选框,则文本框中的内容就没有下划 加下划线"复选框, 线;如果选定"斜体"复选框,则文本框中的文字字 如果选定"斜体"复选框, 形就变成斜体,如果清除"斜体"复选框,则文本框 形就变成斜体,如果清除"斜体"复选框, 中的文字字形就不是斜体.运行界面如图6-7所示. 中的文字字形就不是斜体.运行界面如图6 所示.
浙江蜗牛网络-VB论坛:/cto.asp 2.AutoSize属性 AutoSize属性 该属性用于图片框. 该属性用于图片框.决定控件是否自动改变大小 以显示图像全部内容.缺省值为False, 以显示图像全部内容.缺省值为False,此时保持控件 大小不变,超出控件区域的内容被裁减掉; 大小不变,超出控件区域的内容被裁减掉;若值为 True时 自动改变控件大小以显示图片全部内容( True时,自动改变控件大小以显示图片全部内容(注 不是图形改变大小). 意:不是图形改变大小). 3.stretch 属性 用于图像框.当该属性的取值为False时,图像控 用于图像框.当该属性的取值为False时 件将自动改变大小以与图形的大小相适应; 件将自动改变大小以与图形的大小相适应;当其值为 True时 True时,显示在控件中的图像的大小将完全适合于控 件的大小,这时,图片可能会变形. 件的大小,这时,图片可能会变形.
VB第三章
工程属性窗口的打开： 选择“工程”|“工程n属性” 命令 工程资源管理器窗口中，选中 该工程，在右击弹出的快捷菜单 中选择“工程n属性”
17
[例 3-2]
设计一程序，包括两个窗体，在第一个窗体上添 加一标签框，内写“进入动物世界”。运行时单 击该窗体，显示第二窗体，窗体上有一动物图片， 如再单击窗体2，窗体1又会显示出来，如图。
8
窗体的常用属性
属 性 名称(Name) Caption BackColor ForeColor BordStyle ControlBox Enabled Height Width Left Top MaxBotton MinBotton Moveable 用 途 决定窗体的名称，供相关的程序中使用 决定窗体标题栏显示的文本 用于确定窗体的背景颜色 用于确定窗体的前景色 用于决定窗体的边框风格 用于确定窗体是否具有控制菜单 控制窗体是否对用户事件作出响应 设置窗体的高度尺寸 设置窗体的宽度尺寸 设置窗体距屏幕左边的距离 设置窗体距屏幕顶部的距离 控制窗体是否具有最大化按钮 控制窗体是否具有最小化按钮 决定程序运行时窗体是否能够移动
Index属性：设置按钮在控件数组中的编号。
TabIndex和TabStop属性: TabStop设置按Tab键时 是否能定位到该按钮,TabIndex设置定位顺序。
ToolTipText：设置提示文本。 Enable：是否允许使用 Visible:是否可见
22
3.2.2 常用事件和常用方法
2
VB工程包含多种类型的文件
其中最常用的文件是： 工程文件 包含与该工程有关的全部文件、 对象以及所设置的环境选项的信息， 扩展名.vbp 窗体文件 包含窗体及其控件有关属性的文本描述、常量或变量 的声明、以及窗体内的过程代码等，扩展名为.frm 若窗体中对象的数据含有二进制属性，保存该窗体时 将自动生成同名的二进制数据文件，扩展名为.frx 标准模块文件 通常用来定义供其他窗体或模块引用的全局常量、变 量、过程等，扩展名为.bas
vb第5章
件 Else
MsgBox "请先在列表中选择某字段", , "注意"
End If
End Sub
17
(2) 将右列表框中选择的字段移动到左列表框中。
Private Sub Command2_Click()
If List2.ListCount = 0 Then
第 五
MsgBox "列表中已没有可选的字段", , "注意"
Visual BASIC
第5章
常用控件
本章要点:
• 选项按钮、复选框
程
• 列表框、组合框
序 设
• 计时器、滚动条、框架
计
1
5.1 控件的公共属性
1. Name属性
(1) 运行时是只读的
第 (2) 缺省名称
五 章
(3) 以字母开始，最长40个字符，可包括字母、数字
和下划线，不能包括标点符号或空格(允许汉字)
常 End Sub
用 内
Private Sub Check3_Click()
部 Text1.FontStrikethru = Check3.Value
控 End Sub 件
Private Sub Check4_Click()
Text1.FontUnderline = Check4.Value
End Sub
第
五
章 List1
List2
常
用
内
部
控 件
将左列表框中选择的书名移动到右列表框中
将右列表框中选择的书名移动到左列表框中
将左列表框中的所有书名移动到右列表框中
将右列表框中的所有书名移动到左列表框中
vb6-常用控件
Check2 Option1 Option2
5.2 滚动条和Slider控件
Slider控件
n
Value Max
Min
Max SmallChange LargeChange
共同具有的重要属性: Max：最大值 -32 758~32 757 Min：最小值 -32 758~32 757 SmallChange 最小变动值，单击箭 头时移动的增量值。 LargeChange 最大变动值，单击空 白处时移动的增量值。 Value 滑块所处位置所代表的值。
文本框的换行输出: Private Sub Command1_Click() For i = 1 To 100 step 2 text1 =text1+format(str(i),”@@@”) Sum = Sum + i N=n+1 If n mod 5=0 then text1=text1+vbcrlf Next i Text2= Sum End Sub
If d = 0 Then X1 = p : X2 = p If d < 0 Then q = Sqr(-d) / (2 * a) p = CInt(p * 100) / 100 q= CInt(q * 100) / 100 X1 = p& "+" & q & "I " X2 = p & "-" & q & "I" endif Text4.Text = X1 Text5.Text = X2 endsub
滚动条的事件：
1.Scroll： 拖动滑块时会触发Scroll事件。 2.Change： Value属性改变时触发Change事件。 例1. 用一个文本框(txtSpeed)显示 滚动条(hsbSpeed)滑块当前位置所 代表的值。
vb实验七单选按钮、复选框、列表框和组合框实验报告
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：单选按钮、复选框、列表框和组合框 实验时间：班级： 姓名： 学号：一 实 验 目 的:1） 掌握单选按钮和复选框的使用。
2） 掌握列表框的使用。
3） 掌握组合框的使用。
4） 区别几种控件的使用场合。
二 实 验 环 境:Windows XPVisual 2003三 实 验 内 容 过 程 及 结 果 分 析:一 复选框与列表框、组合框联动1.创建界面创建一个工程，由一个窗体组成，界面如下图所示，选择任意一个爱好，将自动想listbox 和combobox中添加一个爱好。
选择一个样式表，将改变combobox 的dropdownstyle 属性。
设计界面2.设计各对象属性可以利用属性窗口给listbox 或combobox 的items 属性添加列表项，单击items 右边的按钮，将出现字符串集合编辑器，可以在其中预选定义列表项。
列表框和组合框的items属性设定界面3.设计各对象的事件代码设计checkbox的事件代码，使用户选择任意一个爱好时，向listbox和combobox中添加该爱好项，当用户不选择中某一爱好时，能移除该爱好。
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedIf CheckBox1.Checked ThenListBox1.Items.Add(CheckBox1.Text)ComboBox1.Items.Add(CheckBox1.Text)ElseListBox1.Items.Remove(CheckBox1.Text)ComboBox1.Items.Remove(CheckBox1.Text)End IfEnd SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CheckBox2.CheckedChangedIf CheckBox2.Checked ThenListBox1.Items.Add(CheckBox2.Text)ComboBox1.Items.Add(CheckBox2.Text)ElseListBox1.Items.Remove(CheckBox2.Text)ComboBox1.Items.Remove(CheckBox2.Text)End IfEnd SubPrivate Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CheckBox3.CheckedChangedIf CheckBox3.Checked ThenListBox1.Items.Add(CheckBox3.Text)ComboBox1.Items.Add(CheckBox3.Text)ElseListBox1.Items.Remove(CheckBox3.Text)ComboBox1.Items.Remove(CheckBox3.Text)End IfEnd SubPrivate Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChangedIf CheckBox4.Checked ThenListBox1.Items.Add(CheckBox4.Text)ComboBox1.Items.Add(CheckBox4.Text)ElseListBox1.Items.Remove(CheckBox4.Text)ComboBox1.Items.Remove(CheckBox4.Text)End IfEnd SubPrivate Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChangedIf CheckBox5.Checked ThenListBox1.Items.Add(CheckBox5.Text)ComboBox1.Items.Add(CheckBox5.Text)ElseListBox1.Items.Remove(CheckBox5.Text)ComboBox1.Items.Remove(CheckBox5.Text)End IfEnd SubPrivate Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChangedIf CheckBox6.Checked ThenListBox1.Items.Add(CheckBox6.Text)ComboBox1.Items.Add(CheckBox6.Text)ElseListBox1.Items.Remove(CheckBox6.Text)ComboBox1.Items.Remove(CheckBox6.Text)End IfEnd SubPrivate Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChangedIf CheckBox7.Checked ThenListBox1.Items.Add(CheckBox7.Text)ComboBox1.Items.Add(CheckBox7.Text)ElseListBox1.Items.Remove(CheckBox7.Text)ComboBox1.Items.Remove(CheckBox7.Text)End IfEnd Sub设计radiobutton的事件代码，使用户选择样式时，能改变combobox的dropdownstyle属性。
工程编程软件VB课件教程-单选按钮复选框和框架
特别说明：要使标题包含连字符但不创建快捷访问键，就 应使标题包含两个连字符（&&）。这样，标题中将显示一 个连字符（&），而且没有字符带下划线。
每个单选项的左边都有一个圆圈“○”，当某一项被选 定后，圆圈中出现一个黑点“⊙”，此时其它选项自动关 闭。通常单选项按钮都是成组出现的，为了把几个单选按钮 编成一组，可以把一组OptionButton放到具有容器性质的 控件中，如框架、图片框和窗体。
复选框的Value属性 复选框的Value属性用于设置复选框是否处于选中状态。 未选中时值为0 — vbUnChecked ，选中时， Value值为1 — vbChecked，此外还能使复选框变成灰色（Value值为2 — vbGrayed 。
特别注意：设置复选框的Value值为2 — vbGrayed，使 复选框变成灰色，仅造成复选框颜色的改变，不代表该复 选框不可用（这和将复选框的Enabled属性设置为False 使复选框变成灰色是不同的）。
10.1.1 创建单选按钮
1. 使用框架控件对单选按钮分组 当没有使用框架时，所有直接添加到窗体中的单选项总是 属于同一个组，用户只能选定其中的一个。在一些应用程序中 常常需要有多组选项，用户可在每组选项中作出一个选择。这 时，就需要使用到框架控件，用户可首先在窗体中设置几个框 架控件然后再将单选项控件放置在框架中，则处于同一框架中 的单选项属于同一组。 P118使用框架为单选项分组示例 使用框架对单选项的分组示例
Style
当Style属性值为1时，Picture属性用于设置选项按钮上显 示的图片 当Style属性值为1时，DownPicture属性用于设置选项按 DownPicture 钮被按下时（选中状态）显示的图片 DisabledPicture 当Style属性值为1时，DisablePicture属性用于设置选项无 效（Enabled属性值为False）时显示的图片 Picture Value 设置或返回单选项的状态，选中时为True
大学计算机vb课程 第五章 常用控件【精选】
0--Unchecked：未被选定
False：未选定 1--Checked：选定
2--Grayed：灰色，禁止选择
Style属性
0--Standard：标准方式
1--Graphical：图形方式
Picture属性
未选定时的图标或位图
DownPicture属性 选定时的图标或位图
DisabledPicture属性 禁止选择时的图标或位图
选中。
Sorted(D)：True：按字母顺序排列。False：按加入先后顺序排列。 Text(P) ：被选中列表项的内容，如：
List 1.List(List 1.ListIndex) = List1.Text MultiSelect：0-None：禁止多项选择；
1-Simple：简单多项选择； 2-Extended：扩展多项选择。
常用事件
5.1 单选钮和复选框
有Click事件，因为单击时自动改变状态，故不需要编写过程。
【例5-1】
用单选按钮和复选框制作如图 所示窗口。当用户选择了“所在学 院”和“学习课程”后，单击“确 定”，则选择结果显示在下面的文 本【框属中性。设置】
默认名
Name属性
其它属性及设置
Option1 Option2 Option3 Check1 Check2 Check3 Check4 Label1
择的项目列出来，不 组合框有三种类型，由其Style属性值决定，Style
能直接修改项目。 可为0、1或2。
0——默认值。下拉式组合框。
1——简单组合框。
2——下拉式列表框。
常用属性
5.3 列表框和组合框
说明：P——只可在程序中设置或引用，D——只可在设计状态设置 List (PD) ：字符型数组，存放列表框的项目，下标从0开始。 ListIndex(P)：选中项目的序号，无项目被选定时为-1。 ListCount(P)：项目的数量，ListCount-1是最后一项的下标。 Selected(P)：逻辑数组。Selected(i)的值为True表示第i+1项被
VB6.0第四章-控件,窗体
7
可视化程序设计——第四章 常用控件和窗体
4.4 列表框
7.Text属性（默认属性）
.List（.ListIndex）＝ .Text
8.MultiSelect属性
None：不允许多选。 Simple：简单多选。每次鼠标单击选中一项。 Extended：可扩展多选，与键盘上的某个键配合使用， 如：ctrl+鼠标。
属性：
Path Pattern Archive Normal System Hidden ReadOnly 设置目录或返回当前工作目录 设置要显示的文件类型 是否显示归档文件 是否显示普通文件 是否显示系统文件 是否显示隐含文件 是否显示只读文件 File1.Path=Dir1.Path File1.Pattern=“*.EXE ; *.DLL”
属性：Drive—设置驱动器或返回当前工作驱动器
可通过语句 Drive1.Drive=“C:\” 指定，或从列表中选择。
Drive属性只能在程序代码中设置、访问， 而不能在属性窗口中设置。
事件：Click、Change（列表框顶部的内容改变）
21
可视化程序设计——第四章 常用控件和窗体
DirListBox控件
4.6 驱动器、目录和文件列表框
三、文件列表框
Name 属性：fil [对象.]Path[＝Pathname] [对象.]Pattern[＝value] [对象.] FileName [＝pathname] Path和FileName
19
可视化程序设计——第四章 常用控件和窗体
DriveListBox控件
16
可视化程序设计——第四章 常用控件和窗体
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
内容
单选钮与复选框 列表框与组合框
单选按钮与复选框
单选按钮（OptionButton）
相关属性
属性 value
说明 True为选中；False为不被选中。
Caption 文本标题,设置单选钮的文本注释内容
常用事件：Click
用户单击单选钮时，它会自动改变状态。
单选按钮与复选框
Private Sub Option4_Click() Label1.FontSize = Option4.Caption End Sub
单选按钮与复选框
功能4：实现框架frame2中字型设 置功能。
Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontItalic = True If Check1.Value = 0 Then Label1.FontItalic = False End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontBold = True If Check2.Value = 0 Then Label1.FontBold = False End Sub
Frame控件 名称：frame1 Caption:字体 名称：frame2 Caption:字型 名称：frame3 Caption:字号
单选按钮与复选框
Option1， Option3的value 设置为true
使用范例-控件属性说明
控件类型
说明
OptionButton 名称：option1 Caption:宋体 frame1 名称：option2 Caption:隶书 名称：option3 Caption:16 名称：option4 Caption:24 frame3
语法格式： 〈对象名〉.AddItem item [, index] 其中：item: 为字符串表达式，
表示要加入的项目。 Index:决定新增项目的位置，缺省， 则添加在最后。
列表框与组合框
列表框（ListBox）
主要方法：
RemoveItem方法：用于从列表框控件 或组合框控件中删除一项。
单选按钮与复选框
功能1：运行程序时设置label文字 类型为宋体，16号字
Private Sub Form_Load() Label1.FontName = "宋体" Label1.FontSize = 16 End Sub
单选按钮与复选框
功能2：实现框架frame1中字体设 置功能。
Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub
list1.selected(2)=true
列表框与组合框
列表框（ListBox）
Private Sub Form_Load() Dim i As Integer Label1.Caption = "" List1.ListIndex = 2 For i = 0 To List1.ListCount - 1 Label1.Caption = Label1.Caption + List1.List(i) Next End Sub
列表框与组合框
列表框（ListBox）
主要属性：
text属性：用于存放被选中列表项的文本 内容。
Private Sub Command1_Click() Label1.Caption = List1.Text End Sub
列表框与组合框
列表框（ListBox）
主要方法：
AddItem：用于将项目添加到列表框控件
语法格式： 〈对象名〉. RemoveItem index
列表框与组合框
列表框（ListBox）
主要方法：
Clear方法 用于清除列表框控件或组合框控件中的所
例：List(0)表示第一项（Listindex=0)的 内容
ListIndex：为整型值，选中的项目的序号， 没有项目选中时为-1。
ListCount：为整型值，表示项目的数量， ListCount-1是最后一项的下标。
列表框与组合框
列表框（ListBox） List、ListCount和ListIndex属 性
列表框与组合框
列表框（ListBox）
控件将一系列的选项组合成一个列表， 用户可以选择其中的一个或几个选项
列表框有两种风格： 标准和复选列表框 Style=0 标准 Style=1 复选列表框
列表框与组合框
列表框（ListBox）
添加新项目
列表框与组合框
列表框（ListBox）
主要属性： List、ListCount和ListIndex属性 List： 字符型数组，存放列表框的项目数据， 下标是从0开始的。
复选框（CheckBox）
相关属性
属性 value
说明 0—未选中，1—已选中，2—变灰暗
Caption 文本标题,设置复选框的文本注释内容
练习
制作以下界面
单选按钮与复选框
使用范例-控件属性说明
控件类型
说明
Label控件 Caption:示范文字 Borderstyle: 1 名称：label1
Private Sub Option2_Click() Label1.FontName = Option2.Caption End Sub
单选按钮与复选框
功能3：实现框架frame3中字体大 小设置功能。
Private Sub Option3_Click() Label1.FontSize = Option3.Caption End Sub
CheckBox 名称：check1 Caption:斜体 名称：check2 Caption:粗体 frame2
单选按钮与复选框
功能1：运行程序时设Байду номын сангаасlabel文字 类型为宋体，16号字
在哪个事件加入代码？ Form_load事件
动态修改label的文字属性 Fontname:设置字体 Fontbold:true：粗体 false 正常 FontItalic: true：斜体 false 正常 Fontsize:设置字号