第3章应用程序窗体设计讲述.pptVIP

第3章目录 * 第3章 应用程序窗体设计 任务1 在窗体指定位置显示文本 任务2 保持窗体上的标签文本居中 任务3 制作键盘按键程序测试 任务4 制作简单绘图程序 任务5 创建输入框和消息框 任务6 创建标准对话框 任务7 创建多文档界面应用程序 1／15 任务1 在窗体指定位置显示文本 【知识点】 窗体的常用属性 窗体的常用方法 窗体的Load事件和Click事件 【任务描述】 在本任务中创建一个应用程序，在程序执行时窗体背景色被设置成白色，字体设置为“楷体”，字体大小设置为20。每单击一次窗体，将在窗体的不同位置上以不同颜色显示文字信息“欢迎使用Visual Basic 6.0”，如图3-1所示。 【任务分析】 在Visual Basic中，每种颜色都是由一个Long整数表示。在本任务中，利用随机函数产生0至255之间的三个整数并为RGB函数赋值，实现文字颜色随机变换的结果。对文字显示位置的控制，可以通过窗体的CurrentX、CurrentY属性实现。 2／15 任务1 在窗体指定位置显示文本 【知识链接】 1. 窗体的常用属性 （1）Caption。 （2）BackColor。 （3）ForeColor。 （4）FontName。 （5）FontSize。 （6）CurrentX、CurrentY。 2. 窗体的常用方法 （1）Print。 （2）Cls。 3. 窗体的常用事件 （1）Click。 （2）Load。 2／15 任务2 保持窗体上的标签文本居中 【知识点】 窗体的ScaleHeight和ScaleWidth属性 窗体的Resize事件 窗体的UnLoad事件 【任务描述】 本任务利用响应窗体Resize事件来改变标签控件Label的顶点坐标和宽度的值，从而实现当改变窗体大小时，标签文本始终出现在窗体中央。当退出程序时，通过响应窗体UnLoad事件，提示确认关闭操作，如图3-2所示。 【任务分析】 要想实现标签文本在窗体中一直居中，首先要保证文本在标签控件中保持居中，还要在窗体大小发生改变时使使标签控件的顶点一直处于窗体最左侧1/2处，宽度一直与窗体宽度保持一致。 2／15 任务2 保持窗体上的标签文本居中 【知识链接】 2. 窗体的Resize和Unload事件 （1）Resize：当窗体第一次显示或窗体的外观尺寸被改变时发生。 （2）Unload：当窗体从内存中卸载时发生。 当窗体被加载时，它的所有控件的内容均被重新初始化。当使用在控制菜单中的关闭命令、关闭按钮或Unload语句关闭该窗体时，此事件被触发。语法如下： Private Sub Form_Unload(Cancel As Integer) 其中参数Cancel为整数，用来确定窗体是否卸载。如果Cancel为0，则窗体被卸载。将Cancel设置为任何一个非零的值可防止窗体被删除。 通过将参数Cancel设置为任何非零的值可防止窗体被删除，但不能阻止其他事件，诸如从Windows操作环境中退出等。可以用QueryUnload事件阻止从Windows中的退出。在窗体被卸载时，可以用Unload事件过程来确认窗体是否应被卸载或用来指定想要发生的操作。在本任务中，利用Unload事件这一特性来实现关闭程序时提示是否关闭。 2／15 任务3 制作键盘按键测试程序 【知识点】 窗体的KeyPreview属性 窗体的KeyDown、KeyUp和KeyPress事件 【任务描述】 在本任务中创建了一个键盘程序测试。当程序运行后，当在键盘上按下任一个键时，在窗体上显示出该键的代码和相应的字符并显示Shift、Ctrl和Alt键的状态，当按Esc键时退出程序，运行情况如图3-3所示。 【任务分析】 要想实现这一任务的目标，需要使用窗体的KeyDown、KeyUp和KeyPress这三个键盘事件，利用每个事件响应不同的按键，以获得所有键盘按键的事件响应，并通过标签控件把响应的结果显示出来。 2／15 任务3 制作键盘按键测试程序 【知识链接】 1. 窗体的KeyPreview属性 窗体名.KeyPreview = boolean 2. 窗体的KeyPress事件 Private Sub Form_KeyPress(keyascii As Integer) 3. 窗体的KeyUp和KeyDown事件 Private Sub object_KeyDown(keycode As Integer, shift As Integer) Private Sub object_KeyUp(keycode As Integer, shift As Integer) 2／15 任务4 制作简单