第3-4讲用户界面设计1.pptVIP

第7章 用户界面设计 7.4 列表框(List Box)—属性、方法 7.5 组合框(Combo Box) 7.6 驱动器列表框、目录列表框和文件列表框 7.7 通用对话框（Common Dialog） 上机作业题： 7.8 菜单设计 7.10 鼠标/键盘的事件 7.11 对象拖放与OLE拖放 * OLE拖放 * 7.1 单选钮和检查框—属性、事件 Option Button—成组出现时，最多只能选择一项。 Check Box—根据需要选定其中的一项或多项。 7.2 框架(Frame)—属性 7.3 滚动条(HScroll Bar, VScroll Bar) —属性、事件 ? 如何输入数据并使滚动条内滑块相应移动。 ？如何使滚动条滑块在最下端和最右端代表最小值， 而在最上端和最左端代表最大值。 ? 如何控制点击滚动条箭头和空白处使滑块移动增量。 只能在程序中设置或引用的属性 ListIndex 其值为执行时选中的列表项序号。 ListCount 表示列表框中项目的数量，从0开始算。 Selected 是一个逻辑数组，元素对应列表框中相应的项，True表示选中。 Text 表示被选中列表项的文本内容。 方法 1： 对象. AddItem item[,index] ‘ item必须是字符串表达式 方法 2： 对象. RemoveItem index ‘ 删除index对应的项目 方法 3： 对象. Clear ‘ 清除列表框中所有内容 ？ 如何在选中下一个学生还未按显示藉贯钮时不显示上一人藉贯 ？ 如何在点中学生姓名后直接显示其藉贯 ？ 如何设置滚动条方向及列数 ？ 如何设置复选框风格 ？ 如何在运行时修改原项目(学生姓名) ？ 注意Array函数只能用于Variant数组赋值 组合框有三种不同的风格： * 下拉式组合框 (属性Style=0） * 简单组合框 （属性Style=1） * 下拉式列表框 (属性Style=2） 如何利用控件数组表示三种组合框的风格? 如何使简单组合框列出列表框? 如何表示被选中的项? 如何增加列表框中没有的项? DriveListBox DirectoryListBox FileListBox Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path Text2 = Dir1.Path End Sub Private Sub File1_Click() Text1 = File1.FileName End Sub 通用对话框可以在窗体上创建六种标准对话框： 打开（Open）、另存为（Save As）、颜色（Color ）、字体（Font）、 打印机（Printer）和帮助（Help） 添加非标准控件——通用对话框的方法 选 “工程” ?“部件”?“Microsoft Comm Dialog Control 6.0”?“确定” Action功能属性 0—None： 无对话框显示 1—Open： 打开文件对话框 2—Save As: 另存为对话框 3—Color： 颜色对话框 4—Font： 字体对话框 5—Printer： 打印机对话框 6—Help： 帮助对话框 通用对话框的方法 ShowOpen： 打开文件对话框 ShowSave: 另存为对话框 ShowColor： 颜色对话框 ShowFont： 字体对话框 ShowPrinter： 打印机对话框 ShowHelp： 帮助对话框 对象 . Action=1 表示打开文件对话框 对象 . ShowOpen 表示打开文件对话框 注意对话框有Flags属性，而字体对话框必须要设置此属性！ 按如下图示设计部分课程成绩统计与RGB三色调色板。 7.8.1 菜单的设计 方法： “工具”?“菜单编辑器”?逐一填写菜单项 7.8.2 弹出菜单 方法： [对象.] PopupMenu 菜单名，标志，x,y 标志为2时， 表示鼠标左右键都有响应 7.9 多重窗体 语句： Load 窗体名称 Unload 窗体名称 Load 把窗体装入内存，可引用窗体中