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
可视化程序设计——第四章 常用控件和窗体
VB常用控件与窗体
4.4
VB中有三种对话框：
对话框
1、预定义的对话框：系统定义的。 用InputBox、MsgBox调用。
4.1 4.2 4.3 4.4 4.5 4.6 4.7 选择性控件 时钟 菜单设计 对话框 多重窗体 高级控件 鼠标器、键盘
4.1 选择性பைடு நூலகம்件
复选框(CheckBox) 单选钮(OptionButton) 列表框(ListBox)
一、单选钮和复选框
组合框(ComboBox)
1、属性： Caption属性：文本标题。 Alignment属性: 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性:
3、事件：Click、DblClick
一般不需要编写Click事件过程 通常在单击命令按钮或发生DblClick事件时才读取Text属性
例1 对列表框进行项目添 加、修改和删除操作。
例2 对列表框进行项目添 加操作,并去掉重复值。
四、组合框(ComboBox)：
组合框是组合了文本框和列表框的特性而形成的一种控件。 组合框在列表框中列出可供用户选择的选项，另外还有一个正文框。当用 户选定某项后，该项内容自动装入文本框中。当列表框中没有所需选项时，除 了下拉式列表框(Style为2)之外都允许在文本框中用键盘输入，但输入的内容不 能自动添加到列表框中。 组合框占用屏幕空间比列表框要小。 组合框有三种不同的风格，由Style属性值决定。
显示项目列表，用户可从中选择一个或多个项目。如果 有较多的选择项，超出所画的区域而不能一次全部显示时， VB会自动加上滚动条。通常在一个列表框中只能选择一项， 但当列表框的MultiSelect属性为1或2时允许多项选择。列表框 最主要的特点是只能从其中选择，而不能直接修改其中的内 容。 列表框各主要属性的值：
VB常用控件
窗体Form1装载事件对应的代码如下。 1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)_ 2 Handles MyBase.Load „ 显示窗体前发生的事件 3 Label1.Text = "请输入您的姓名：" „ Label1为标签控件，属性Text显示标签中的文本 4 Button1.Text = "确定" „ 显示按钮对应文本 5 End Sub 在Form2中“返回”按钮（Button1）单击事件对应的代码如下。 1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 2 Handles Button1.Click 3 Dim frm1 As New Form1 „ 此声明使frm1代表了第一个窗体 4 Me.Hide() „ 采用Hide()方法隐藏当前窗体，即第二个窗体 5 frm1.Show() „ 采用Show()方法显示第一个窗体，即返回到第一个窗体 6 End Sub
3.1 窗体和控件
窗体是程序的工作舞台，它是一个 容器，可在上面安放各种控件，从而形成 各种风格的应用程序界面。应用程 序界面（窗体）可以分为三种形式， Windows窗体、Web窗体、和控制台应用 程序。
1．Windows窗体 Windows窗体是用于创建Windows应用程序图形界面的 应用程序。 创建Windows窗体的方法如下: 依次单击“开始”→“程序”→ “Microsoft Visual Studio .NET 2003” →“Microsoft Visual Studio .NET 2003，”菜单命令，在打开的“起始页”窗口中单击 “新建项目 ”，打开“新建项目”窗口，如图1-2所示。 单击窗口左边的“Visual Basic项目”，从右侧的窗口中 单击“Windows应用程序”，在“名称”中输入自己想 要的程序名称，在“位置”中可以输入或从“浏览”找 到要保存的位置，单击“确定”按钮，就可以进入 Windows应用程序设计窗口。如图3-1所示。
VB6.0基础教程 之 第6章 Visual Basic常用标准控件
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
Basic常用标准控件 Visual Basic常用标准控件
概述 图形控件 单选按钮和复焦点与Tab Tab顺序 焦点与Tab顺序
1
6.2 图形控件
图片框(PictureBox)和图像框(Image) 功能：用于显示图形 Picture属性:设置图片框或图像框中要显示的图像文件名。可以在设计阶段设置 或在程序中设置。 LoadPicture函数一般格式： [对象.]Picture= LoadPicture(“文件名”)
复选框
2．复选框(CheckBox) Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 0--Unchecked：未被选定 1--Checked：选定 2--Grayed：灰色，禁止选择 Style属性 0--Standard：标准方式 1--Graphical：图形方式 事件 Click
6.4 框架
用途：将窗体中的控件按功能或类别分组。
框架
6.4 框架
Caption属性：框架标题 Enabled属性 False，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 事件 Click、DblClick 一般不需要编写框架的事件过程。
例如：Dir1.Path=“C:\Mydir” 重要事件——Change事件 在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触 发其Change事件。
文件列表框(FileListBox)
功能：显示当前目录中指定类型的所有文件。 Path属性：用于返回和设置当前目录。 要从文件列表框（File1）中获得全路径的文件名Fname，用下面的程序代码： If Right(file1.path,1) ="\" Else Fname=file1.path &"\"& file1.filename End If Then Fname=file1.path & file1.filename
vb第四章 常用控件
第四章常用控件一、教学内容本章讨论Visual Basic中最常见的一些控件，如清单类控件，单选框和复选按钮，列表框、组合框，图像类控件，如图片框和图像框、计时器、滚动条等。
二、目的要求1．熟悉复选框、单选框，学会使用复选框单选框编写程序；2．熟悉图片框、图像框的使用方法；3．熟悉列表框、组合框；4．计时器、滚动条。
三、教学重点与难点教学重点：单选框、复选框、列表框。
教学难点：组合框。
四、教学方法多媒体教学为主。
适当提问，加深学生对概念的理解。
本章12课时。
第一讲单选框和复选框（2学时）一、教学内容单选框和复选框。
二、目的要求熟悉单选框、复选框的常见属性、方法和事件。
三、教学重点与难点教学重点：单选框、复选框的属性、方法、事件。
教学难点：事件。
四、教学方法多媒体教学。
五、教学过程4．1 清单类按控件4.1.1 单选框和复选框单选框：顾名思义，就是几个单选框只能选取一个。
如果需要多选，应该将单选框分组进行，此时要用到Frame框架；复选框：可以用于多选多。
多个选项之间互不影响。
单选框和复选框如图4-1。
图4-1 左边是单选框，右边是复选框1．单选框单选框常见的属性：Caption:单选框的标题；Name：单选框的名称；Value:单选框被选中的时候Value值为True，不被选中的时候Value值为False。
是单选框最重要的属性；Enabled：单选框是否有效，值为True时表示单选框有效，值为False表示单选框无效；BackColor和ForeColor：标题的背景颜色和前景颜色；单选框的事件：Click：只要单选框的Value值从False 变为True就发生Click事件。
2．复选框最常见的属性：Name属性、Caption属性、ForeColor属性、BackColor属性、Visible属性、Enabled 属性等与单选框类似。
Value：属性值为1时表示选定了复选框，此时，复选框中有勾，值为0时，表示未选中复选框，此时复选框中没有勾。
vb第16单选按钮、复选框控件
标准控件二 21、掌握单选按钮控件的设置与使用2、掌握复选框控件的设置与使用单选按钮控件的设置与使用、复选框控件的设置与使用单选按钮控件、复选框控件的属性设置与代码编写10 10 18复习评讲作业。
新课标准控件二一、选择控件—单选按钮复选框和单选按钮的属性和事件Value属性Alignment属性Style属性应用举例例：使用单选按钮使文本框中的字体改变大小。
Text1.FontSize = 14End SubPrivate Sub Option2_Click()Text1.FontSize = 18End Sub练习1：请用单选按钮使文本框中的字体改变颜色。
练习2：使用单选按钮控制窗口大小怎样编写代码。
想在窗体中加载图片怎样编写代码，想使图片随窗口大小变化怎么办(提示：可以使用图像框)。
Private Sub Option1_Click()Form1.WindowState = 0Form1.Top = 100Form1.Left = 100Form1.Height = 7000 '产生窗口的随机大小时用Rnd * 7000 Form1.Width = 10000Image1.Top = 0Image1.Left = 0Image1.Height = Form1.HeightImage1.Width = Form1.WidthImage1.Stretch = TrueImage1.Picture = LoadPicture("d:\hua.jpg")End SubPrivate Sub Option2_Click()Form1.WindowState = 2Image1.Top = 0Image1.Left = 0Image1.Height = Form1.HeightImage1.Width = Form1.WidthForm1.Picture =LoadPicture("d:\hua.jpg")End Sub二、选择控件—复选框例：使用复选框显示文本框中的字体分别为下划线、倾斜、粗体Private Sub Check1_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Check2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Check3_Click()Text1.FontBold = TrueEnd Sub该例在运行时复选框取消时有何表现？问：复选框取消时如何设置代码，使其没有下划线等效果？Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd If练习1：使用复选框列出休闲项目，运行时把选择的项目用msgbox 显示出来。
VB常用控件介绍
VB常用控件介绍VB 常用控件介绍VB中的控件通常分为三种类型：（1）标准控件：（2）ActiveX控件:（3）可插入的对象:（一）窗体1.窗体的属性（1）Name 属性：（2）Appearance属性（3）AutoRedraw属性：（4）BackColor属性和ForeColor属性（5）BorderStyle属性：（6）Caption属性（7）ClipControls属性（8）ControlBox属性：控制菜单（9）Enabled属性（10）Height、Width、Left和Top属性（11）Font属性（12）HelpContextID属性（13）Icon属性：设置窗体图标（14）KeyPreview属性：用于设置窗体是否能捕获键盘事件并做出响应。
（15）MDIChild属性（16）Moveable属性（17）Picture属性（18）StartupPosition属性：决定窗体启动后出现在屏幕上的位置，运行时不能使用。
（19）Visible属性（20）WindowState属性：该属性设置一个窗体启动后的大小状态。
2.窗体的事件（1）Load 事件(重点)（2）Activate事件（3）Resize事件（4）Click事件（5）DblClick事件（6）Unload 事件：当窗体从内存卸载时发生[参数]：Cancel 一个整数，表示是否放弃卸载。
如果Cancel为 0，则窗体被卸载，若设置为任何一个非零的值可放弃卸载。
如：Private Sub Form_Unload(Cancel As Integer)Cancel = True ‘非0End Sub3.窗体的方法（1）Show方法（2）Hide方法（3）Move方法（4）Print方法：在窗体和图片框上显示文字，也可在打印机(Printer)上输出信息。
语法格式：[<对象名称>.]Print [<表达式列表>] [{,|;}]说明：①<对象名称>可以是窗体、图片框或打印机。
VB常用控件
3、 Gfotocus/LostFocus事件
对象的焦点只有一个，一个对象得到焦点也就意味着其他对象
要失去焦点。按Tab键或单击对象时，会引起焦点的移动。 对象得到焦点时将引发GotFocus事件，而对象失去焦点时将引发
LostFocus事件。
4、ValiDate 事件 几乎所有的控件都具有ValiDate事件，ValiDate事件是在控件 的焦点转移到其他控间之前发生，也即它是在控件失去焦点之前发 生的，而LostFocus事件是在控件失去焦点之后发生的。因此， ValiDate事件更适合数据输入验证。 ValiDate事件应与控件的CausesValidation属性联合使用才能发挥作 用。
图像框（ImageBox） 图像框只能用于显示图形，没有图片框所拥有的其他功能， 因此，图像框比图片框显示速度快，占用内存少。 属性 （1）Picture属性 和图像框的Picture属性相同 （2）Stretch属性 指定是否缩放图形来适应控件大小，属性值为True或False。 True：缩放图形来适应控件大小。此值可能会使显示的图 形变形 失真。 False：缩放控件来适应图形的大小，此值为缺省值。
4.4 列表框和组合框
列表框（ListBox）通过显示多个选项，供用户选择。其最主要的 特点是只能从其中选择，而不能直接修改其中的内容。 组合框（ComboBox）是组合了文本框和列表框的特性而形成的一 种控件。组合框在列表框中列出可供用户选择的选项，当用户选定某项 后，该项内容自动装入文本框中。当列表框中没有所需选项时，除了下 拉式列表框（Style属性为2）之外都允许在文本框中用键盘输入，但输 人的内容不能自动添加到列表框中。有三种不同风格的组合框：下拉式 组合框、简单组合框和下拉式列表框，它们的Style属性分别为0、1和2。 一、列表框和组合框共有的重要属性 1. List 属性 该属性是一个字符型数组，存放列表框或组合框的选项。List数组 的下标是从0开始的，即第一个项目的下标是0。List属性既可以在设计 状态设置，也可以在程序中设置或引用。
VB单选钮和复选框列表框组合框多窗体和菜单
多窗体程序设计
在一种工程中添加新窗体旳措施
1、选择窗体
多窗体程序设计
多窗体设计范例：按下图设计外观
1、设置标题： 2、设置背景： 3、设置borderstyle为1 4、设置窗体显示位置为 屏幕中心： startupposition:设置为2 5、设置controlbox为false
多窗体程序设计
Label4.FontItalic = False Case 2: LabeΒιβλιοθήκη 4.FontBold = False
Label4.FontItalic = True Case 3: Label4.FontBold = True
Label4.FontItalic = True End Select End Sub
Private Sub Option3_Click() Label1.FontSize = Option3.Caption End Sub
Private Sub Option4_Click() Label1.FontSize = Option4.Caption End Sub
单项选择按钮与复选框
功能4：实现框架frame2中字型设 置功能。
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
Vb 常用标准控件
【范例4-11】兴趣爱好选取窗体。
操作步骤如下： 1、在窗体上新建2个标签、2个列表框、4个命令按钮，调整它们的位 置及大小，并按表4-15设置属性
2、编写代码如下： Private Sub Command1_Click() If List1.ListIndex <> -1 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub
可响应的事件与窗体基本相同。
主要属性：
◦ ◦ ◦ ◦ ◦ ◦ ◦ Shape BorderColor BorderStyle BorderWidth BackStyle FillColor FillStyle
10
用户用鼠标单击命令按钮，将执行一条命令，但具 体的动作则由相应的事件过程的程序代码决定。 (1)属性 Caption Cancel(取消属性）：“True”时按[ESC]键等同于单击 该按钮，一般“取消”按钮的cancel设置为“True”. Default(缺省属性）：当此属性为“True”时，此按钮 被设为焦点，按回车键等同于按此按钮。一般将“确定” 按钮的Default属性设为“True”。 Enabled Style Picture等 （2）事件： 最基本也是最重要的事件：单击Click
【范例4-11】兴趣爱好选取窗体。
Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next List1.Clear End Sub Private Sub Command3_Click() If List2.ListIndex <> -1 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End If End Sub
VB窗体1-2
单选按钮与复选框
复选框（ 复选框（CheckBox） ）
相关属性
属 性 value Caption 说 明 0—未选中，1—已选中 2—变灰暗 0—未选中，1—已选中，2—变灰暗 已选中， 未选中 文本标题,设置复选框的文本注释内容 文本标题 设置复选框的文本注释内容
单选按钮与复选框
范例-制作以下界面 范例 制作以下界面
Caption:字体 字体 Caption:字型 字型 Caption:字号 字号
单选按钮与复选框
范例-控件属性说明 范例 控件属性说明
控件类型 OptionButton 名称： 名称：option1 名称： 名称：option2 名称： 名称：option3 名称： 名称：option4 名称： 名称：check1 名称： 名称：check2 说 明
Option1， Option1， Option3的 Option3的value 设置为true 设置为true
Caption:宋体 Caption:宋体 Caption:隶书 隶书 Caption:16 Caption:24 Caption:斜体 斜体 Caption:粗体 粗体
frame1 frame3 frame2
窗体常用的方法
窗体方法： 打印输出Print 移动Move 清除Cls Print、 Move、 Cls、 窗体方法 ： 打印输出 Print 、 移动 Move 、 清除 Cls 、 显示Show 隐藏Hide Hide。 显示Show 、隐藏Hide。
使用的形式: 对象. 使用的形式: [对象.]方法 1.Cls方法 1.Cls方法 形式:[对象.]Cls 形式:[对象.]Cls :[对象 2.Print方法：作用: 2.Print方法：作用: 在对象上输出信息 方法 形式:[对象.]Print[{Spc(n)|Tab(n)}][表达式][;|,] :[对象.]Print[{Spc(n)|Tab(n)}][表达式 形式:[对象.]Print[{Spc(n)|Tab(n)}][表达式][;|,] 3.Move方法 3.Move方法 形式:[对象.]Move 左边距离[,上边距离[,宽度[,高度]]] [,上边距离[,宽度[,高度 形式:[对象.]Move 左边距离[,上边距离[,宽度[,高度]]] :[对象
- 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:设置字号