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

第7章用户界面设计7.1单选钮和检查框—属性、事件OptionButton—成组出现时，最多只能选择一项。CheckBox—根据需要选定其中的一项或多项。7.2框架(Frame)—属性7.3滚动条(HScrollBar,VScrollBar)

—属性、事件?如何输入数据并使滚动条内滑块相应移动。？如何使滚动条滑块在最下端和最右端代表最小值，

而在最上端和最左端代表最大值。?如何控制点击滚动条箭头和空白处使滑块移动增量。7.4列表框(ListBox)—属性、方法只能在程序中设置或引用的属性ListIndex

其值为执行时选中的列表项序号。ListCount

表示列表框中项目的数量，从0开始算。Selected

是一个逻辑数组，元素对应列表框中相应的项，True表示选中。Text

表示被选中列表项的文本内容。方法1：对象.AddItemitem[,index]‘item必须是字符串表达式方法2：对象.RemoveItemindex‘

删除index对应的项目方法3：对象.Clear‘清除列表框中所有内容？

如何在选中下一个学生还未按显示藉贯钮时不显示上一人藉贯？如何在点中学生姓名后直接显示其藉贯？如何设置滚动条方向及列数？如何设置复选框风格？如何在运行时修改原项目(学生姓名)？注意Array函数只能用于Variant数组赋值7.5组合框(ComboBox)组合框有三种不同的风格：*

下拉式组合框

(属性Style=0）*

简单组合框（属性Style=1）*

下拉式列表框

(属性Style=2）如何利用控件数组表示三种组合框的风格?

如何使简单组合框列出列表框?

如何表示被选中的项?

如何增加列表框中没有的项?7.6驱动器列表框、目录列表框和文件列表框DriveListBox

DirectoryListBox

FileListBoxPrivateSubDrive1_Change()

Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()

File1.Path=Dir1.PathText2=Dir1.PathEndSubPrivateSubFile1_Click()

Text1=File1.FileNameEndSub7.7通用对话框（CommonDialog）通用对话框可以在窗体上创建六种标准对话框：打开（Open）、另存为（SaveAs）、颜色（Color）、字体（Font）、打印机（Printer）和帮助（Help）添加非标准控件——通用对话框的方法选

“工程”

“部件”

“MicrosoftCommDialogControl6.0”

“确定”Action功能属性0—None：无对话框显示1—Open：打开文件对话框2—SaveAs:另存为对话框3—Color：颜色对话框4—Font：字体对话框5—Printer：打印机对话框6—Help：

帮助对话框通用对话框的方法ShowOpen：打开文件对话框ShowSave:另存为对话框ShowColor：颜色对话框ShowFont：字体对话框ShowPrinter：打印机对话框ShowHelp：

帮助对话框对象

.Action=1表示打开文件对话框对象.ShowOpen表示打开文件对话框注意对话框有Flags属性，而字体对话框必须要设置此属性！上机作业题：按如下图示设计部分课程成绩统计与RGB三色调色板。7.8菜单设计7.8.1菜单的设计方法：

“工具”

“菜单编辑器”逐一填写菜单项7.8.2弹出菜单方法：[对象.]PopupMenu

菜单名，标志，x,y标志为2时，表示鼠标左右键都有响应7.9多重窗体语句：Load

窗体名称

Unload

窗体名称Load

把窗体装入内存，可引用窗体中的控件及各种属性，但此时窗体并没显示出来。Unload

从内存中删除指定的窗体。方法：

[窗体名称].Show[窗体名称].HideShow

兼有装入和显示窗体两功能。Hide

将窗体暂时隐转藏起来，但并

非从内存中删除。7.10鼠标/键盘的事件*

鼠标器事件SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XasSingle,YAsSingle)*键盘事件

KeyPress,KeyUp,KeyDown

事件Button—1表示左键按下或释放，2表示右键按下或释放，3表示中键按下或释放。Shift——1表示Shift键按下，2表示Ctrl键按下,4表示Alt键按下。X,Y——对应鼠标当前位置。7.11对象拖放与OLE拖放1.拖放方式属性DragMode设置为1（自动）或2（手动）2.拖动图标属性可在设计时设置，也可在程序中使用如下形式设置： 控件名．DragIcon=图象（或图形）控件．Picture

控件名．DragIcon=LoadPicture(“C:\Icons\Mail.ico”)3.拖放事件

SubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

Source.MoveX,Y EndSub用鼠标器将对象从一个地方拖放到另一个地方再放下。*对象拖放*

OLE拖放将数据从一个控件或应用程序中移动到另一个控件或应用程序。OLEDragMode属性—决定是自动还是手动实现“拖”操作OLEDropMode属性—决定是自动还是手动实现“放”操作注：并不是所有的控件都有此二属性，有的只有其一。