VB教程第9章

合集下载

第9章 界面设计(1)

第9章 界面设计(1)
结束
1.通用对话框的常用属性 (1)Action(功能)属性 该属性直接决定打开何种类型的对话框。 例:commondialog1.action=2 (打开“另存为”对话框) 该属性只能在程序中赋值,不能在属性窗 口内设置,用于调出相应的对话框。 (2)DialogTitle(对话框标题)属性 DialogTitle属性是通用对话框标题属性, 可以是任意字符串。
结束
(3)CancelError属性 CancelError属性表示用户在与对话框进 行信息交互时,单击“取消”按钮时是否 产生出错信息。 True:表示单击对话框中的“取消”按 钮时,便会出现错误警告。 False(缺省):表示单击对话框中的 “取消”按钮时,不会出现错误警示。
结束
2. 通用对话框的方法
结束
6. “字体”对话框 当Action=4时弹出“字体”对话框,供用户 选择字体。 “字体”对话框常用属性 (1)Color属性 用来设置字体的颜色,当用户在“颜色”下 拉列表框中选定某颜色时,Color属性值即 为所选颜色值。 (2)FontName属性 用来设置用户所选定的字体名称。
结束
结束
3. “打开”/“另存为”对话框常用属性设 置 (1)DialogTitle(对话框标题)属性 用来给出对话框的标题,缺省值为“打 开”/“另存为”。 (2)FileName(文件名称)属性 用于设置“文件名称”文本框中显示的文 件名,并返回用户所选定的文件名(包括 路径名),同时用此文件名为Filename赋 值。 (3)FileTitle(文件标题)属性 用于返回或设置用户所要打开的文件的文 件名,它不包含路径。
结束
例2:为上例中的“保存文件”按钮编写事件 过程,将文本框中的内容存盘。
程序代码如下: 也可以在属性页或 属性框中进行设置 Private Sub Command2_Click() Commondialog1.InitDir = "c:\my documents" Commondialog1.Filter="文本文件(*.txt)|*.txt " Commondialog1.FilterIndex = 2 Commondialog1.DefaulText = "txt" Commondialog1.Action = 2 Open Commondialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub

VB第九章 文件

VB第九章 文件

设计界面:在窗体中添加驱动器列表框Drive1、目录列表框 Dir1和文件列表框File1以及框架Frame1、图象框Image1;
将File1的Pattern属性改为“*.bmp;*.exe”
将Image1的Stretch属性设置为True
Private Sub Form_Load()
File1.Pattern = "*.bmp;*.exe" End Sub
在2号缓冲区读取C盘根目录下名为Student.dat的文件的语句为: Open “C:\Student.dat” For Input As #2
2、写操作 要将数据写入顺序文件,应以Output或Append方式打开 该文件,然后使用Print #或Write # 语句将数据写入文件中。 1)Print # 文件号,[数据项列表] 其中:数据项列表和前面讲过的对象的Print方法中的格式基 本相同,只是在每行多了回车换行符。
文件的分类及访问模式: 顺序文件:是按记录号的顺序进行存储的文件。见下图:
记录1 记录2 记录3 …… 记录N
记录分隔符
顺序文件中每条记录的长度可不相同,记录与记录之间 的分隔符为回车换行符(Chr(13)和Chr(10)),而记录中各 数据项之间还有特定的分界符(如逗号等)。 显然,顺序文件是将记录按行进行存储。如文本文件就是 典型的顺序文件,其中的每一行字符串都是一条记录。 顺序文件在机器中是以ASCII形式进行存储的。 顺序访问模式:查找某个记录是从第一条记录开始,直到找 到需要的记录为止。修改某个记录,则将整个文件读出来, 修改后再将整个文件写回外存。此模式专门处理文本文件。
如果要在文件列表框中双击某个可执行文件就能执行该文件,则必须 要有如下的过程: Private Sub File1_DblClick( )

VB复习答案_第九章文件

VB复习答案_第九章文件

第九章文件第一题:是非题(共10分,每项1分)1. 在VB中,可通过函数Shell调用DOS或Windows下的可执行程序。

A.对√B.错第二题、单选题(共45分,每项1.5分)1. 下面关于随机文件的描述,不正确的是______。

10A.每条记录的长度必须相同B.一个文件中记录号不必惟一√C.文件的组织结构比顺序文件复杂D.可通过编程对文件中的某条记录方便地修改2. 要使用FSO对象模型,必须通过【工程】菜单中的______命令将FSO对象模型引入到当前工程中。

7A.部件B.工程属性C.添加属性D.引用√3. 下面关于顺序文件的描述,正确的是______。

12A.每条记录的长度必须相同B.可通过编程对文件中的某条记录方便地修改C.数据以ASCII码形式存放在文件中,所有可通过文本编辑软件显示√D.文件的组织结构复杂4. 在顺序文件中______。

11A.文件中按每条记录的记录号从小到大排序B.文件中按每条记录的长度从小到大排序C.文件中按记录的某关键数据项的从小到大的顺序D.记录是按写入的先后顺序存放的,读出也是按写入的先后顺序读出√5. 按文件的组织方式分为______。

6A.顺序文件和随机文件√B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件6. 在随机文件中______。

12A.文件中的内容是通过随机数产生的B.文件中的记录号是通过随机数产生的C.可对文件中的记录根据记录号随机地读写√D.文件的每条记录的长度是随机的7. 使用驱动器列表框的______属性可以返回或设置磁盘驱动器的名称。

8A.ChDriveB.Drive√C.ListD.ListIndex8. 下列控件中,不属于文件系统控件的是______。

6A.驱动器列表框B.文件列表框C.目录列表框D.图象列表框√9. 文件列表框中用于设置或返回所选文件的文件名的属性是______。

7A.FilePathB.FileC.PathD.FileName√10. 为了建立一个随机文件,其中每一条记录有多个不同数据类型的数据项组成,应使用______。

VB编程教程(全套)

VB编程教程(全套)

VB编程教程(全套)
什么是VB编程?
VB编程是指使用微软开发的Visual Basic编程语言进行软件开发的过程。

VB编程非常适合初学者,因为它具有简单易学的特点,并且拥有丰富的开发工具和资源。

本教程将带领您从零开始研究
VB编程,并逐步掌握基本概念和技巧。

教程内容
第一章:入门指南
- 了解VB编程环境
- 安装和配置软件开发工具
- 编写并运行第一个VB程序
第二章:基本语法
- VB的变量和数据类型
- 控制流语句:条件判断和循环
- 函数和过程
第三章:用户界面设计- 创建窗体和控件
- 布局和样式设计
- 事件处理和用户交互
第四章:文件操作
- 读取和写入文本文件- 操作文件和文件夹
- 序列化和反序列化对象
第五章:数据管理
- 数据库连接和操作
- 查询和更新数据
- 数据验证和处理
第六章:高级主题
- 错误处理和调试
- 多线程编程
如何使用教程?
本教程适用于那些想要研究VB编程的初学者和有一定编程经验的开发者。

您可以按照章节顺序逐步研究,也可以根据自己的需求选择特定章节进行研究。

教程中的例子和练将帮助您更好地理解和应用所学知识。

您可以根据教程中的指导进行实践,并尝试编写自己的程序。

结语
本教程涵盖了VB编程的基础知识和常用技巧,希望能够帮助您快速入门和掌握VB编程。

祝您学习愉快,编程顺利!。

VB教程(第2版) 第9章 鼠标、键盘和OLE

VB教程(第2版) 第9章 鼠标、键盘和OLE

9.1.1 鼠标事件
当在图片框中移动鼠标时,不断地画线和画方块,实现连续画线和方块。 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '在图片框中移动鼠标 If Button = 1 And C2 = 1 Then Select Case C1 Case 1 Picture1.Line -(X, Y) Case 2 Picture1.Line (X1, Y1)-(X, Y), , BF End Select End If End Sub
9.1.1 鼠标事件
说明: (1)Button表示是哪个鼠标键被按下或释放。用0、1、2三个位表示鼠标 的左、右、中键,每位用0、1表示被按下或释放,三个位的二进制转换成十进 制就是Button的值,如图9.1所示,表9.1列出了按钮与常数值的对应关系。
十进制 0 1 2 3 4 5 6 7
二进制 000 001 010 011 100 101 110 111
图9.4 查看键代码
9.2 键盘事件
2. KeyPress事件 KeyPress事件是当键盘有键按下时触发的。KeyPress事件检测的键有Enter、 Tab、BackSpace以及键盘上的字母、数字和标点符号键,对于其他功能键、编 辑键和定位键,则不作响应。 语法: Private Sub 对象_KeyPress(KeyAscii As Integer) 说明: • 对象:是接受键盘事件的对象,由具有焦点的对象接收。 • KeyAscii:是按键对应的ASCⅡ码值。将keyAscii改为0时可取消本次击键, 这样对象便接收不到按键的字符。

第9章 VB控件的使用

第9章 VB控件的使用
VB控件的使用 第9章 VB控件的使用
9.1 9.2 9.3 9.4 9.5 9.6 9.7
vb程序设计基础 程序设计基础
VB中的控件 VB中的控件 控件的常用属性及默认属性 焦点和Tab Tab键顺序 焦点和Tab键顺序 控件数组 常用控件的使用 使用ActiveX ActiveX控件 使用ActiveX控件 控件应用举例
vb程序设计基础 程序设计基础
本书目录
9.5 常用控件的使用
9.5.1 命令按钮
用于程序运行时执行相应的事件 1. 属性 (1)Caption (1)Caption 命令按钮上显示的文字 (2)Default 设定该命令按钮是否为默认按钮, (2)Default 设定该命令按钮是否为默认按钮 , 其值为 True时 Enter键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 True时,按Enter键相当于用鼠标点击了该按钮。 (3)Cancel (3)Cancel 设定该命令按钮是否为Cancel按钮,其值 设定该命令按钮是否为Cancel按钮, Cancel按钮 True时 ESC键相当于用鼠标点击了该按钮 键相当于用鼠标点击了该按钮。 为True时,按ESC键相当于用鼠标点击了该按钮。 注:在一个窗体上只能有一个命令按钮设为默认按钮和 Cancel按钮 按钮。 Cancel按钮。
vb程序设计基础 程序设计基础
本书目录
(5)Style 按钮样式 (5)Style Standard:默认, 0 —— Standard:默认,按钮上不能显示图形 Graphical: 1 —— Graphical:按钮上可以显示图形和文字 (6) Picture 在按钮装入图形 (7) ToolTipText 加以文字提示 命令按钮一般接收Click Click事件 2. 事件 命令按钮一般接收Click事件

vb调试与错误处理

vb调试与错误处理

图9-1 “调试”工具栏
第九章 调试与错误处理
9.1.2 任务二 程序错误与调试示例
• 即使最资深的程序员也会犯错,因此,知道如 何对应用程序进行调试并找出错误是编程的重 要组成部分。但在学习有关调试过程的知识之 前,了解错误类型对我们找出并修复错误是很 有帮助的。 • 编程中可能出现的错误分为三类:编译错误、 运行时错误和逻辑错误。
第九章 调试与错误处理
• Visual Basic提供了一些用于错误处理的工具,包 括对象、函数和语句等。使用这些工具进行错误 处理的具体操作步骤如下: • (1)记录错误的类型和原因。 • (2)在引起错误的地方停止原定代码的执行, 强制程序转入到用户自定义的“错误处理程序段” 入口。 • (3)在错误处理程序段内,根据具体的错误进 行相应的处理。 • (4)如果问题能够解决,则在问题解决之后返 回原程序处继续往下执行,否则停止错误执行。
第九章 调试与错误处理
关闭“调用堆栈”窗口,结束程序的运行, 仔细检查Factotial部分的代码,发现“Factorial = x * Factotial(x - 1)”代码部分有错误,将函数 名“Factotial”错误的写成了“Factorial”。虽然 是一个小小的拼写错误,却为我们增加了多少 调试的工作!改正后再次运行程序,输入数字5, 单击“计算阶乘”按钮,这次我们观测程序结 果,发现如图9-23所示的结果是正确的了,至 此,本程序才算是完全正确的程序了。
第九章 调试与错误处理
下面以一个实例来看看这些调试工具的使用方法。 新建一个工程,该程序的功能是,用户在文本框中 输入一个介于0~20之间的数字,程序能计算这个数的 阶乘并返回结果。
按下面的步骤建立这个程序: (1)打开Microsoft Visual Basic 6.0中文版。 (2)在弹出的对话框中,选择“标准EXE”选项。 (3)单击工具栏中的Label标签控件,在Form1窗体 上绘制一个标签,并将其Caption属性改为“请输入 一个整数(0-20之间)”。

第九章vb计算机

第九章vb计算机

Basic程序设计 Visual Basic程序设计
9.2.3 填充与色彩
作用: 指定填充的图案(有 种内部图案 取值0-7) 种内部图案,取值 作用:FillStyle 指定填充的图案 有8种内部图案 取值 FillColor 指定封闭图形的填充颜色。 指定封闭图形的填充颜色。 颜色的设置方法: 颜色的设置方法: (1)RGB(红,绿,蓝)函数,产生某种颜色。三基色参数值使用 红 绿 蓝 函数 产生某种颜色。 函数, 0~255之间的整数。 之间的整数。 之间的整数 (2)QBColor(颜色码 函数,0~15之间的整数。 颜色码)函数 之间的整数。 颜色码 函数, 之间的整数 (3)使用六位十六进制长整型数,如&HFFFFFF&。 使用六位十六进制长整型数, 使用六位十六进制长整型数 。 (4)使用 常量,如vbRed,vbBlue等。 使用VB常量 使用 常量, , 等 演示颜色的渐变过程。 例9.5 演示颜色的渐变过程。
2011年 21日星期三 2011年9月21日星期三 长春师范学院城市与环境科学学院
பைடு நூலகம்
Basic程序设计 Visual Basic程序设计
9.3.2 Circle方法 方法
作用: Circle方法用于画圆 椭圆、圆弧和扇形。 方法用于画圆、 作用: Circle方法用于画圆、椭圆、圆弧和扇形。 格式:[对象 格式: 对象.]Circle [Step] (x,y),半径 颜色][,[起始角 终止角][,长 半径[,[颜色 起始角][,[终止角 长 对象 半径 颜色 起始角 终止角 短轴比率]]]] 短轴比率 其中: 对象为窗体、图形框或打印机; 其中:①对象为窗体、图形框或打印机; 为圆心坐标, 表示当前作图位置的相对值; ②(x,y)为圆心坐标,step表示当前作图位置的相对值; 为圆心坐标 表示当前作图位置的相对值 ③ 圆弧和扇形通过参数起始角 、 终止角控制 。 当起始角 、 终 圆弧和扇形通过参数起始角、 终止角控制。 当起始角、 止角取值在0~2π时为圆弧 , 当在起始角 、 终止角取值前加一负号时 , π时为圆弧,当在起始角、终止角取值前加一负号时, 止角取值在 画出扇形,负号表示画圆心到圆弧的径向线; 画出扇形,负号表示画圆心到圆弧的径向线; ④椭圆通过长短轴比率控制,默认值为1时,画圆。 椭圆通过长短轴比率控制,默认值为 时 画圆。 例9.7在窗体上绘制由圆环构成的艺术图案。 构造图案的算法为:将 在窗体上绘制由圆环构成的艺术图案。 构造图案的算法为: 在窗体上绘制由圆环构成的艺术图案 一个半径为r的圆周等分为 份 以这n个等分点为圆心 以半径r1绘 个等分点为圆心, 一个半径为 的圆周等分为n份,以这 个等分点为圆心,以半径 绘 的圆周等分为 个圆。 制n个圆。 个圆

vb经典ppt教程09

vb经典ppt教程09

1.使用“打开”对话框 使用“打开”
补充: 补充:Microsoft RichTextBox Control 6.0控件 6.0控件
该控件除了具有文 本框控件的所有功能以 外,还具有一些高级功 能,如:同一文本框中 的内容可以具有不同的 颜色、字体、 颜色、字体、字号等属 性,并且可以将文本中 的内容直接与文件的读 写相联系。 写相联系。
第9章 文件管理
§9.1 公共对话框 §9.2 数据文件
§9.3 文件系统控件 §9.4 文件系统对象 *
பைடு நூலகம் §9.1
公共对话框
对话框技术在软件中应用的非常广泛, 对话框技术在软件中应用的非常广泛,第3 章中介绍的 消息框MsgBox和输入框InputBox是两种最为简单的对话框。 InputBox是两种最为简单的对话框 消息框MsgBox和输入框InputBox 是两种最为简单的对话框 。 MsgBox 打开” 另存为” 颜色” 字体” 像“打开” 、“另存为” 、“颜色” 、“字体” 、“打 帮助” 等对话框在各类软件中使用频繁。 为此, 印 ” 、 “ 帮助 ” 等对话框在各类软件中使用频繁 。 为此 , VB中专门提供了一个公用对话框控件,用于实现以上功能。 VB中专门提供了一个公用对话框控件,用于实现以上功能。 中专门提供了一个公用对话框控件
CommonDialog1.ShowColor 属性: Color属性 设置初始颜色或返回用户所选定的颜色。 Color属性:设置初始颜色或返回用户所选定的颜色。 Form1 BackColor=CommonDialog1 Form1.BackColor=CommonDialog1.Color Flags属性:设置对话框的外观等。 Flags属性:设置对话框的外观等。 属性 值 含 义

VB程序设计课件(全套)

VB程序设计课件(全套)

在VB中,将反映对象的属性和行为封装在一起,是面向对 象编程的基本元素。
21
上一页
下一页
2.类的概念
本章目录
类是创建对象实例的模板,是同种对象的集合与抽象,它包 含所创建对象的属性描述和行为特征的定义。 例如,人类是人的抽象,一个个不同的人是人类的实例。各 个人具有不同的身高、体重等属性值和不同的行为。 在 VB中,工具箱上的可视图标是 VB系统设计好的标准控件 类。通过将控件类实例化,可以得到真正的控件对象,也就是 当在窗体上画一个控件时,就将类转换为对象,即创建了一个 控件对象,简称为控件。
25
上一页
下一页
事件
本章目录
2. 事件、事件过程和事件驱动 (1) 事件 事件就是发生在对象上的事情。同一事件,作用于不同的对 象,就会引发不同的反应,产生不同的结果。 例如,在学校,教室楼的铃声是一个事件,教师听到铃声就 要准备开始讲课,向学生传授知识;学生听到铃声,就要准备 听教师上课,接受知识;而行政人员对铃声可不于响应。 在VB中,系统为每个对象预先定义好了一系列的事件。 例如,单击 (Click) 、双击 (DblClick) 、改变 (Change) 、获 取焦点(GotFocus)、键盘按下(KeyPress)等。
9
上一页
下一页
VB功能特点
2 功能特点 1) 具有面向对象的可视化设计工具 2) 事件驱动的编程机制 3) 提供了易学易用的应用程序集成开发环境 4) 结构化的程序设计语言 5) 强大的数据库功能 6) Active技术 7) 网络功能 8) 多个应用程序向导 9) 完备的Help联机帮助功能
10
Visual Basic 程序设计简明教程
第一章 Visual Basic程序设计概述(2) 第二章 VB简单的程序设计(6) 第三章 VB语言基础(4) 第四章 基本的控制结构(8) 第五章 数组(5) 第六章 过程(4) 第七章 常用控件(2) 第八章 界面设计(2) 第九章 文件(2) 第十章 图形(1) 第十一章 数据库技术(自学) 第十二章 系统开发案例 (自学)

VB程序设计第2版第9章

VB程序设计第2版第9章
➢ Shift: 根据在按键时是否按下Shift、Ctrl或Alt键返回一个整数。见P171 表9-2。
h
15
•【例9-3】在窗体上用Shape控件画一个圆形,用键盘上的“←”、“↑”、“→”、 “↓”方向键移动该图形。
Shape1
分析:键盘上的方向键“←”、“↑”、“→”、“↓”的KeyCode值分别为37、38、
h
18
9.3.1 框架(Frame)
• 1. 作用: 作为容器,对控件进行分组;修饰界面。 • 2. 如何将控件放在容器中
➢选中容器,在容器中直接画 ➢选中容器,粘贴控件 • 3. 如何检查控件是否在容器中 ➢拖动容器,控件随容器移动; ➢拖动控件只能在容器中移动 • 4. 选中框架中的多个控件: Ctrl+拖动;Shift+单击 • 5. 删除容器时,其中的控件随之被删除 • 6. 框架的常用属性 ➢Caption: ➢Font: ➢Enabled:设置为False时框架中的控件无效。
39、40,也可以分别用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符号常 量来代替。在窗体的KeyDown事件过程中根据所返回的KeyCode值实现对图形 的移动。
h
16
• 代码如下:
• Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
➢ 对象名.Picture=LoadPicture("图形文件名")
• 3. 如何清除图像
➢ 在属性窗口中删除Picture属性内容
➢ 对象名.Picture=LoadPicture()
• 4. 特点
• 可以自动调整控件大小以适应图像:

VB-Net自学经典教程(完整版)

VB-Net自学经典教程(完整版)
本章目录
(4) Font 属性值是Font类的对象,一般通过 Font属性对话框设置 若在程序代码中需要 改变文本的外观,则 应通过New创建 Font 对象来改变字体。 例如:
Label1.Font = New System.Drawing.Font("Arial", 10)
本章目录
(5) ForeColor、BackColor 颜色属性 ForeColor 控件正文前景色 BackColor 背景色
本章目录
2.3 窗体和基本控件
2.3.1 通用属性 属性设置两种方式: ➢ 通过属性窗口设置 ➢ 在代码设计窗口通过代码来设置 在中,属性的类型有:
基本数据类型 枚举类型 结构类型 用代码设置时,需要用不同方式表示不同的类型
本章目录
2.3.1 通用属性
(1) Name 所有对象都具有的属性,表示所创建的对象名称。 在程序中通过对象名称来引用对象,不会显示在 窗体上。
1.1 概述 1.2 集成开发环境 1.3 使用帮助系统
本章目录
1.1 概述
1.1.1 Visual Basic的发展 20世纪60年出现Basic语言; 20世纪80年代,True Basic、Quick Basic和 Turbo Basic等; 1991年Microsoft公司推出Visual Basic1.0,以 可视化工具为界面设计、结构化Basic语言为基 础,以事件驱动为运行机制。从1991年的VB1.0 至1998年的V B6.0的多次版本升级,功能更强 大、完善,应用面更广; 2002年正式发布Visual 。
本章目录
引例:编写事件过程
本章目录
功能特点
❖ 提供了易学易用的应用程序集成开发环境 ❖ 具有面向对象的可视化设计工具 ❖ 事件驱动的编程机制 ❖ 支持结构化程序设计,具有面向对象程序设计 语言的所有特征 ❖ 具有丰富的数据类型、功能强大的类库 ❖ 强大的数据库功能 ❖ 网络功能 ❖ 完备的帮助功能

vb练习题,电子版 第9章 过程

vb练习题,电子版 第9章 过程

第九章过程教学要求:了解VB 6.0过程的分类,掌握Sub过程和Function过程的建立、定义、调用的不同方法;掌握形参、实参的概念,掌握引用、传值、可选参数、可变参数以及对象参数的概念;掌握数组参数、窗体参数、控件参数的概念和使用,熟练使用Sub过程和Function过程设计应用程序;局部内存分配方法;过程嵌套调用和递归调用;Shell函数的使用。

知识点:Sub过程和Function过程的定义、调用;形参和实参的语法和使用;各种类型的参数传递;局部内存分配方法;过程嵌套调用和递归调用;Shell函数的使用。

内容导航:一、过程(一)Sub过程1.建立Sub过程通用Sub过程的一般格式如下:[Static][Private][Public]Sub 过程名[(参数列表)]语句块[Exit Sub][语句块]End Sub2.调用Sub过程调用引起过程的执行。

也就是说,要执行一个过程,必须调用该过程。

Sub过程的调用有两种方式如下:第一种方式:把过程的名字放在Call语句中,调用格式为:Call 过程名[(实际参数)]第二种方式:把过程名作为语句来使用,在调用Sub过程时,如果省略关键字Call,就成为调用Sub过程的第二种方式。

3.通用过程与事件过程控件事件过程的一般格式为:[Private| Public]Sub 控件名_事件名(参数表)语句组End Sub窗体事件过程的一般格式为:[Private|Public]Sub Form_事件名(参数表)语句组End Sub(二)Function过程1.建立Function过程Function过程定义的格式如下:[Static][Private][Public] Function 过程名[(参数列表)][As 类型][语句块][过程名= 表达式][Exit Function][语句块]End Function2.调用Function过程Function过程的调用比较简单,因为可以像使用Visual Basic内部函数一样来调用Function 过程。

龚沛曾 Visual Basic (VB) 程序设计教程(第三版) ppt 课件

龚沛曾 Visual Basic (VB) 程序设计教程(第三版) ppt 课件

VB程序设计教程 程序设计教程
5
Basic的发展 Visual Basic的发展
1991年 Microsoft公司推出 公司推出Visual Basic1 1991 年 Microsoft 公司推出 Visual Basic1.0 , 以 可视化工具为界面设计、结构化Basic语言为基础, Basic语言为基础 可视化工具为界面设计、结构化Basic语言为基础, 以事件驱动为运行机制。 1991年的VB1 年的VB 以事件驱动为运行机制。从1991年的VB1.0至1998 年的VB6.0的多次版本升级,功能更强大、完善, 年的VB6 的多次版本升级,功能更强大、完善, VB 应用面更广。 应用面更广。 Basic. 2000 年 发 布 Visual , 2005 年 发 布 2005版本 版本。 Visual Basic 2005版本。
19
四、属性(Properties)窗口 属性(Properties)窗口 (Properties)
作用: 1. 作用 : 设置或
查看窗体及控件 的属性, 颜色、 的属性 , 如 颜色 、 字体、大小等。 字体、大小等。
对象列表框 属性显示排列方式 属性列表框
2.属性窗口的 2.属性窗口的 组成:对象列表
VB程序设计教程 程序设计教程
14
1.2.2 启动
启动VB选择开始菜单中的 启动VB选择开始菜单中的 Microsoft Visual VB 中文版程序。 Basic 6.0中文版程序。 VB窗口列出了 VB能够建立的应用程序类型 窗口列出了VB 能够建立的应用程序类型, VB 窗口列出了 VB 能够建立的应用程序类型 , 初学者只要选择默认标准 EXE。 标准. 初学者只要选择默认标准.EXE。 单击打开按钮, 单击打开按钮,就可创建 该类型的应用程序。 该类型的应用程序。

(VB二级)第9章 数据文件

(VB二级)第9章 数据文件

注意:
(1)如果以Output模式打开一个不存在的文件时,则建立该 文件,如果打开的文件已经存在,则删除文件中的所有数据, 从头开始写入数据;以Input方式打开顺序文件时,要求文 件已经存在,否则会出错;用Append可以打开(或新建)一 个顺序文件时,文件指针位于文件的末尾(开始处)。
3.ChDrive语句
使用该语句可以改变当前的驱动器。其语法如下: ChDrive drive 其中的drive为一字符串值,用于指定一个有效 的驱动器盘符。
注意:使用该语句不会改变驱动器列表控件的 Drive属性值,不会引发Change事件,也不会 改变列表框控件显示的内容,只是改变当前工作 驱动器。
9.2 数据文件概述
文件是一组相关信息的集合。所谓相关信息是指存储在外 存(如磁盘、光盘等)上的、以字节形式保存的数据,也 称为数据文件。
9.2.1 数据文件的分类
(1)按数据的存储形式分类,可将数据文件分为ASCII 文件和二进制文件
(2)按数据的访问方式分类,可将数据文件分为顺序文 件、随机文件和二进制文件
2.主要事件
Change事件: 用户双击文件夹列表框的文件夹或使用赋值语句 改变Path属性时,就会触发该事件。 注意: (1)当ListIndex属性值改变时,文件夹列表框中 会突出显示当前文件夹的上一级文件夹,但不会 影响Path属性值,也不会触发Change事件。 (2)当Path属性改变时,当前文件夹会发生改变, 同时会触发Change事件。
(2) 模式指定文件访问的方式。为以下三 种形式之一: Output: Input: Append: 对文件进行写操作。 对文件进行读操作。 在文件末尾添加数据。
(3) 文件号用来指定该文件使用的是哪一 个内存缓冲区。在文件打开期间,使用文件 号即可访问相应的内存缓冲区,以便对文件 进行读、写操作。文件号的取值在1~511 之间。

VB第九章 ActiveX控件

VB第九章 ActiveX控件

第9章 ActiveX控件的应用
2 在ToolBar控件中添加按钮
ToolBar工具栏可以建立多个按钮。每个按钮的图 像来自ImageList对象中插入的图像。 1.为工具栏连接图像 在窗体上添加ToolBar控件后,选中该控件,右击, 拉出快捷菜单,选择“属性”,打开“属性页”对话框, 选择“通用”标签。 2为工具栏增加按钮。 选择”按钮”标签,打开该选项卡界面见教材单击 “插入按钮”,可以在工具栏增加按钮。
第9章 ActiveX控件的应用
9.1 ActiveX控件概述
使用ActiveX控件,要先将ActiveX控件添 加到工具箱,其后与内部控件使用方法一样, 同样也是要设计控件的属性、事件和方法,但 是ActiveX控件除在“属性”窗口定义相关的 属性外,还要通过ActiveX控件“属性页”窗 口定义其特有的属性。
注:对话框是输入输出界面,不能实现打开文件、存储文件、
设置颜色、字体打印等操作。如果想要实现这些功能还得靠 编程实现。
第9章 ActiveX控件的应用
“工程/部件 ” 添加方式:
Or 鼠标右键工具箱“ 部件 ”
Microsoft Common dialog Control 6.0
第9章 ActiveX控件的应用
第9章 ActiveX控件的应用
9.3 TagStrip控件
例 9-2 创建一个窗体,设计一个“滚动字幕” ,
程序的运行结果如图所示。
演示 程序
第9章 ActiveX控件的应用
9.4 TabStrip控件
第9章 ActiveX控件的应用
例 9-3 使用TabStrip控件创建如下所示的窗体。
演示 程序
第9章 ActiveX控件的应用

09 第09章 VB处理字符串和日期时间

09 第09章 VB处理字符串和日期时间

本节在小结前述章节的有关字符数据类型的基础 上,进一步介绍有关字符运算、字符数组和实现。
各种字符操作和字符转换、类型转换的VB函数。
8
Visual Basic程序设计教程
9.3.1 字符和字符串 1.字符数据类型 ·VB的字符类型数据支持两种格式,一种是定长,另一种 是不定长。如: Dim Str1 As String Dim Str2 As String * 长度数值 ·在VB中,变长字符串最多可包含大约20亿(2^31)个字符, 而定长字符串可包含1到大约 64K(2^16)个字符。
4
Visual Basic程序设计教程
· 【例9-1】一个简单的 示例程序,把给出的字符 进行加密,然后再解密, 程序界面如图所示:
5
Visual Basic程序设计教程
Dim Str1 As String, Str2 As String Option Compare Text Private Sub Form_Load() Private Sub CmdEncrypt_Click() Label1.Caption = "请输入:" Label2.Caption = "加密后输出:" Dim N As Byte, Count As Integer Label3.Caption = "解密后输出" Text1.Text = "" Text2.Text = "" Text2.Text = "" N = Len(Text1.Text) Text3.Text = "" End Sub For Count = 1 To N Str1 = Mid(Text1.Text, Count, 1) If (Count Mod 2) = 0 Then Text2.Text = Text2.Text & ChrW(AscW(Str1) + 2) Else Text2.Text = Text2.Text & ChrW(AscW(Str1) + 1) End If Next End Sub

第9章 VB创建和使用自己的类

第9章 VB创建和使用自己的类

第9章创建和使用自己的类类是具有多态性的用户定义类型。

封装将代码和数据组织在同一个类模块中,使得对象能保护和验证其中的数据。

借助创建对象的类能将数据和过程组织成一个整体。

本章介绍类如何增强代码的活力,如何导致新的编程方法的产生。

9.1 创建自己的类在VB中创建自已的类是通过在工程中添加类模块,然后设计类模块的相关代码实现的。

本节讨论类的用途和在工程中定义类模块的过程。

9.1.1 类的作用用户定义类型是一个使相关数据项成组的强大工具。

例如,假设我们定义一个名为Point 的用户定义类型:Public Type Pointx As Integery As IntegerEnd Type可以声明一个Point类型的变量p,然后编写两个过程,一个为setvalue,用于给p的各个字段赋值;另一个为display,用于显示其值。

这些代码如下:Dim p As PointPublic Sub setvalue(ByVal a As Integer, ByVal b As Integer)p.x = ap.y = bEnd SubPublic Sub display()MsgBox "(" + Str(p.x) + "," + Str(p.y) + ")"End Sub面向对象的编程通过将数据和过程结合成一个单一实体解决了上述问题,当把上面的用户定义类型Point变成一个CPoint类时,其数据变成了私有型,访问它们的过程移到类中并变成了属性和方法。

这就是所谓的封装,也就是说,对象是一个包括代码和数据的单元。

当从CPoint类创建一个变量(即创建该类的一个对象)时,访问其数据必须通过构成第9章创建和使用自己的类 201其接口的属性及方法。

现在,暂不要考虑如何将过程放进类中,也不要考虑如何理解属性过程和私有变量的语法。

重要的是要记住,可以定义一个对象来封装数据和确保数据的可靠性。

vb学习教程第9章 文件1

vb学习教程第9章  文件1
学号 姓名 数学成绩 语文成绩 物理成绩 总分
数据项
二、文件分类
根据访问文件的方式将文件分成3类: 顺序文件 随机文件 二进制文件。
1.顺序文件
顺序文件(Sequential File)是普通的文本文件。顺序 文件中的记录按顺序一个接一个地排列。读写文件存取记 录时,都必须按记录顺序逐个进行。一行一条记录(一项 数据),记录可长可短,以“换行”字符为分隔符号。
1.常用属性
(1)Path属性 用于返回和设置文件列表框当前目录,设计时不可用。 说明:当Path值的改变时,会引发一个PathChange事件。
(2)Filename属性
用于返回或设置被选定文件的文件名,设计时不可用。
说明:Filename属性不包括路径名。 例如:要从文件列表框(File1)中获得全路径的文件名 Fname$,用下面的程序代码: If Else
9.2.2 目录列表框(DirListBox)
目录列表框(DirListBox) 控件用来当前驱动器目录结构及 当前目录下的所有子文件夹(子 目录)。供用户选择其中一个目 录为当前目录。
1.常用属性
Path属性是目录列表框控件的最常用的属性,用于返回 或设置当前路径。该属性在设计时是不可用的。 使用格式:Object.Path [= <字符串表达式>] 其中: Object:对象表达式,其值是目录列表框的对象名。
9.3 顺序文件
在程序中对文件的操作,通常按3个步骤进行: 打开文件
读出或写入
关闭文件
9.3.1 顺序文件的打开与关闭
1。打开顺序文件 其使用格式如下: Open FileName For [Input | Output | Append] [Lock]As filenumber [Len = Buffersize] 各参数的意义(见教材Pg. 230)
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
3)Width和Height属性 这两个属性设置图片框控件的实际大小,它们总是表示空间容器的 单位。 4) Left和Top属性 Left和Top属性是图片框控件左上角的坐标,用容器的坐标系表示。 5) ScaleMode属性 ScaleMode属性设置或返回控件的当前坐标系。
• 表6.1 ScaleMode属性设置
属性设置 单 位
0
1 2 3 4 5 6
用户定义
Twip(缺省值) 磅(point,每英寸72磅) 像素(Pixed,与显示器分辨率有关) 字符(缺省为高12磅宽20磅的单位) 英寸(inch,1inch=1440 Twip) 毫米(millimeter)
7
厘米(centimeter)
图6.3 Shape属性确定的形状
9.2.3 图像框(Image)控件
图像框控件是Visual Basic提供的一种显示图像的控件,它可 以从文件中装入并显示下面几种格式的图形:位图、图标、图元 文件、增强型图元文件、JPEG和GIF文件。除此之外,图像框控 件还响应Click事件,并可用图像框控件代替命令按钮或作为工具 条的内容。此外,它还可以用来制作简单动画。图像框两个比较 重要的属性是Stretch和Picture。 •Stretch属性 当Stretch属性设置为True时,所装入的图形能够自动缩放以适应图 像框的大小。
• (1)单击工具箱中的Line图标; • (2)移动鼠标到要画线的起始位置: • (3)按下鼠标左键并拖曳鼠标到要画线的结束处,放开鼠标左 键。 • (4)打开属性窗口,设置线条属性,如线条风格、线条颜色等。 • (5)需要对设置好的线条进行调整时,可再单击该线条,通过 鼠标的拖动来改变线条的大小或位置,或通过属性窗口来改变属 性值。
CommandButton CommandButton Image
Image
Image
程序代码如下:
Option Explicit Dim gRotateFlag As Integer,gCurrentBtf As Integer Private Sub Command1_Click() If gRotateFlag = 0 Then gRotateFlag = 1:Command1.Caption = "停止(&X)" Else gRotateFlag = 0:Command1.Caption = "开始(&S)" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() gRotateFlag = 0:gCurrentBtf = 0 End Sub Private Sub Timer1_Timer() If gRotateFlag = 1 Then Image2.Picture = Image1(gCurrentBtf).Picture:gCurrentBtf = gCurrentBtf + 1 If (gCurrentBtf = 2) Then gCurrentBtf = 0 End If End If End Sub
9.2.2 Shape(形状)
Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角 正方形。当Shape控件放到窗体时显示为一个矩形,通过Shape属 性可确定所需要的几何形状。 • 使用形状控件的操作步骤: (1)单击工具箱中的Shape控件按钮。 (2)在窗体上画出形状。 (3)设置属性,定制形状的外观。 (4)调整设置好形状。可单击形状使其成为可编辑状态,通过鼠 标拖动改变其大小和位置,再用属性窗口设置属性,使其符合要 求。
[例9-1]本例用窗体内两个命令按钮的单击事件说明用Scale方法改 变坐标系统后产生的影响,命令Line(0,0)-(1500,1500)表 示从坐标原点到(1500,1500)画一根直线。
Private Sub Command1_Click() Cls Form1.Scale ’采用缺省坐标系 Line (0, 0)-(1500, 1500) End Sub Commandl_Click事件采用缺省坐标系,坐标原点在窗体的左上角,此时, Height=3600,Width=4800,ScaleHeight=3195,ScaleWidth=4680(twip) Private Sub Command2_Click() Cls Form1.Scale (0, 1500)-(1500, 0) ’定义用户坐标系 Line (0, 0)-(1500, 1500) End Sub Command2_Click事件定义用户坐标系,坐标原点在窗体的左下角,X轴的正向向左, Y轴的正向向上,窗体的左上角坐标为(0,1500),右下角坐标为(1500,0)。此时, Height=3600,Width=4800,ScaleHeight=-1500,ScaleWidth=1500(twip)。 程序运行后,单击Commandl,结果如图6.1中左图所示,单击Command2,结果如 图9-1中右图所示。
• Picture属性 Picture属性与图像数据有关。为显示一幅图像,需要对Picture 属性赋值。可以用LoadPicture方法,也可用其他图像框或图片框 的图像数据来赋值。下面是使用LoadPicture的例子: Image1.Picture=LoadPicture(“c:\windows\winupd.ico”) 把图像框2的图像赋给图像框1的例子是: Image1.Picture= Image2.Picture 把图片框1的图像赋给图像框1的例子是 Image1.Picture= Picture1.Picture
第9章Visual Basic 6.0图形处理
9.1 图形操作基础
9.2 图形控件
9.3 图形方法
退出
9.1 图形操作基础
9.1.1 坐标系统
9.1.2 自定义坐标系
9.1.3 使用Visual Basic颜色
9.1.1 坐标系统
构成一个坐标系,需要三个要素:坐标原点、坐标度量单位、坐 标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性 决定。
图9-1 改变坐标系产生的影响
9.1.3 使用Visual Basic颜色
Visual Basic提供了两个选择颜色函数QBColor和RGB,其中 QBColor函数能够选择16种颜色:
• 表9-2 QBColor函数可选择的颜色
函数 QBColor(0) QBColor(1) QBColor(2) QBColor(3) QBColor(4) QBColor(5) QBColor(6) QBColor(7) 效果 黑色 蓝色 绿色 深青色 红色 品红色 深黄色 纸 函数 QBColor(8) QBColor(9) QBColor(10) QBColor(11) QBColor(12) QBColor(13) QBColor(14) QBColor(15) 效果 灰色 亮蓝色 亮绿色 亮青色 亮红色 亮品红色 亮黄色 亮白色
RGB函数能够选择更多的颜色,此函数有三个参数。语法格式如 下: RGB(R,G,B)
9.2 图形控件
9.2.1 Line(画线工具)
9.2.2 Shape(形状)
9.2.3 图像框(Image)控件
9.2.4 图片框(Picture Box)控件
返回
退出
9.2.1 Line(画线工具)
使用线条控件的操作步骤:
9.2.4 图片框(Picture Box)控件
图片框的属性: 1)Picture属性:设置被显示的图片文件名(包括可选的路径名), 在程序运行其格式 为: 图形框对象.Picture= LoadPicture(“图形文件名”) 2)Autosize属性:调整图像框的大小以适应图形尺寸。
6
边界宽度从外向内计算
如果BorderWidth属性设置值大于1,则BorderStyle属性的有效值是1 (实心线)和6(内部实线),因为点划线的线宽不能大于一个像 素。也就是说,对于BorderStyle属性为2~4的线条控件,如果设置 BorderStyle属性值大于1,则其表现形式会同实心线一样。 3)BorderColor属性设置线条的颜色。
• 用图像框控件设计动画程序 动画就是一个接一个显示图片的过程。让一系列图片连续显示, 利用人视角暂留特性,可以产生动画效果。 下面这个程序实现蝴蝶在原地的飞舞。
图9-4 窗体格式
表9-6 窗体对象属性表
对象 Form Timer 属 性 Name Caption Name Enabled Interval Name Caption Name Caption Name Visible Stretch Picture Index Name Visible Stretch Picture index Name Visible Stretch Picture Form1 蝴蝶程序1 Timer1 True 250 Command1 开始(&S) Command2 停止(&X) Image1 False True D:\yang\buffer1.bmp 0 Image1 False True D:\yang\buffer2.bmp 1 Image2 True True (无) 设 置
表9-5 形状控件的FillStyle属性
FillStyle属性值 0 1 2 3 4 5 6 7 描述 实心 透明 水平线 垂直线 左上对角线 右下对角线 交叉线 对角交叉线
Shape属性值
0 1 2 3 4 5
[例9-2] 本例显示Shape控件的6种形状,如图6.3所示。
Private Sub Form_Activate() Dim i As Integer Print " 0 1 2 3 4 5" Shape1(0).Shape = 0: Shape1(i).FillStyle = 2 For i = 1 To 5 Load Shape1(i) Shape1(i).Left = Shape1(i - 1).Left + 750 Shape1(i).Shape = i Shape1(i).FillStyle = i + 2 Shape1(i).Visible = True Next i End Sub
相关文档
最新文档