第3章应用程序窗体设计

1、第3章目录第3章 应用程序窗体设计 任务1 在窗体指定位置显示文本 任务2 保持窗体上的标签文本居中 任务3 制作键盘按键程序测试 任务4 制作简单绘图程序 任务5 创建输入框和消息框 任务6 创建标准对话框 任务7 创建多文档界面应用程序 115第3章目录任务1 在窗体指定位置显示文本【知识点】窗体的常用属性窗体的常用方法窗体的Load事件和Click事件【任务描述】在本任务中创建一个应用程序，在程序执行时窗体背景色被设置成白色，字体设置为“楷体”，字体大小设置为20。每单击一次窗体，将在窗体的不同位置上以不同颜色显示文字信息“欢迎使用Visual Basic 6.0”，如图3-1所示。 【

2、任务分析】在Visual Basic中，每种颜色都是由一个Long整数表示。在本任务中，利用随机函数产生0至255之间的三个整数并为RGB函数赋值，实现文字颜色随机变换的结果。对文字显示位置的控制，可以通过窗体的CurrentX、CurrentY属性实现。215第3章目录任务1 在窗体指定位置显示文本【知识链接】1. 窗体的常用属性（1）Caption。（2）BackColor。（3）ForeColor。（4）FontName。（5）FontSize。（6）CurrentX、CurrentY。2. 窗体的常用方法（1）Print。（2）Cls。3. 窗体的常用事件（1）Click。（2）Loa

3、d。215第3章目录任务2 保持窗体上的标签文本居中【知识点】窗体的ScaleHeight和ScaleWidth属性窗体的Resize事件窗体的UnLoad事件【任务描述】本任务利用响应窗体Resize事件来改变标签控件Label的顶点坐标和宽度的值，从而实现当改变窗体大小时，标签文本始终出现在窗体中央。当退出程序时，通过响应窗体UnLoad事件，提示确认关闭操作，如图3-2所示。 【任务分析】要想实现标签文本在窗体中一直居中，首先要保证文本在标签控件中保持居中，还要在窗体大小发生改变时使使标签控件的顶点一直处于窗体最左侧1/2处，宽度一直与窗体宽度保持一致。215第3章目录任务2 保持窗体上

4、的标签文本居中【知识链接】2. 窗体的Resize和Unload事件（1）Resize：当窗体第一次显示或窗体的外观尺寸被改变时发生。（2）Unload：当窗体从内存中卸载时发生。当窗体被加载时，它的所有控件的内容均被重新初始化。当使用在控制菜单中的关闭命令、关闭按钮或Unload语句关闭该窗体时，此事件被触发。语法如下：Private Sub Form_Unload(Cancel As Integer)其中参数Cancel为整数，用来确定窗体是否卸载。如果Cancel为0，则窗体被卸载。将Cancel设置为任何一个非零的值可防止窗体被删除。通过将参数Cancel设置为任何非零的值可防止窗体被

5、删除，但不能阻止其他事件，诸如从Windows操作环境中退出等。可以用QueryUnload事件阻止从Windows中的退出。在窗体被卸载时，可以用Unload事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。在本任务中，利用Unload事件这一特性来实现关闭程序时提示是否关闭。215第3章目录任务3 制作键盘按键测试程序【知识点】窗体的KeyPreview属性窗体的KeyDown、KeyUp和KeyPress事件【任务描述】在本任务中创建了一个键盘程序测试。当程序运行后，当在键盘上按下任一个键时，在窗体上显示出该键的代码和相应的字符并显示Shift、Ctrl和Alt键的状态，当按Esc

6、键时退出程序，运行情况如图3-3所示。 【任务分析】要想实现这一任务的目标，需要使用窗体的KeyDown、KeyUp和KeyPress这三个键盘事件，利用每个事件响应不同的按键，以获得所有键盘按键的事件响应，并通过标签控件把响应的结果显示出来。215第3章目录任务3 制作键盘按键测试程序【知识链接】1. 窗体的KeyPreview属性窗体名.KeyPreview = boolean2. 窗体的KeyPress事件Private Sub Form_KeyPress(keyascii As Integer)3. 窗体的KeyUp和KeyDown事件Private Sub object_KeyDow

7、n(keycode As Integer, shift As Integer)Private Sub object_KeyUp(keycode As Integer, shift As Integer)215第3章目录任务4 制作简单绘图程序【知识点】窗体的MouseDown、MouseUp和MouseMove事件窗体的Line方法【任务描述】在本任务中创建一个简单的绘画程序。当程序运行时，可通过拖动鼠标左键连续画线，释放鼠标左键时停止画线，如图3-21所示；若单击鼠标右键，则画一条从上次画图位置出发的线段，如图3-22所示。 【任务分析】要想实现这一任务的目标，首先要定义保存鼠标在窗体中坐标

8、的全局变量，有了全局变量，程序无论响应那一个鼠标事件，均可得到当前鼠标的坐标。用窗体的鼠标事件MouseMove和MouseDown完成连续画线，MouseUp事件结束画线。用窗体的鼠标事件MouseDown和MouseMove实现从上次画图位置到当前画直线。215第3章目录任务4 制作简单绘图程序【知识链接】1. 窗体的MouseDown、MouseUp和MouseMovePrivate Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)Private Sub Form_Mouse

9、Up(button As Integer, shift As Integer, x As Single, y As Single)Private Sub Form MouseMove(button As Integer, shift As Integer, x As Single, y As Single)2. 窗体的Line方法窗体名.Line(x1, y1) - (x2, y2), 颜色,BF其中参数(x1,y1)是可选的，其数值类型为Single，指定直线或矩形的起点坐标。如果省略，线起始于由CurrentX和CurrentY指示的位置。参数(x2, y2)是必需的，其数值类型为Sing

10、le，指定直线或矩形的终点坐标。参数color可选的，其数值类型为Long，画线时用的RGB颜色。如果省略该参数，则使用ForeColor属性值。可用RGB函数或QBColor函数指定颜色。B是可选的。如果包括，则利用对角坐标画出矩形。F是可选的。如果使用了B选项，则F选项规定矩形以矩形边框的颜色填充。不能不用B而用F。如果不用F只用B，则矩形用当前的FillColor和FillStyle填充。FillStyle的缺省值为transparent。215第3章目录任务5 创建输入框和消息框【知识点】用InputBox函数创建输入框用MsgBox函数创建消息框窗体的Activate事件【任务描述】

11、在本任务中创建一个应用程序，当运行程序时首先弹出一个输入框提示输入用户名，如图3-7所示；输入用户名并单击“确定”按钮后，在窗体上显示用户显示欢迎信息，如图3-8所示；当关闭窗口时将弹出一个对话框，单击“确定”按钮退出程序，单击“取消”按钮则返回窗口，如图3-9所示。 【任务分析】要想实现这一任务的目标，需要在程序窗体被激活以前通过Load事件过程调用InputBox函数来获取客户输入的信息；得到客户信息后，可使用窗体的Activate事件在窗体显示时输出得到的客户姓名。215第3章目录任务5 创建输入框和消息框【知识链接】1. 窗体的Activate事件2. 用户对话框3. MsgBox函数

12、4. InputBox函数215第3章目录任务6 创建标准对话框【知识点】在窗体上添加CommandDialog控件CommandDialog控件的常用属性CommandDialog控件的常用方法【任务描述】在本任务中创建一个应用程序，当运行程序时，通过单击“改变图标”命令按钮，弹出“打开”对话框，选择图标文件，改变窗体标题栏上的图标并在窗体上显示图标文件的路径，如图3-10所示；单击“设置颜色”命令按钮，弹出“颜色”对话框，可以改变窗体上文本的颜色，如图3-11所示；单击“设置字体”命令按钮，弹出“字体”对话框，可用于设置窗体上文本的字体、样式、大小以及文本的颜色，如图3-12所示。215第

13、3章目录任务6 创建标准对话框【知识链接】1. 通用对话框控件（CommonDialog）通用对话框控件不是标准控件工具箱中，需要添加“Microsoft Common Dialog Control 6.0”部件。调用CommonDialog控件的方法：ShowOpen：显示“打开”对话框。ShowSave：显示“另存为”对话框。ShowColor：显示“颜色”对话框。ShowFont：显示“字体”对话框。ShowPrinter：显示“打印”对话框。ShowHelp方法：显示“帮助”对话框。（1）显示“打开”对话框。（2）显示“颜色”对话框。（3）显示“字体”对话框。2. 错误处理（1）On Error语句用于设置错误陷阱。（2）Err对象是一个包括关于运行错误信息的对象。215第3章目录任务7 创建多文档界面应用程序【知识点】创建MDI窗体设置MDI子窗体创建快速显示窗体设置应用程序启动对象【任务描述】在本任务中创建一个应用程序，当启动该应用程序时首先出现一个快速显示