《VisualBasic程序设计教程(第三版)课件》由会员分享，可在线阅读，更多相关《VisualBasic程序设计教程(第三版)课件（39页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程序设计教程 (第三版),马占飞,2,第7章 用户界面设计,7.1 常用控件 7.2 通用对话框 7.3 菜单设计 7.4 多重窗体 7.5 鼠标和键盘 7.6 应用程序向导 7.7 综合应用,3,7.1 常用控件,7.1.1 单选按钮、复选框和框架 1.单选按钮(OptionButton ) 单选按钮以组的形式出现，允许选择一项。 重要属性 Caption属性 按钮上显示的文本 Value属性 表示单选按钮的状态： True 被选定 False 未被选定 重要事件 Click事件 单击后使Value属性为True,4,Value属性值为整型，表示复选框的状态： 0
2、vbUnchecked 未选定 1 vbChecked 被选定 2 vbGrayed 灰色，并显示一个选中标记。 重要事件 Click事件,2.复选框(CheckBox),例7.1通过单选按钮和复选框设置文本框的字体,5,3.框架 (Frame),具有容器功能 先建立框架，然后将各控件放置其中。 Caption属性 框架上的标题文本 框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程。,例7.2框架用法示例,6,7.1.2 滚动条和进度条,滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具。进度条(ProgressBar)用来指示事
3、务处理的进度。 滚动条有水平和垂直两种 进度条没有水平垂直之分,7,滚动条属性,Value 滑块当前位置的值(缺省为0) Min 滑块最小位置值(缺省为0) Max 滑块最大位置值 SmallChange 单击滚动条两端的箭头时，Value属性(滑块位置)改变值 LargeChange 单击滚动条的空白区域时，Value属性改变值,8,滚动条事件,Scroll 当拖动滑块时触发 Changed 改变Value属性时触发 例7.3计算018之间某个数阶乘，数据由滚动条获得。 Max属性为18，Min属性为0， Value初值为0， SmallChange属性为1，LargeChange属性为3
4、例7.4 设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。,9,ProgressBar控件,Max和Min 设置控件的界限 Value 控件执行阶段被填充的数目，直到等于Max属性值。控件显示的填充数是Value属性与Max和Min属性之间的比值 在对ProgressBar编程时，必须先确定Value属性上限。例如，下载文件，可将Max设置为文件长度。在该文件下载过程中，将Value属性设置为文件已经下载的字节数。 例7.5 用进度条来指示一个大数组的计算进度。,10,7.1.3 图形框和图像框,图形框PictureBox控件 作用:显示图片，也可作为其他控件的容器 在程序运
5、行时装入图形 ： 图形框.Picture = LoadPicture(图形文件名) 删除图形框中图形，可用LoadPicture() Autosize属性 True 图形框自动调整大小与图片匹配 False 图形超过图形框的部分将被剪裁掉,11,图像框Image,使用方法与图形框相同。图像框占用更少的内存，描绘得更快。图像框内不能存放其他控件 Stretch属性 False 图像框自动改变大小适应其中的图形 True 图形根据图像框的大小自动调整尺寸 例7.6 本例说明图像框的Stretch属性对加载的图形的影响。,12,7.1.4 定时器,定时器以一定的时间间隔产生Timer事件 属性 En
6、abled 为False时定时器不产生Tick事件 Interval 触发Timer事件的时间间隔(ms) 事件 定时器控件只有一个Timer事件 产生Timer事件条件Enabled=True; Interval0 例7.7设计一个倒计时应用程序 例7.8用一个定时器控制蝴蝶在窗体内的飞舞,13,7.2 通用对话框,VB提供了一组基于Windows的标准对话框。 利用通用对话框控件可在窗体上创建打开文 件、保存文件、颜色、字体、打印等对话框。,例7.9 通过打开文件对话框，选择一个BMP位图文件，在图形框中显示该图片。,通用对话框仅用于应用程序与用户之间进行信息交互，是输入输出的界面，不能真
7、正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。,14,通用对话框的基本属性和方法,(1) Action属性和Show方法 打开对话框,该属性只能在程序中赋值,15,通用对话框的基本属性和方法,(2) DialogTiltle属性 设置通用对话框标题 (3) CancelError属性 True：选择取消按钮，Err.Number设置为32755(cdCancel)。 False：选择取消按钮，没有错误警告。,16,7.2.1打开文件对话框,由 ShowOpen方法来实现 重要属性 : (1) FileName 文件名称，包含路径 (2) File
8、Title 文件名，不包含路径 (3) Filter 确定所显示文件的类型 例如：Text Files|*.txt|所有文件|*.*显示文本文件和所有文件 (4) FilterIndex文件列表中指定某类型文件 (5) InitDir 初始化路径,17,例7.10编写一个简单的文本文件编辑程序,18,7.2.2 保存文件对话框,由 ShowSave方法来实现 与打开文件对话框的属性基本相同，特有的属 性是DefaultExt属性，用于设置缺省的扩展名 。 例7.11为例7.10中的另存为命令按钮编写代码，保存文 本框内的信息。 Sub Command2_Click () CommonDialo
9、g1.ShowSave Open CommonDialog1.filename For Output As #1 Print #1, Text1.Text 保存文件 Close #1 关闭文件 End Sub,19,7.2.3 颜色对话框,由ShowColor方法打开颜色对话框 重要属性Color，它返回或设置选定的颜色 例7.12 为例7.10中的颜色命令按钮编写事件过程，设置文本框的前景色。 Sub Command3_Click () CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub,设置文件框前景颜
10、色,20,7.2.4 字体对话框,由ShowFont方法来实现,例7.13为例7.10中的字体按钮编写设置文本框字体的过程。,Font获取选择的字体 Color 选定的颜色,显示字体对话框前必须设置Flags属性，否则将发生不存在字体错误 。 通常设置为H103。,21,7.3 菜单设计,菜单有下拉式菜单和弹出菜单(上下文菜单)。下拉式菜单的组成结构：,22,7.3.1 菜单编辑器,分隔线: 在标题栏输入一个连字符“-” 标题热键：前面加&,23,菜单项除了Name、Visible、Enabled等属性 之外，还具有下列重要属性： (1) Text 菜单项上显示的标题文本 在字符前加一个&符号
11、构成热键。例如，输入“新建(&N)”，则菜单显示“新建(N)”，N为热键。 菜单项的分隔符，输入一个减号“-”。 (2) ShortCut 设置菜单项的快捷键。 (3) Checked 控制菜单项左边是否显示“” 菜单项的事件Click 为菜单项编写程序,例7.15将例7.10中的命令组织成菜单。,24,7.3.2 弹出菜单,独立于窗体菜单栏而显示在窗体内的浮动 菜单。显示位置取决于单击鼠标键时的位置。 设计过程与普通菜单相同。菜单弹出的方法： 对象.PopupMenu 菜单名, 标志, x, y 标志，表示弹出的位置和触发的键 Sub Text1_MouseDown() If Button
12、= 2 Then PopupMenu EditMenu End Sub 例7.16 为例7.15中的文本框配置弹出菜单,25,7.4 多重窗体,指一个应用程序中有多个并列的普通窗体，每个窗体有自己的界面和代码，完成不同的功能 1. 添加窗体 通过工程|添加窗体命令，每个窗体有独立的Frm文件，同一工程不能有相同名称的窗体 。 2. 设置启动对象 通过工程|属性指定启动对象(缺省为第一个创建的窗体)。,26,窗体语句,(1)Load语句 装入窗体到内存(不显示) Load 窗体名称 (2)Unload语句 从内存删除窗体 Unload 窗体名称 或 Unload Me (3)Show方法 显示窗
13、体 窗体名称.Show 模式 模式为0：关闭才能对其它窗体进行操作 模式为1 ：可以同时对其它窗体进行操作 (4) Hide方法 隐藏窗体 窗体名称. Hide,27,不同窗体数据的存取,(1)直接访问另一个窗体上的控件数据 另一个窗体名.控件名.属性 Text1 = Val(Form2.Text1) + Val(Form2.Text2) (2)访问另一个窗体中的全局变量 另一个窗体名.全局变量名 例7.17多重窗体应用:输入学生五门课程的成绩，计算总分及平均分并在不同窗体内显示。,28,7.5 鼠标和键盘,7.5.1 鼠标 鼠标事件 需要注意事件发生在哪一个对象上 Click、DblClic
14、k事件 MouseDown 按下任意一个鼠标按钮时被触发 MouseUp 释放任意一个鼠标按钮时被触发 MouseMove 移动鼠标时被触发,29,鼠标,鼠标事件过程中的参数e决定鼠标的当前状态。e.X、e.Y表示当前鼠标的位置；.Button指示按下或释放了哪个鼠标按钮，其值的意义如下表：,30,鼠标,例7.18 显示鼠标器指针所指的位置。 例7.19 设计一个最简单的画图程序。程序运行时，按住鼠标右键移动画圆，按住鼠标左键移动画线。,31,7.5.2 键盘,1. KeyPress事件 只对会产生ACSII码的按键有响应 ，参数e包含了与KeyPress事件相关的数据。 e.KeyChar
15、其值为所按键相应的ASCII码值。例如，键盘输入小写A，e.KeyChar的值为“a”。 e.Handled 表示本次按键是否被处理过。若它为真，则表示已经被处理过，否则，将传送给Windows进行常规处理。设置e.Handled为真，即可怱略本次按键。利用这个特性可以在某些控件中过滤掉不允许的字符。,32,键盘,2. KeyDown事件和KeyUp事件 当焦点在某个对象时，用户按下键盘上的任一键，便会引发该对象KeyDown事件，释放按键便触发KeyUp事件。 参数e包含了所按键信息(及Shift、Ctrl、Alt键的状态)。 e.KeyCode的值为操作的物理键。 例7.20编写一个程序，
16、按下Alt+F5组合键可终止程序的运行,33,7.6 应用程序向导,用来生成一个应用程序的界面。 选择文件|新建工程|VB应用程序向导命令：,34,选择菜单和子菜单项,35,选取工具栏按钮,36,7.7 综合应用,例7.22 设计一个选课程序。“大学计算机基础”是必选课程，一直处于选定状态。限选课程有两组：若选定“第一组”，则下面的两门课程立即处于选定状态；若选定“第二组”，则下面的三门课程处于可选状态，让学生选择，否则处于不可选状态。,37,综合应用,例7.22 利用时钟和图像控件，模拟自动红绿灯 分析：改变时钟的Interval属性来延迟不同颜色的灯。例如，红灯延迟2秒，则在切换到红灯后把Interval设置为2000，这样过2秒后发生Timer事件再切换到其它颜色的灯。 用变量i控制红绿灯的自动切换，它的值在02之间循环变化：i为0时显示红灯；i为1时显示黄灯；i为2时显示绿灯。,38,本章小节,常用控件 单选按钮、复选框、框架、列表框、组合框、滚动条、进度条、定时器 通用对话框 菜单 下拉式菜单 M
