[工学]第7章 用户界面设计6学时理论+4学时上机.ppt

课堂编程 练一练 提高你的编程能力 编写程序 计算S 1 2 100 并输出计算结果编程 如果国民生产总值按年增长8 计算 多少年后产值会翻番 第7章用户界面设计 7 1常用控件7 2通用对话框7 3菜单设计7 4多重窗体7 5鼠标和键盘7 6应用程序向导7 7综合应用 代码设计界面设计 微笑 热情 有问必答 使用Label 使用Text 使用Button 第7章用户界面设计7 1常用控件 单选按钮练习 重要属性 Value属性 值为整型 表示复选框的状态0 vbUnchecked 未选定1 vbChecked 被选定2 vbGrayed 灰色 并显示一个选中标记重要事件 Click事件 2 复选框 CheckBox 例7 1通过单选按钮和复选框设置文本框的字体 Text1 Font Name IIf Option1 宋体 黑体 Text1 Font Bold IIf Check1 1 True False 复选框练习 Functionish n AsBooleanish TrueFori 1ToLen n 2IfMid n i 1 Mid n Len n 1 i 1 Thenish FalseExitFunctionEndIfNextiEndFunction 上机题解答 4 6 7 PrivateSubCommand1 Click Dimn n Text1Ifish n ThenPicture1 Printn ElsePicture1 PrintnEndIfEndSub Functionisws m AsBooleanFori 1Tom 2IfmModi 0Thens s iEndIfNextiIfm sThenisws TrueElseisws FalseEndIfEndFunction PrivateSubCommand1 Click Dimi Fori 1To1000Ifisws i ThenPrintiNextiEndSub 上机题解答 4 6 7 Subdelestr s1 s2 IfInStr s1 s2 0Thens1 Replace s1 s2 EndSubPrivateSubCommand1 Click Dims1 s2 s1 Text1s2 Text2Calldelestr s1 s2 Text3 s1EndSub 上机题解答 4 6 7 第7章用户界面设计7 1常用控件 7 1 1单选按钮 复选框和框架 复习 1 单选按钮 OptionButton Value属性 表示单选按钮的状态True 被选定False 未被选定 单选按钮练习 重要属性 Value属性 值为整型 表示复选框的状态0 vbUnchecked 未选定1 vbChecked 被选定2 vbGrayed 灰色 并显示一个选中标记重要事件 Click事件 2 复选框 CheckBox 例7 1通过单选按钮和复选框设置文本框的字体 Text1 Font Name IIf Option1 宋体 黑体 Text1 Font Bold IIf Check1 1 True False 复选框练习 补充7 1 1控件数组 1 控件数组的概念控件数组是由一组相同类型的控件组成 它们共用一个控件名 具有相同的属性 控件数组中的每个控件具有不同 唯一的 索引号 Index 索引号从0开始 2 建立控件数组VB中建立控件数组主要有两种方法 一种是在设计时建立 一种是在运行程序时添加 控件数组共享同样的事件过程 通过返回的下标值 Index 区分控件数组中的各个元素 控件数组练习 例1 建立含有4个单选按钮的控件数组 单击 计算 命令按钮 分别显示不同的 加 减 乘 除 运算操作 并将结果显示在label4中 Option1 0 Option1 1 Option1 3 Option1 2 例1控件数组 PrivateSubCommand1 Click a Val Text1 b Val Text2 Fori 0To3IfOption1 i TrueThenopt Option1 i CaptionEndIfNextiSelectCaseoptCase Res a bCase Res a bCase Res a bCase Res Format a b 0 00 EndSelectLabel4 ResEndSub PrivateSubOption1 Click IndexAsInteger a Val Text1 b Val Text2 SelectCaseIndexCase0Label4 a bCase1Label4 a bCase2Label4 a bCase3Label4 Format a b 0 00 EndSelectEndSub 3 框架 Frame 具有容器功能先建立框架 然后将各控件放置其中 Caption属性 框架上的标题文本框架可以响应Click和DoubleClick事件 但一般不需要编写事件过程 例7 2框架用法示例 框架练习 课堂编程 练一练 提高你的编程能力 统计1000以内能被3整除或能被8整除的数据个数 并计算它们的和 有一张厚0 5mm 面积足够大的纸 将它不断的对折 问对折多少次后 其厚度可达珠穆朗玛峰的高度 8848m 综合设计实验 窗体间链接的语句为 Form2 show菜单设计见要求 计算机技术基础 vb 综合实验要求 doc 小结 单选按钮 复选框和框架滚动条图形框和图像框定时器作业 实验G1 2 4 5书上例7 7和例7 8 7 1 2滚动条和进度条 滚动条 ScrollBar 通常附在窗体上协助观察数据或确定位置 也可作为数据输入工具进度条 ProgressBar 用来指示事务处理的进度都有水平和垂直两种 进度条的使用见后续课程 滚动条属性 Value滑块当前位置的值 缺省为0 Min滑块最小位置值 缺省为0 Max滑块最大位置值SmallChange单击滚动条两端的箭头时 Value属性 滑块位置 改变值LargeChange单击滚动条的空白区域时 Value属性改变值 滚动条练习 滚动条事件 Change改变Value属性时触发Scroll当拖动滑块时触发例7 3计算0 18之间某个数阶乘 数据由滚动条获得 设置 Max属性为18 Min属性为1 Value初值为1 SmallChange属性为1 LargeChange属性为3 综合设计实验 见要求 计算机技术基础 vb 综合实验要求 doc 综合实验报告格式 计算机技术基础 VB doc 订正过程书面作业 7 1 2滚动条和进度条 复习 滚动条 ScrollBar 通常附在窗体上协助观察数据或确定位置 也可作为数据输入工具进度条 ProgressBar 用来指示事务处理的进度都有水平和垂直两种 进度条的使用见后续课程 滚动条属性 Value滑块当前位置的值 缺省为0 Min滑块最小位置值 缺省为0 Max滑块最大位置值SmallChange单击滚动条两端的箭头时 Value属性 滑块位置 改变值LargeChange单击滚动条的空白区域时 Value属性改变值 滚动条练习 滚动条事件 Change改变Value属性时触发Scroll当拖动滑块时触发例7 3计算0 18之间某个数阶乘 数据由滚动条获得 设置 Max属性为18 Min属性为0 Value初值为0 SmallChange属性为1 LargeChange属性为3 PrivateSubHScroll1 Change DimiAsInteger nAsInteger sAsDoubles 1n HScroll1 ValueIfn0ThenFori 1Tons s iNextiEndIfLabel2 Caption n Label3 Caption sEndSub 例7 3 例7 4设计一个调色板应用程序 使用三个滚动条作为三种基本颜色的输入工具 DimRed Green BlueAsLongPrivateSubCommand1 Click Text1 BackColor Label1 BackColorEndSubPrivateSubCommand2 Click Text1 ForeColor Label1 BackColorEndSubPrivateSubHScroll1 Change Red HScroll1 ValueGreen HScroll2 ValueBlue HScroll3 ValueLabel1 BackColor RGB Red Green Blue EndSub 7 1 3图形框和图像框 1 图形框PictureBox控件作用 显示图片 也可作为其他控件的容器在程序运行时装入图形 图形框 Picture LoadPicture 图形文件名 删除图形框中图形 图形框 Picture LoadPicture Autosize属性True图形框自动调整大小与图片匹配False图形超过图形框的部分将被剪裁掉 Pictrue练习 2 图像框Image 图像框占用更少的内存 描绘得更快 图像框内不能存放其他控件 Stretch属性False图像框自动改变大小适应其中的图形True图形根据图像框的大小自动调整尺寸例7 6本例说明图像框的Stretch属性对加载的图形的影响 7 1 4定时器 定时器以一定的时间间隔产生Timer事件 属性Enabled为False时定时器不产生Timer事件Interval触发Timer事件的时间间隔 ms 事件定时器控件只有一个Timer事件产生Timer事件条件Enabled True Interval 0例7补每隔一秒显示一次 Hello 例7 7设计一个按秒倒计时应用程序例7 8用一个定时器控制蝴蝶在窗体内的飞舞 这次练习数组的编程 请大家不要翻书 自己独立完成 随机产生100 200 包括100和200 的10个正整数 求最大值 最小值 平均值 并输出全部数组的值和相应计算结果 将60 67 52 50 66 41 32这几个数有小到大排序 可以使用Array函数为数组赋值 7 3菜单设计 菜单有下拉式菜单和弹出菜单 上下文菜单 下拉式菜单的组成结构 7 3 1菜单编辑器 单击 标准 工具栏中按钮 打开 工具 菜单 选择 菜单编辑器 窗体上点右键 菜单和菜单下的菜单项也是控件 用来输入菜单名或命令名 Caption 1 分隔符 连接符 2 访问键 访问字母前加 顶层菜单的打开 ALT 对应字母菜单项选择 打开菜单后 按对应字母 用来输入代码中引用该菜单控件的名字 Name 为用户建立的控件数组设立下标 Index 快捷键 在运行时 按下对应的组合键 会立刻执行一个菜单命令 不用打开菜单 即单步操作 顶层菜单不能设置 Enabled属性 Visible属性 Checked属性 应用例题 菜单项的事件Click 为菜单项编写程序 7 3 3弹出菜单 弹出菜单 又称快捷菜单 是独立于菜单栏而显示在窗体上的 显示内容取决于按下鼠标时指针的位置 设计过程与普通菜单相同 菜单弹出的方法 对象 PopupMenu菜单名 标志 x y 标志 表示弹出的位置和触发的键 例7 16为例7 15中的文本框配置弹出菜单 弹出式菜单练习 位置常数值描述vbPopupMenuLeftAlign0 默认 指定位置为左边界vbPopupMenuCenterAlign4指定位置为中心vbPopupMenuRightAlign8指定位置为右边界行为常数值描述vbPopupMenuLeftButton0 默认 只能按左键触发vbPopupMenuRightButton2按左键和右键触发 标志Flags参数 注 如果从每组中各选一个常数 可用OR操作符连接 7 3 2弹出菜单 7 4多重窗体 指一个应用程序中有多个并列的普通窗体 每个窗体有自己的界面和代码 完成不同的功能 1 添加窗体 调出 添加窗体 对话框 工程 菜单 选 添加窗体 也可以使用工具栏上的 添加窗体 按钮 选择要添加的窗体 新建 选项卡 新建一个窗体 现存 选项卡 把一个其他工程的窗体添加到当前工程同一工程不能有相同名称的窗体 对添加进来的现存窗体进行修改 会影响到共享该窗体的所有工程 2 设置启动对象 缺省条件下的启动窗体 默认为第一个创建的窗体设置方法 工程 菜单 选 工程属性 选项 在弹出的对话框中 选择 启动对象 下拉列表中的窗体 1 Load语句装入窗体到内存 不显示 Load窗体名称 2 Unload语句从内存删除窗体Unload窗体名称或UnloadMe 3 Show方法显示窗体 窗体名称 Show 模式 模式为0 关闭才能对其它窗体进行操作模式为1 可以同时对其它窗体进行操作 默认 4 Hide方法隐藏窗体 窗体名称 Hide 3 窗体语句 例7 17多重窗体应用 输入学生五门课程的成绩 计算总分及平均分并在不同窗体内显示 4 不同窗体间数据的存取 存取控件中的属性前提 在当前窗体中存取另一个窗体中某个控件的属性格式 另一个窗体名 控件名 属性例如 Text1 Text Val Form2 Text1 Text Val Form2 Text2 Text 存取变量的值使用全局变量 添加工具栏方法 MicrosoftWindowsCommonControls6 0 将控件添加到工具箱 通过ToolBar ImageList组合使用建立工具栏 步骤 1 在ImageList控件中添加所需的图象2 在ToolBar控件中创建Button对象 3 在ButtonClick事件中用SelectCase语句对各按钮进行相应的编程 补充工具栏 1 为工具栏连接图象2 为工具栏增加按钮三 响应ToolBar控件事件编写ToolBar控件的事件ButtonClick事件 二 在ToolBar控件中添加按钮 创建工具栏步骤 一 在ImageList控件中添加图象ImageList控件不单独使用 专门为其它控件提供图像库 工具栏练习 1 用索引Index确定按钮 2 用关键字Key确定按钮 PrivateSubToolbar1 ButtonClick ByvalButtonAsMSComctlLib Button SelectCaseButton IndexCase1FileNewProcCase2FileOpenProc EndSelectEndSub注意 第1个按钮的Index值为1 用Index还是用Key比较 Key可读性好 可维护性好 SelectCaseButton KeyCase TNew FileNewProcCase TOpen FileOpenProc 7 2通用对话框 选讲 VB提供了一组基于Windows的标准对话框 例7 9通过打开文件对话框 选择一个BMP位图文件 在图形框中显示该图片 分别是 打开 Open 另存为 SaveAs 颜色 Color 字体 Font 打印 Printer 帮助 Help 添加ActiveX控件方法 在 部件 对话框中选择 MicrosoftCommonDialogControl6 0 选项 对话框类型方法Action属性打开文件 Open ShowOpen1文件另存为 SaveAs ShowSave2选择颜色 Color ShowColor3选择字体 Font ShowFont4打印 Print ShowPrinter5帮助 Help ShowHelp6 通用对话框的基本属性和方法 1 Action属性和Show方法 此属性只能在代码中设置 2 DialogTiltle属性设置通用对话框标题 3 CancelError属性True 选择取消按钮 出现错误提示信息 False 选择取消按钮 没有错误警告 例7 9 02 这两个属性要先设置 7 2 1打开文件对话框 重要属性 1 FileName文件名称 包含路径 2 FileTitle文件名 不包含路径 3 Filter确定所显示文件的类型例如 TextFiles txt 所有文件 显示文本文件和所有文件 4 FilterIndex文件列表中指定某类型文件 5 InitDir文件路径 显示 打开 对话框 CommonDialog ShowOpenCommonDialog Action 1 7 2 2保存文件对话框 2 特有属性DefaultExt属性 用于设置缺省的扩展名 例7 补1 1 显示 另存为 对话框CmDialog ShowSave或CmDialog Action 2 PrivateSubCommand1 Click CommonDialog1 DialogTitle 另存为 CommonDialog1 InitDir d CommonDialog1 Filter 全部 窗体 frm frm CommonDialog1 FilterIndex 2CommonDialog1 DefaultExt frm CommonDialog1 ShowSaveEndSub 7 2 3颜色对话框 例7 补2打开颜色对话框 设置文本框的前景色 Color设置颜色值 常数VBRed 或获取选定的颜色值Flags决定颜色对话框不同形式 1 2 4 等 显示 颜色 对话框 属性 Cmdialog1 ShowColor或 Cmdialog1 Action 3 Flags 4 Flags 1 Flags 2 7 2 4字体对话框 例7 补3打开字体对话框 设置文本框字体 属性Flags哪类字体Color颜色 显示字体对话框前必须设置Flags属性 否则将发生不存在字体错误 通常设置为H103 显示 字体 对话框Cmdialog1 ShowFont或 Cmdialog1 Action 4 FontName字体名称 如隶书 宋体 FontSize字体大小 如24 32 FontBold是否选粗体FontItalic是否选斜体FontUnderline FontStrikethru 小结 1 通用对话框的设置2 菜单设计3 多重窗体作业 实验G6 10书上例9 例15补充例1 例3 7 5鼠标和键盘 7 5 1鼠标鼠标事件需要注意事件发生在哪一个对象上Click DblClick事件MouseDown按下任意一个鼠标按钮时被触发MouseUp释放任意一个鼠标按钮时被触发MouseMove移动鼠标时被触发 鼠标 鼠标事件过程中的参数X Y表示当前鼠标的位置 参数Button指示按下或释放了哪个鼠标按钮 其值的意义如下表 鼠标 例7 18显示鼠标器指针所指的位置 例7 19设计一个最简单的画图程序 程序运行时 按住鼠标右键移动画圆 按住鼠标左键移动画线 7 5 2键盘 1 KeyPress事件只对会产生ACSII码的按键有响应 包括数字 大小写字母 Enter等 如 PrivateSubForm KeyPress KeyAsciiAsInteger EndSub其中由参数KeyAscii接收用户通过键盘输入的Ascii码字符 例如键入 A 时 KeyAscii的参数值是65 键盘 2 KeyDown事件和KeyUp事件当焦点在某个对象时 用户按下键盘上的任一键 便会引发该对象KeyDown事件 释放按键便触发KeyUp事件 参数包含了所按键信息 及Shift Ctrl