第7章_用户界面设计.ppt

《第7章_用户界面设计.ppt》由会员分享，可在线阅读，更多相关《第7章_用户界面设计.ppt（48页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程序设计程序设计第第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属性为True2.复选框复选框(CheckBox)Value属性值为整型，表示复选框的状态：0vbUnchecked未选定1vbCh

2、ecked被选定2vbGrayed灰色，并显示一个选中标记。重要事件Click事件例7.1通过单选按钮和复选框设置文本框的字体3.框架框架(Frame)功能:具有容器功能,先建立框架，然后将各控件放置其中。Caption属性框架上的标题文本框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程。例7.2框架用法示例7.1.2滚动条和进度条滚动条和进度条 滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具。进度条(ProgressBar)用来指示事务处理的进度。滚动条和进度条均有水平和垂直两种滚动条属性滚动条属性Value滑块当前位置的值

3、(缺省为0)Min滑块最小位置值(缺省为0)Max滑块最大位置值SmallChange单击滚动条两端的箭头时，Value属性(滑块位置)改变值LargeChange单击滚动条的空白区域时，Value属性改变值滚动条事件滚动条事件Scroll当拖动滑块时触发Changed改变Value属性时触发例7.4设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。思考如何让滚动条滚动的过程,颜色改变?ProgressBar控件控件 进度条的添加工程|部件|Microsoftwindowscommoncontrols6.0再从工具栏添加进度条至窗体中。属性Orientation设置滚动条形状0

4、水平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

5、事件产生Timer事件条件Enabled=True;Interval0例7.7设计一个倒计时应用程序图形框PictureBox控件Picture属性:设置或返回在图像框中显示的图片，也可作为其他控件的容器在程序运行时装入图形修改图像框中图片的方法有两种:方法一:在属性窗口修改Picture属性方法二:LoadPictue函数对象.picture=LoadPicture(“图片的路径”)图形框PictureBox控件Autosize属性True图形框自动调整大小与图片匹配False图形超过图形框的部分将被剪裁掉图像框图像框Image 使用方法与图形框相同。图像框占用更少的内存，描绘得更快。图像框

6、内不能存放其他控件Stretch属性False图形不根据图像框的大小自动调整尺寸True图形根据图像框的大小自动调整尺寸例7.6本例说明图像框的Stretch属性对加载的图形的影响。7.2 通用对话框通用对话框 VB提供了一组基于Windows的标准对话框。利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。例7.9通过打开文件对话框，选择一个BMP位图文件，在图形框中显示该图片。对话框控件的添加对话框控件的添加在窗体中添加CommonDialog控件工程|部件|microsoftcommonDialogcontrol6.0通用对话框的基本属性和方法通用对话框的基本属

7、性和方法 Action属性和Show方法打开对话框ShowHelp6帮助对话框帮助对话框ShowPrinter5打印机对话框打印机对话框ShowFont4字体对话框字体对话框ShowColor3颜色对话框颜色对话框ShowSave2另存为对话框另存为对话框ShowOpen1打开文件对话框打开文件对话框Show方法方法Action属性属性通用对话框的类型通用对话框的类型注意注意:Action:Action该属性只能在程序中赋值该属性只能在程序中赋值通用对话框的基本属性和方法通用对话框的基本属性和方法DialogTiltle属性设置通用对话框标题注意:当显示“颜色”、“字体”或“打印”对话框时，C

8、ommonDialog控件忽略DialogTitle属性的设置CancelError属性True：选择取消按钮，Err.Number设置为32755(cdCancel)。False：选择取消按钮，没有错误警告(默认)。7.2.2打开文件对话框由ShowOpen方法来实现重要属性:FileName文件名称，包含路径FileTitle文件名，不包含路径Filter确定所显示文件的类型例如：commondialog1.filter=“TextFiles|*.txt|所有文件|*.*”显示文本文件和所有文件FilterIndex文件列表中指定某类型文件InitDir初始化路径实例实例例例7.10编写一

9、个简单的文本文件编辑程序编写一个简单的文本文件编辑程序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属性:常

10、量值说明cdlCFScreenFonts&H1使对话框只列出系统支持的屏幕字体cdlCFPrinterFonts&H2显示打印机支持的字体。cdlCFBoth&H3使对话框列出可用的打印机和屏幕字体cdlCFEffects&H100它指定对话框允许删除线，下划线，以及颜色效果。(需与其它常量用OR连接)7.2.5 字体对话框例7.13为例7.10中的字体按钮编写设置文本框字体的过程。打印对话框打印对话框主要属性Copies:打印份数FromPage:打印的起始页号ToPage:打印终止页号例7-14为例7-10中的打印命令编写事件过程,打印文本框中的数据.7.3 菜单设计菜单设计 菜单有下拉式

11、菜单和弹出菜单组成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,Bold

12、Command例例7.16 利用弹出菜单设置窗体背景色利用弹出菜单设置窗体背景色7.5 鼠标和键盘鼠标和键盘 7.5.1鼠标鼠标事件需要注意事件发生在哪一个对象上Click、DblClick事件MouseDown按下任意一个鼠标按钮时被触发MouseUp释放任意一个鼠标按钮时被触发MouseMove移动鼠标时被触发鼠标事件鼠标事件按下鼠标的事件过程为：Sub对象名_MouseDown(ButtonAsInteger,ShiftAsinteger,xAssingle,yAsSingle)EndSub松开鼠标的事件过程为：Sub对象名_MouseUp(ButtonAsInteger,ShiftAs

13、integer,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 显示鼠标器指针所指的位置。

14、显示鼠标器指针所指的位置。7.5.2 键盘键盘事件KeyPress事件:压下键盘上的某个键时发生KeyDown事件:按下键盘某个键时发生KeyUp事件:弹起键盘某个键时发生KeyPress事件事件KeyPress事件:压下键盘上的某个键时发生PrivateSub对象名_KeyPress(KeyAsciiAsInteger)EndSub说明:当按下某个键时,触发获得输入焦点的控件的KeyPress事件。KeyAscii为所按键的ASCII码KeyDown和和KeyUp事件事件格式:PrivateSub对象名_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndS

15、ubPrivateSub对象名_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多重窗体指一个应用程序中有多个并列的普通窗体

16、，每个窗体有自己的界面和代码，完成不同的功能1.添加窗体通过工程|添加窗体命令，每个窗体有独立的Frm文件，同一工程不能有相同名称的窗体。2.设置启动对象通过工程|属性指定启动对象(缺省为第一个创建的窗体)。窗体语句Load语句装入窗体到内存(不显示)Load窗体名称Unload语句从内存删除窗体Unload窗体名称或UnloadMeShow方法显示窗体窗体名称.Show模式模式为0：关闭才能对其它窗体进行操作模式为1：可以同时对其它窗体进行操作Hide方法隐藏窗体窗体名称.Hide不同窗体数据的存取直接访问另一个窗体上的控件数据另一个窗体名另一个窗体名.控件名控件名.属性属性Text1=Va

17、l(Form2.Text1)+Val(Form2.Text2)访问另一个窗体中的全局变量另一个窗体名另一个窗体名.全局变量名全局变量名例例7.17多重窗体应用多重窗体应用:输入学生五门课程的成输入学生五门课程的成绩，计算总分及平均分并在不同窗体内显绩，计算总分及平均分并在不同窗体内显示。示。工具栏工具栏在窗体中添加一个ToolBar控件工程|部件|microsoftwindowscommoncontrol6.0设置ToolBar控件属性，为其添加按钮添加一个ImageList控件，插入图片建立ToolBar控件与ImageList控件的联系编写工具栏程序代码Align属性的设置例子源代码状态栏

18、的设计状态栏的设计在窗体中添加statusbar控件工程|部件|microsoftwindowscommoncontrol6.0设置statusbar控件属性（插入窗格、设置样式、图片、关键字、斜面等）编写代码例子源代码7.6 应用程序向导用来生成一个应用程序的界面。选择文件|新建工程|VB应用程序向导命令：选择菜单和子菜单项选取工具栏按钮本章小节常用控件单选按钮、复选框、框架、列表框、组合框、滚动条、进度条、定时器通用对话框菜单下拉式菜单MainMenu弹出式菜单ContextMext两个窗体之间访问通过窗体对象实例.控件或模块级公共变量思考题1.有哪几种方法可以在列表框添加选项？有哪几种方

19、法可以在列表框添加选项？2如如果果要要一一个个定定时时器器每每半半分分钟钟产产生生一一个个Tick控控件件，则则InterVal属性应设置为多少？属性应设置为多少？3 3在在VB.NET中，使用什么方法访问网页？中，使用什么方法访问网页？4 4代代码码中中如如何何判判断断用用户户在在通通用用对对话话框框中中选选择择了了“取取消消”按钮？按钮？5创创建建弹弹出出菜菜单单需需要要什什么么控控件件？通通过过什什么么属属性性才才能能将将控件与弹出菜单建立关联？控件与弹出菜单建立关联？6 6什么是模式对话框？什么是非模式对话框？什么是模式对话框？什么是非模式对话框？7 7简述窗体之间数据互访如何才能实现？简述窗体之间数据互访如何才能实现？本章目录本章目录