当前位置：文档之家 › Visual Basic 程序设计教程第8章

Visual Basic 程序设计教程第8章

  • 格式：ppt
  • 大小：488.00 KB
  • 文档页数：24

下载文档原格式

  / 24

合集下载

程序设计基础-Visual Basic教程第8章 过程

程序设计基础-Visual Basic教程第8章 过程
VB的程序代码部分是由若干被称为“过程”的代码行 以及向系统提供某些信息的说明组成。其中有针对于 某个对象的事件过程，也有用户自定义过程，而这些 过程及说明又被组织在不同的“模块”文件之中
应用程序（.vbp文件）
若干窗体模块（.frm文件） 若干标准模块（.bas文件） 若干类模块（.cls文件）
若干事件过程（Sub） 自定义子程序过程（Sub） 自定义函数过程（Function）
第8章 过程
本章的学习重点和难点
VB程序代码的组织 弄清楚过程调用的程序流程 过程的编写，参数的设置(包含数量、类型、顺序 的要求)、参数的传递方式的选用 递归过程的编写、递归过程的调用和回溯过程的理 解 变量的作用域问题(局部(过程级、模块级)、全局、 静态变量)、作用域不同的变量的同名问题
8.1 VB程序代码的结构化组织
8.1 VB程序代码的结构化组织
8.1.2 过程
自定义过程
结构化编程的原则：“分而治之”，逐步求精的方
法，程序设计模块化 一个应用程序可以具有若干个窗体，每个窗体又可 能拥有相同或不相同的对象，但是这些不同窗体中 的对象却有可能引发相同的操作或需要进行某些 共同的处理，也就是说，一个应用中的多个窗体可 以共享一些代码，或者一个窗体内不同的事件过程 可共享一些代码
8.1.2 过程
事件过程
尽管窗体有各自的名称，但窗体事件过程名由
下划线和事件名构成窗件事件过程名
“Form”、下划线和事件名结合而成；如果使 用多文档界面(MDI)窗体，则由“MDIForm”、
控件事件过程名由控件名、下划线和事件名组成。
组成控件事件过程名的控件名必须与窗体中某个控 件相匹配，否则VB将认为它是一个自定义过程
8.1 VB程序代码的结构化组织

Unit8Visual Basic程序设计(PPT全)(钱显鸣版)

Unit8Visual Basic程序设计(PPT全)(钱显鸣版)

[Private] Function 函数过程名([形参列表]) [As 类型] 过程级变量或常数的定义 语句块 函数过程名 = 表达式 End Function
注：
形参列表：参数类型和个数，每个参数的形式为：
[ByVal | ByRef] 形参名 As 类型
默认为ByVal
二、函数过程
函数过程的调用 函数过程名(实参列表) 函数过程有返回值，有类型
b
20
x
10
y
20
a
10
b
20
x
a的地址
y
b的地址
思考题：
Function Fun(ByRef x！, ByRef y！) As Double x=x+3 y=y-2 Fun = x * y End Function Private Sub Button0_Click(……) Handles Button0.Click Dim a, b, c As Double a=3 b=4 c = Fun(a, b) Label1.Text = a & " " & b & " " & c End Sub
调用时用实参代替形参，实参与形参在个数、位置、
类型一一对应
传值与传地址
传值（按值传递参数）
定义函数或过程时，在形参前加 ByVal 关键字 调用函数或过程时，系统将实参的值复制给形参 传值是一种单向的数据传递
传地址（按地址传递参数）
定义函数或过程时，在形参前加 ByRef 关键字 调用函数或过程时，系统将实参的地址传递给形参
传址是一种双向的数据传递，即调用时实参将值传递

Visual Basic程序设计教程第8章

Visual Basic程序设计教程第8章
1.数组的引用 2.数组元素的输入 3.数组元素的输出 4.数组元素的复制
2017/7/7
6
8.3.2 For Each...Next语 句 For Each 成员 In 数组
循环体 [Exit For] …... Next [成员]
2017/7/7
7
8.4 数组的初始化
数组变量名 = Array（数组元素值）
格式2：
Dim 数组名([下界To] 上界[,[下界To] 上界]...)
Option Base 语句 返回数组中指定维的下界和上界的函数：
Lbound(数组[,维]) Ubound(数组[,维])
2017/7/7
2
8.1.2 默认数组
数据类型为Variant的数组称为“默认”数组。 对于默认数组来说，同一个数组中可以存放 不同类型的数据。因此，默认数组可以说是 一种“混合数组”
2017/7/7
3
8.2 动态数组
8.2.1 动态数组的定义
通常分为两步：首先在窗体层、标准模块或过
程中用 Dim 或 Public 声明一个没有下标的数组 （括号不能省略），然后在过程中用ReDim语句 定义带下标的数组。 ReDim语句：
ReDim [Preserve] 变量（下标） As 类型
控件数组的名字由Name属性指定，而数组中的
每个元素则由Index属性指定。
2017/7/7
9
8.5.2 建立控件数组
方法1：对数组中的每个控件都设置相同的
名称（Name属性）
方法2：先画出一个控件，然后对其执行
“复制”和“粘贴”
2017/7/7
10
8.6
记录

Visual Basic程序设计教程第八章

Visual Basic程序设计教程第八章
9
• （8）Exit Function：在函数过程体执行 过程中，若需要中途退出函数过程，则 可以采用Exit Function语句强行结束函 数过程的调用。Exit Function语句往往 与条件语句配合使用，用于产生有条件 的中途退出的效果。
10
8.2.2 Function过程的调用
• Function过程的调用比较简单，它可以 像使用VB的内部函数一样来调用 Function过程。实际上，Function过程就 是一个函数，它与内部函数并无什么区 别，只不过内部函数由系统提供，而 Function过程是由用户根据需要由自己 定义的。
4
8.2.1 函数过程的定义
• 1．Function过程定义的格式 • [Static]|[Private]|[Public]Function <过程 名>[（参数列表）][As 类型] • 过程体（函数体） • [语句组] [过程名=表达式] • [Exit Function] • [语句组] • End Function
19Biblioteka • （4）<过程名>：命名规则与变量名的 命名规则相同。一个程序中，过程名应 具有唯一性。过程名在此仅仅表示本 Sub过程的名字而已（它不像函数过程 名），不与数据发生联系，因此在过程 头部，不能定义Sub过程名的数据类型 ，在Sub过程体中，也不能对Sub过程名 进行赋值。
17
• 2．说明 • （1）通用过程通常完成一个特定的任务， 它不与任何特定的事件相联系，只能由其 他的过程来调用，它还可以存储在窗体模 块或标准模块中。 • （2）可以将子过程放入标准模块、类模块 和窗体模块中。缺省规定所有模块中的子 过程为Public（公用的），这意味着在应用 程序中可以随处调用它们；若选用Private（ 局部），则只有该过程所在模块中的程序 18 才能调用该过程。

Visual_BASIC_PPT谭浩强第8章

Visual_BASIC_PPT谭浩强第8章

（可以看到，奖杯图案大小改变了，但位置不在 窗体中间位置，即图像框的左上角坐标不改变）。 (2) 单击“改变高和宽”命令按钮所触发的事件过程： Private Sub cmdChangeHW_Click ( ) Image1.Left = Image1.Left - Image1.Width / 2 Image1.Height = Image1.Height * 2 Image1.Width = Image1.Width * 2 End Sub
图８.3
图片框中可以使用以下三种类型的图形文件： (1) 位图（bitmap），文件后缀为.bmp。 (2) 图标（icon），文件后缀为.ico。 (3) Windows元文件（metafile）,文件后缀为.wmf。 通常我们希望图形充满图片框或者能够随着图片框 大小的改变而改变，也就是说始终让图形的边界与 图片框的边界重合。如可以设置图片框的AutoSize 属性达到这个目的。AutoSize有两个值，True和 False。当AutoSize属性的值设置为True时，图片框 随着图形的实际大小而自动调整尺寸以适应图形的 尺寸。当AutoSize属性的值设置为False时，图片框 不能自动调整尺寸。类型为.wmf的图形文件会自动
第8章
图片框、图像框和计时器
8.1 图片框 8.2 图像框 8.3 计时器 8.4 利用图片框和计时器设计简单动画 习题
用VB不仅能处理文字信息（例如输入和显示信 息），而且还可以处理图形信息（例如在指 定的位置处放入一幅事先准备好的图片）。 VB提供了图片框（PictureBox）工具和图像 框(Image)工具。它们都是VB工具箱中的控 件。图片框图标为 ，图像框图标为 。
调整大小以适应图片框的尺寸。如果是.bmp和.ico 文件，则图形不会自动调整大小。 以上是在设计阶段将图形以图形文件的形式装入图片 框的方法。在设计阶段将图形装入的另一种方法是， 使用剪贴板把在各种图形软件下制作的图形粘贴到 图片框中。 【例8.2】 使用任何图形软件工具制作一个图形，然 后利用剪贴板将图形装入图片框内。具体做法如下： (1) 用Windows下任何一种图形软件（如CorelDraw、 Paintbrush、Photoshop等）画出一个图形。现在我 们使用Word 97来制作一个立体的“Visual Basic”。

《Visual Basic程序设计教程(第3版)》第8章多媒体编程基础

《Visual Basic程序设计教程(第3版)》第8章多媒体编程基础
Wav" • mand="Open" • mand="Play" • Cmdmidi.Enabled=False • End Sub
8.1 多媒体控件(续)
• 播放MIDI的事件过程如下： • Private Sub Cmdmidi_Click() • mand="Close" • Mmcontrol1.Devicetype="Sequencer" • Mmcontrol1.Filename="D:\Wfffgz\Temp\Camyo
• （1）在窗体上创建一个Mmcontrol控件、3个命 令按钮，Cmdwave和Cmdmidi分别用来播放声音 和MIDI文件，Cmdexit用来停止播放，其Caption 属性分别设置为“Wave”、“MIDI”、“Exit”。 创建一个Autoloop复选框，用于选择是否自动重 复播放，2个文本框用于显示播放文件的长度和当 前位置，窗体的标题动态显示时间，如图8.2所示 。
8.1 多媒体控件(续)
• Position属性值在播放过程中是变化的，必 须加入定时器才能显示动态的数值。由于 已将 Mmcontrol1 控件的UpdateInterval属 性设置为200微秒，StatusUpdate事件在时 间间隔200微秒会自动激活，类似于定时器 ，能对控件的运行进行跟踪。另外，利用M mcontrol控件的StatusUpdate事件，计时是 从开始Play时算起的。如果利用Timer控件 定时，则计时是从程序运行时算起的，所 以前者更适用。
8.1 多媒体控件(续)
• 创建自动重复播放DONE事件过程如下： • Private Sub Mmcontrol1_DONE(NOTIFYCODE

Visual Basic程序设计实用教程vb08(第8章 使用常用绘图方法)

(2) 用户可以单击某个 图形按钮绘制出相 应图形和秒表的运 行图形。
8.3 绘图相关知识(1)
1、容器控件 要实现绘图就必须具备基本 条件，那就是要有一个绘 图的板。这与我们日常的 概念是一样的。比如一张 纸可以绘图，而一盆水就 不可绘图。VB提供了两 种可以绘图的板，
窗体-Form
图片坐标，或椭圆中心、圆弧中心的坐标； Radius：圆的半径； Start：选用时为画圆弧，表示圆弧的起始位置，用弧度表示； End：选用时为画圆弧，表示圆弧的终止位置，用弧度表示； Aspect：选用时为画椭圆，是椭圆X轴和Y轴的比例，当大于1时，长 半轴为Y轴，当小于1大于0时，长半轴为X轴；
8.7 实现鼠标绘任意图形(2)
应用鼠标事件完成任意绘图的操作,鼠标事件对 应的操作如下：
MouseDow n (鼠标压下) MouseMove (鼠标移动)
启动绘图，取 得当前坐标
判断是否绘图， 是绘制首尾相 接的线条
MouseUp (鼠标抬起)
停止绘图
8.8 图形方法应用举例(1)
按钮“画圆”代 码
8.3绘图相关知识
控件坐标和大小： 控件的位置属性： Left 和 Top ，指定控件左 上角的坐标值； 控件尺寸大小的属性: Height和 Width ，指定控 件右下角的坐标值， 实际上是控件的高度 和宽度。
（0，0） 控件
X轴
Y轴
控件坐标图
8.4 画线的方法Line
语句格式为：
Object.Line [step](x1,y1)-(x2,y2),[Color],[B][F]
语句示例： （在Form1上画图） 画圆: Form1.Circle (1000, 1000), 400, vbRed 画椭圆: Form1.Circle (1000, 1000), 400, vbRed, , , 1.5

Visual Basic 程序设计VB8


SUB 过程
自定义过程与事件过程的区别： 1、从结构形式上看，事件过程名是由控件（对象）名 和事件名连接而成，而自定义过程的名称是由用户起 的一个任意的合法标识符； 2、从启动的机制上看，事件过程是由事件触发，而自 定义过程是由另外的过程来调用运行。 如何建立SUB过程？ 方法1 选模块---工具菜单中的添加过程 方法2 工程菜单中的添加模块---模块代码窗口键入过 程的名字。
应用程序 工程文件（ .vbp)
窗体模块 (.frm)文件
类模块 (.cls)文件
标准模块 (.bas)文件
函数过程
子过程
事件过程子ຫໍສະໝຸດ 程函数过程SUB 过程
SUB 过程的建立 1、定义 [static][private][public]sub 过程名[(参数表列)] 语句块 [exit sub] [语句块] End sub 过程名前缀是过程的性质，过程不能嵌套 参数表列是形参,格式是： [byval]变量名[()][as 数据类型]
过程与变量的作用域
3、工程级（项目级、全局）变量 在任一文件中，各过程之外，用public语句定义的变 量，作用域为整个工程或整个项目
窗体参数与控件参数
VB可用对象（窗体和控件）作为过程的参数，其类型 是control,（或form) 创建的对象作为实际参数，以地址调用方式 传递给过程，在过程种可以修改对象的属性，使用对 象的方法。 Private Sub fontout(t1 As Control, t2 As Control) t1.FontSize = 24 Private Sub Form_Load() Private Sub Form_Click() t1.Font = "宋体" Text1.Text = "欢迎使用" fontout Text1, Text2 t2.FontSize = 36 Text2.Text = "Visual Basic End Sub t2.Font = "隶书" 6.0" t2.FontItalic = TrueEnd Sub End Sub

Visual Basic 8


其中： 序号是要删除项目的顺序号，其值为整型，范围从0到 ListCount -1。 Clear方法，删除列表框中的所有项目。格式是： 列表框名.Clear 列表框名
8.3 组 合 框
组合框在工具箱的图标是 。 组合框控件和列表框一样提供一个项目列表。用户可 以从中选择一项或多项。在组合框中，有自己的文 本框。 组合框是具有文本框控件与列表框控件特性的控件。 组合框系统的默认名称为Combo1、Combo2等。
AddItem方法，向列表框添加一个新项目，格式是： 列表框名.AddItem 列表框名 其中： 列表框名是列表框的名称 字符串是要添加到列表框中新项目 字符串[,序号 字符串 序号] 序号
RemoveItem方法，从列表框中删除一个项目。格式是： 列表框名.RemoveItem 列表框名 序号
例8.3 删除多项选择 设计一个窗体，在窗体上画一个列表框和两个命令按钮， 设计一个窗体，在窗体上画一个列表框和两个命令按钮，运行 程序时， 在列表框中按“ 书柜” 衣柜” 书桌” 程序时 ， 在列表框中按 “ 书柜 ” 、 “ 衣柜 ” 、 “ 书桌 ” 、 椅子” 沙发” 床铺”的顺序输入列表项。 “椅子”、“沙发”、“床铺”的顺序输入列表项。一次选 择多个列表项，然后单击【删除】删除选择的所有列表项。 择多个列表项，然后单击【删除】删除选择的所有列表项。 单击【退出】结束程序执行。 单击【退出】结束程序执行。
8.2 列表框
列表框控件在工具箱的图标是 。 列表框控件提供一个项目列表。 列表框控件提供一个项目列表。用户可以从 中选择一项或多项。如果列表中的项目太多， 中选择一项或多项。如果列表中的项目太多， 超过列表框设计高度， 超过列表框设计高度，列表框会自动出现滚 动条。在列表框中，可以单列显示。 动条。在列表框中，可以单列显示。

《Visual Basic程序设计实用教程》 第8章

随机型访问文件中的字节构成相同的一些记 录，每个记录包含一个或多个字段。具有一 个字段的记录对应于任一标准类型，比如整 数或者定长字符串。 Type Worker
LastNameAs String * 10 TitleAs String * 7 RankAs String * 2 End Type
2020/1/11
文件操作
打开文件主要功能： １．为文件在内存建立输入/输出缓冲区。 ２．建立文件号与磁盘文件的链接。
注意： 在使用任何文件之前，都必须先用 Open 语句
2020/1/11
文件操作
关闭文件 Close Close 的任务：
１.文件缓冲区中的剩余信息全部写入磁盘。 ２.释放该文件缓冲区所占用的内存。 ３.释放该文件号，断开与磁盘文件的链接。
2020/1/11
通用对话框添加到工具箱
(1) 右单击工具箱空白位置，选择弹出菜单中的“部件 ”命令，弹出“部件”对话框；
( 2 ) 在 对 话 框 的 “ 控 件 ” 列 表 框 中 选 择 “ MicorSoft Common Dialog Control6.0”选项(使该选项前的复选框 中出现对钩)；
2020/1/11
使用“字体”对话框
Color 选定的颜色。为使用此属性，必须 先将Flags属性设置为cdlCFEffects
FontBold 是否选定“粗体”
FontItalic 是否选定“斜体”
FontStrikethru 是否选定删除线
FontUnderline 是否选定下划线
FontName
2020/1/11
文件操作
文件处理都是通过使用Open语句以及其 他一些相关的语句和函数来实现的。
l
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

3.滚动条
属性:
（1）Max属性 （2）Min属性 （3）Value属性
事件:
（1）Scroll事件 （2）Change事件
方法:
二.时钟
①属性:
Interval属性、Enabled属性 事件: 方法:
②时钟控件的使用
三.高级控件
1.SSTab控件
属性: Style属性 Tabs属性 TabsPerRow和Rows属性
TabOrientation属性 ShowFocusRect属性 Tab属性
事件: 方法:
2.Slider和UpDown控件的使用
四.鼠标与键盘
1.常见事件的各种参数的使用 和含义
MouseIcon和MousePointer决定了鼠标 的外形特征。
（1）MouseIcon属性
MouseIcon属性提供了一个自定义图标， 它在MousePointer属性设为99时使用，其 语法如下： Object. MouseIcon =LoadPicture （pathname） Object. MouseIcon =picture
其中，pathname指定包含自定义图标 文件的路径和文件名。picture是Form对象、 PictureBox控件或Image控件的MouseIcon 属性。
（2）MousePointer属性
所谓鼠标事件是由用户操作鼠标而引 发的能被VB中的各种对象识别的事件。 Click和DblClick事件是与鼠标有关的高级 事件，它们只能识别鼠标按下或双击动作。 可通过MouseDown、MouseUp、MouseMove事 件使应用程序对鼠标位置及状态的变化作 出响应(其中不包括拖放事件，后面的“拖 放”一节中将介绍拖放事件)。鼠标事件及 其说明如下。
VB提供了3个控件级键盘处理事件，而 且窗体和接受键盘输入的控件都识别这3个 事件。这3个事件说明如下。 KeyPress：按下并且释放一个会产生 ASCII码的键时触发。 KeyDown：按下键盘上任意一个键时被 触发。 KeyUp：释放任意一个键时被触发。
其中各参数如下。
① Keycode是一个键代码，如 vbKeyFl（“F1”键）或vbKeyHome （“Home”键）。为了指定键代码， 可使用对象浏览器中的VB对象库中的 常数。
② Shift是在该事件发生时响应 “Shift”、“Ctrl”和“Alt”键的 状态的一个整数。Shift参数是一个 位域，它用最少的位响应“Shift” 键（位0）、“Ctrl”键（位1）和 “Alt”键（位2）。这些位分别对应 于值1，2和4。
事件: 列表框接受Click，DbClick， GetFocus，LostFocus等大多数控件通用事 件，但通常不编写Click事件代码，而是当 单击一个命令按钮或发生DbClick事件时读 取Text属性值。
方法:
(1)AddItem方法 (2)ReMoveItem方法 (3)Clear方法
Click：在一个对象上单击鼠标按钮时 触发。在一个控件的值改变时它也会触发。 DblClick：在一个对象上双击鼠标按 钮时触发。 MouseDown：按下任意鼠标按钮时触发。 MouseUp：释放任意鼠标按钮时触发。 MouseMove：移动鼠标时被触发。
（1）Button参数 （2）Shift参数 （3）X、Y参数
第8章 常用控件1选ຫໍສະໝຸດ 性控件2时钟3
高级控件
4
鼠标与键盘
一.选择性控件
1.单选和复选框、框架
常用属性
（1）Caption属性 （2）Alignment属性 （3）Value属性 （4）Style属性
常用事件: 常用方法:
2.组合框和列表框
属性:
(1)List属性 (2)ListIndex属性 (3)ListCount属性 (4)Selected属性 (5)MultiSelect属性