1、Visual Basic程序设计,第7章 用户界面设计,7.1 常用控件 7.2 通用对话框 7.3 菜单设计 7.4 多重窗体 7.5 鼠标和键盘 7.6 应用程序向导 7.7 综合应用,7.1 常用控件,7.1.1 单选按钮、复选框和框架 1.单选按钮(OptionButton ) 单选按钮以组的形式出现，允许选择一项。 重要属性 Caption属性 按钮上显示的文本Value属性 表示单选按钮的状态：True 被选定False 未被选定 重要事件Click事件 单击后使Value属性为True,2.复选框(CheckBox),Value属性值为整型，表示复选框的状态： 0 vbUnche
2、cked 未选定1 vbChecked 被选定2 vbGrayed 灰色，并显示一个选中标记。 重要事件Click事件 例7.1通过单选按钮和复选框设置文本框的字体,3.框架 (Frame),功能:具有容器功能,先建立框架，然后将各控件放置其中。 Caption属性 框架上的标题文本 框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程。例7.2框架用法示例,7.1.2滚动条和进度条,滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具。进度条(ProgressBar)用来指示事务处理的进度。滚动条和进度条均有水平和垂直两种,滚动条属性
3、,Value 滑块当前位置的值(缺省为0) Min 滑块最小位置值(缺省为0) Max 滑块最大位置值 SmallChange 单击滚动条两端的箭头时，Value属性(滑块位置)改变值 LargeChange 单击滚动条的空白区域时，Value属性改变值,滚动条事件,Scroll 当拖动滑块时触发 Changed 改变Value属性时触发 例7.4 设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。思考如何让滚动条滚动的过程,颜色改变?,ProgressBar控件,进度条的添加 工程|部件|Microsoft windows common controls 6.0 再从工具栏添
4、加进度条至窗体中。 属性 Orientation 设置滚动条形状0 水平 1垂直,进度条属性,Max和Min 设置控件的界限 Value 控件执行阶段被填充的数目，直到等于Max属性值。控件显示的填充数是Value属性与Max和Min属性之间的比值 在对ProgressBar编程时，必须先确定Value属性上限。例如，下载文件，可将Max设置为文件长度。在该文件下载过程中，将Value属性设置为文件已经下载的字节数。 例7.5 用进度条来指示一个大数组的计算进度。,7.1.4 定时器,定时器以一定的时间间隔产生Timer事件 属性 Enabled 为False时定时器不产生Timer事件 In
5、terval 触发Timer事件的时间间隔(ms)事件 定时器控件只有一个Timer事件 产生Timer事件条件Enabled=True; Interval0 例7.7设计一个倒计时应用程序,图形框PictureBox控件,Picture属性:设置或返回在图像框中显示的图片，也可作为其他控件的容器在程序运行时装入图形 修改图像框中图片的方法有两种: 方法一:在属性窗口修改Picture属性 方法二:LoadPictue函数 对象.picture=LoadPicture(“图片的路径”),图形框PictureBox控件,Autosize属性True 图形框自动调整大小与图片匹配False 图形超
6、过图形框的部分将被剪裁掉,图像框Image,使用方法与图形框相同。图像框占用更少的内存，描绘得更快。图像框内不能存放其他控件 Stretch属性 False 图形不根据图像框的大小自动调整尺寸 True 图形根据图像框的大小自动调整尺寸 例7.6 本例说明图像框的Stretch属性对加载的图形的影响。,7.2 通用对话框,VB提供了一组基于Windows的标准对话框。利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。例7.9 通过打开文件对话框，选择一个BMP位图文件，在图形框中显示该图片。,对话框控件的添加,在窗体中添加CommonDialog控件 工程|部件|m
7、icrosoft common Dialog control6.0,通用对话框的基本属性和方法,Action属性和Show方法 打开对话框,注意:Action该属性只能在程序中赋值,通用对话框的基本属性和方法,DialogTiltle属性 设置通用对话框标题注意:当显示“颜色”、“字体”或“打印”对话框时，CommonDialog 控件忽略 DialogTitle 属性的设置CancelError属性 True：选择取消按钮，Err.Number设置为32755(cdCancel)。False：选择取消按钮，没有错误警告(默认)。,7.2.2打开文件对话框,由 ShowOpen方法来实现 重要
8、属性 : FileName 文件名称，包含路径 FileTitle 文件名，不包含路径 Filter 确定所显示文件的类型 例如：commondialog1.filter=“Text Files|*.txt|所有文件|*.*” 显示文本文件和所有文件 FilterIndex文件列表中指定某类型文件 InitDir 初始化路径,实例,例7.10编写一个简单的文本文件编辑程序,7.2.3 保存文件对话框,由 ShowSave方法来实现 与打开文件对话框的属性基本相同，特有的属性是DefaultExt属性，用于设置缺省的扩展名 。 例7.11为例7.10中的另存为命令按钮编写代码，保存文本框内的信息
9、。,7.2.4 颜色对话框,由ShowColor方法打开颜色对话框 重要属性Color，它返回或设置选定的颜色 例7.12 为例7.10中的颜色命令按钮编写事件过程，设置文本框的前景色。,7.2.5 字体对话框,由ShowFont方法来实现 主要属性 Font获取选择的字体(fontname fontsize等) Color 选定的颜色 Flags 属性:,7.2.5 字体对话框,例7.13为例7.10中的字体按钮编写设置文本框字体的过程。,打印对话框,主要属性 Copies:打印份数 FromPage:打印的起始页号 ToPage:打印终止页号例7-14 为例7-10中的打印命令编写事件过程
10、,打印文本框中的数据.,7.3 菜单设计,菜单有下拉式菜单和弹出菜单组成,7.3 菜单设计,Name、Visible、Enabled等 Text 菜单项上显示的标题文本 在字符前加一个&符号构成热键。例如，输入“新建(&N)”，则菜单显示“新建(N)”，N为热键。 菜单项的分隔符，输入一个减号“-”。 Checked 控制菜单项左边是否显示“” 菜单项的事件Click 为菜单项编写程序例7.15将例7.10中的命令组织成菜单。,7.3.2 弹出菜单,用菜单编辑器建立菜单。必须把菜单名（即主菜单项）的“可见”属性设置为False（子菜单项不要设置为False）。 用PopupMenu方法弹出显示
11、： 对象.PopupMenu 菜单名, Flags, X, Y, BoldCommand 例7.16 利用弹出菜单设置窗体背景色,7.5 鼠标和键盘,7.5.1 鼠标 鼠标事件 需要注意事件发生在哪一个对象上 Click、DblClick事件 MouseDown 按下任意一个鼠标按钮时被触发 MouseUp 释放任意一个鼠标按钮时被触发 MouseMove 移动鼠标时被触发,鼠标事件,按下鼠标的事件过程为：Sub 对象名_MouseDown (Button As Integer, Shift As integer,x As single,y As Single)End Sub 松开鼠标的事件过
12、程为：Sub 对象名_MouseUp(Button As Integer,Shift As integer,x As single,y As Single)End Sub,鼠标事件,移动鼠标光标的事件过程为： Sub 对象名_MouseMove(Button As Integer, Shift As integer,x As single,y As Single)End Sub,参数说明,Button 1:LEFT_BUTTON 2:RIGHT_BUTTON 4:MIDDLE_BUTTON （x,y）表示光标的当前位置 Shift参数的值表示Ctrl ,Alt,Shift三个按键的状态。（Sh
13、ift：001， Ctrl：010， Alt：100） 思考：Shift的值为111的情况？,鼠标,例7.18 显示鼠标器指针所指的位置。,7.5.2 键盘,键盘事件 KeyPress事件:压下键盘上的某个键时发生 KeyDown事件:按下键盘某个键时发生 KeyUp事件:弹起键盘某个键时发生,KeyPress事件,KeyPress事件:压下键盘上的某个键时发生 Private Sub 对象名_KeyPress(KeyAscii As Integer)End Sub说明:当按下某个键时,触发获得输入焦点的控件的KeyPress事件。KeyAscii为所按键的ASCII码,KeyDown和Key
14、Up事件,格式: Private Sub 对象名_KeyDown(KeyCode As Integer, Shift As Integer)End Sub Private Sub 对象名_KeyUp(KeyCode As Integer, Shift As Integer)End Sub 键盘事件激发顺序例,参数说明,大写字母和小写字母的KeyCode相同,为大写字母的ASCII码。 大键盘和小键盘上的KeyCode 不同 上档字符和下档字符的KeyCode为下档字符的ASCII码 Shift参数的值表示Ctrl ,Alt,Shift三个按键的状态。（Shift：001， Ctrl：010，
15、Alt：100） 思考：Shift的值为111的情况？,7.5.2 键盘,例7.20编写一个程序，按下Alt+F5组合键可终止程序的运行,7.4 多重窗体,指一个应用程序中有多个并列的普通窗体，每个窗体有自己的界面和代码，完成不同的功能 1. 添加窗体 通过工程|添加窗体命令，每个窗体有独立的Frm文件，同一工程不能有相同名称的窗体 。 2. 设置启动对象 通过工程|属性指定启动对象(缺省为第一个创建的窗体)。,窗体语句,Load语句 装入窗体到内存(不显示)Load 窗体名称 Unload语句 从内存删除窗体Unload 窗体名称 或 Unload Me Show方法 显示窗体窗体名称.Sh
16、ow 模式模式为0：关闭才能对其它窗体进行操作模式为1 ：可以同时对其它窗体进行操作Hide方法 隐藏窗体窗体名称. Hide,不同窗体数据的存取,直接访问另一个窗体上的控件数据另一个窗体名.控件名.属性Text1 = Val(Form2.Text1) + Val(Form2.Text2) 访问另一个窗体中的全局变量 另一个窗体名.全局变量名例7.17多重窗体应用:输入学生五门课程的成绩，计算总分及平均分并在不同窗体内显示。,工具栏,在窗体中添加一个ToolBar控件 工程|部件|microsoft windows common control6.0 设置ToolBar控件属性，为其添加按钮
17、添加一个ImageList控件，插入图片 建立ToolBar控件与ImageList控件的联系 编写工具栏程序代码 Align属性的设置,例子源代码,状态栏的设计,在窗体中添加statusbar控件 工程|部件|microsoft windows common control6.0 设置statusbar控件属性（插入窗格、设置样式、图片、关键字、斜面等） 编写代码,例子源代码,7.6 应用程序向导,用来生成一个应用程序的界面。 选择文件|新建工程|VB应用程序向导命令：,选择菜单和子菜单项,选取工具栏按钮,本章小节,常用控件 单选按钮、复选框、框架、列表框、组合框、滚动条、进度条、定时器 通用对话框 菜单 下拉式菜单 MainMenu 弹出式菜单 ContextMext 两个窗体之间访问通过窗体对象实例.控件 或模块级公共变量,思考题,1. 有哪几种方法可以在列表框添加选项？ 2如果要一个定时器每半分钟产生一个Tick控件，则InterVal属性应设置为多少？ 3在VB.NET中，使用什么方法访问网页？ 4代码中如何判断用户在通用对话框中选择了“取消”按钮？ 5创建弹出菜单需要什么控件？通过什么属性才能将控件与弹出菜单建立关联？ 6什么是模式对话框？什么是非模式对话框？ 7简述窗体之间数据互访如何才能实现？,本章目录,
