第7章_用户界面设计

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