[高等教育]VB程序设计基础.ppt

6.2　基于事件编程 示例1：窗体事件编程 示例2：控件事件编程 示例3：键盘事件编程 示例4：鼠标事件编程 示例5：定时器事件编程 1.事件 Click、DblClick、Load、Unload等 Load事件：当装入窗体时激发，通常用于对属性 和变量初始化 UnLoad事件：当卸载窗体时激发，通常用执行扫 尾工作。 2.方法 Print、Cls和Move等 示例1：Click、DblClick、Load、Unload 事件演示。 示例1：窗体事件编程 文本框的应用－数据过滤 要求输入合法的数字数据。当输入结束时（按Tab键），对于输入正确的数据，显示正确信息；对输入的非数字数据，显示错误信息、使焦点重新回到文本框。 Text1_ LostFocus 当输入结束按Tab键时,该事件激发 IsNumeric(Text1) : 判断是否输入非数字数据. Text1.SetFocus : 使焦点重新回到文本框 示例2：控件事件编程举例－文本框控件 示例3：键盘事件编程 示例3： 当按键盘上数字键“8”时，把窗体移动到屏幕顶部；按数字键“2”时，把窗体移动到屏幕底部；按数字键“4”时，把窗体移动到屏幕左边；按数字键“6”时，把窗体移动到屏幕右边；按ESC键或回车键时，结束程序。 练习：键盘事件编程 要求：设计实现一个具备基本功能的计算器。 示例如下： 要求：按下鼠标左键，在窗体上绘制任意曲线。 示例4：鼠标事件编程 定时器是VB内置的一个标准控件，它是一个后台运行的不可见控件（运行时）。定时器控件具以下主要属性和事件： 属性： Enabled：表示是否启用定时器，取值True或False Interval：表示定时器事件发生的时间间隔，取正整数 （单位：毫秒） 事件： Timer：每到Interval指定的事件间隔自动发生。 定时器事件编程 要求：在窗体上显示数字时钟。 示例5：定时器事件编程 要求：在窗体上显示模拟时钟。示例如下： 练习：定时器事件编程 第7章　文件操作 二进制文件 1. 文件类型 文本文件 第7章　文件操作 语法 Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 2. 文件的操作 打开文件 第7章　文件操作 Open 语句的语法具有以下几个部分： pathname ：指定文件名，该文件名可能还包括目录、文件夹及驱动器。 mode ：指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。 access ：说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。 第7章　文件操作 lock 可选。关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。 filenumber ：一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。 reclength ：小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。 第7章　文件操作 说明 对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。 如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。 如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open 操作失败，而且会有错误发生。 第7章　文件操作 语法 Close [filenumberlist] 可选的 filenumberlist 参数为一个或多个文件号，其中 filenumber 为任何有效的文件号，语法如下： [[#]filenumber] [, [#]filenumber] . . . 2. 文件的操作 关闭文件 第7章　文件操作 说明 若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。 当关闭 Output 或 Append 打开的文件时，将属于此文件的最终输出缓冲区写入操作系统缓冲区。所有与该文件相关联的缓冲区空间都被释放。 在执行 Close