⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 6.htm

📁 vb基础教程源文件 处学者必备
💻 HTM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./6.files/filelist.xml">
<link rel=Edit-Time-Data href="./6.files/editdata.mso">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<title>无标题文档</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>oem</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>oem</o:LastAuthor>
  <o:Revision>3</o:Revision>
  <o:TotalTime>11</o:TotalTime>
  <o:LastPrinted>2006-07-04T09:53:00Z</o:LastPrinted>
  <o:Created>2006-07-04T06:12:00Z</o:Created>
  <o:LastSaved>2006-07-04T09:57:00Z</o:LastSaved>
  <o:Pages>8</o:Pages>
  <o:Words>940</o:Words>
  <o:Characters>5358</o:Characters>
  <o:Lines>44</o:Lines>
  <o:Paragraphs>10</o:Paragraphs>
  <o:CharactersWithSpaces>6580</o:CharactersWithSpaces>
  <o:Version>9.2812</o:Version>
 </o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:Zoom>80</w:Zoom>
  <w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing>
  <w:Compatibility>
   <w:UseFELayout/>
  </w:Compatibility>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
@font-face
	{font-family:宋体;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-alt:SimSun;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
@font-face
	{font-family:"\@宋体";
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:"";
	margin:0cm;
	margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:12.0pt;
	font-family:宋体;
	mso-bidi-font-family:"Times New Roman";}
p.MsoFooter, li.MsoFooter, div.MsoFooter
	{margin:0cm;
	margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	tab-stops:center 207.65pt right 415.3pt;
	layout-grid-mode:char;
	font-size:9.0pt;
	font-family:宋体;
	mso-bidi-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
	{color:blue;
	text-decoration:underline;
	text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
	{color:blue;
	text-decoration:underline;
	text-underline:single;}
p
	{margin-right:0cm;
	mso-margin-top-alt:auto;
	mso-margin-bottom-alt:auto;
	margin-left:0cm;
	mso-pagination:widow-orphan;
	font-size:12.0pt;
	font-family:宋体;
	mso-bidi-font-family:"Times New Roman";}
 /* Page Definitions */
@page
	{mso-page-border-surround-header:no;
	mso-page-border-surround-footer:no;}
@page Section1
	{size:595.3pt 841.9pt;
	margin:72.0pt 90.0pt 72.0pt 90.0pt;
	mso-header-margin:42.55pt;
	mso-footer-margin:49.6pt;
	mso-page-numbers:83;
	mso-even-footer:url("./6.files/header.htm") ef1;
	mso-footer:url("./6.files/header.htm") f1;
	mso-paper-source:0;}
div.Section1
	{page:Section1;}
-->
</style>
</head>

<body lang=ZH-CN link=blue vlink=blue style='tab-interval:21.0pt'>

<div class=Section1>

<h2>第六章<span lang=EN-US> VB的过程设计 </span></h2>

<p><strong><span lang=EN-US>1． 什么是过程 </span></strong></p>

<p>在程序设计中，为各个相对独立的功能模块所编写的一段程序称之为过程。 </p>

<p><strong><span lang=EN-US>2 ． VB 中的自定义过程分类 </span></strong></p>

<p>（<span lang=EN-US>1） 以“ Sub ”保留字开始的子程序过程 （包括事件过程和通用过程），不返回值； <br>
<br>
（2） 以“ Function ” 保留字开始的函数过程，返回一个值； <br>
<br>
（3） 以“ Property ” 保留字开始的属性过程，可以返回和设置窗体、标准模块以及类模块的属性值，也可以设置对象的值。 </span></p>

<p align=center style='text-align:center'><strong><span lang=EN-US>6.1 子过程（ Sub
）的定义与调用 </span></strong></p>

<p><strong><span lang=EN-US>1． 事件过程 </span></strong></p>

<p><strong>（<span lang=EN-US>1） 窗体事件过程 </span></strong></p>

<p><strong>　　　语法 </strong>： <strong><span lang=EN-US>Private Sub Form_ </span></strong>事件名
（<span lang=EN-US> [ 参数列表 ] ） <br>
<br>
　　　　　　 [ 局部变量和常数声明 ] <br>
<br>
语句块 <br>
<b><br>
<strong>End Sub </strong><br>
<br>
<strong>注意 </strong></b>： <br>
<br>
1 ） 窗体事件过程名由 <strong>Form_ </strong>事件名 组成，多文档窗体用 <strong>MDIForm_ </strong>事件名；
<br>
<br>
2 ）每个窗体事件过程名前都有一个 Private 的前缀，表示该事件过程不能在它自己的窗体模块之外被调用； <br>
<br>
3 ）事件过程有无参数，完全由 VB 提供的具体事件本身决定，用户不可以随意添加。 </span></p>

<p><strong>（<span lang=EN-US>2） 控件事件过程 </span></strong></p>

<p><strong>语法 </strong>： <strong><span lang=EN-US>Private Sub 控件名 _ </span></strong>事件名
（<span lang=EN-US> [ 参数列表 ] ） <br>
<br>
　　　　　　 [ 局部变量和常数声明 ] <br>
<br>
语句块 <br>
<b><br>
<strong>End Sub </strong><br>
<br>
<strong>　　　 注意 </strong></b>：其中的控件名必须与窗体中某控件相匹配，否则 VB 将认为它是一个通用过程。 </span></p>

<p><strong>（<span lang=EN-US>3） 建立事件过程的方法 </span></strong></p>

<p>　　<span lang=EN-US>1） 打开代码编辑器窗口（两种方法：双击对象或从工程管理器中单击“查看代码”按钮） <br>
<br>
2） 在代码编辑器窗口中，选择所需要的“对象”和“事件过程” <br>
<br>
3） 在 Private Sub …… End Sub 之间键入代码 <br>
<br>
4） 保存工程和窗体 </span></p>

<p><strong>（<span lang=EN-US> 4 ）事件过程的调用 </span></strong></p>

<p>事件过程由一个发生在<span lang=EN-US> VB 中的事件来自动调用或者由同一模块中的其他过程显示调用。 </span></p>

<p><strong><span lang=EN-US>2． 通用过程 </span></strong></p>

<p>通用过程是一个必须从另一个过程显示调用的程序段，通用过程有助于将复杂的应用程序分解成多个易于管理的逻辑单元，使应用程序更简洁、更易于维护。 </p>

<p>通用过程分为 <strong>公有（<span lang=EN-US> Public ）过程 </span></strong>和 <strong>私有（<span
lang=EN-US> Private ）过程 </span></strong>两种，公有过程可以被应用程序中的任一过程调用，而私有过程只能被同一模块中的过程调用。
</p>

<p><strong>（<span lang=EN-US> 1 ） 定义方法： </span></strong></p>

<p><span lang=EN-US>[ <strong>Private | Public ] [ Static ] Sub </strong>过程名 （
[ 参数列表 ] ） <br>
<br>
　　　　　 [ 局部变量和常数声明 ] ‘用 Dim 或 Static 声明 <br>
<br>
语句块 <br>
<br>
[ <strong>Exit Sub </strong>] <br>
<br>
语句块 <br>
<b><br>
<strong>End Sub </strong></b></span></p>

<p>注意：<span lang=EN-US> <br>
<br>
1 ）缺省 [ Private | Public ] 时，系统默认为 Public ； <br>
<br>
2 ） Static 表示过程中的局部变量为“静态”变量； <br>
<br>
3 ）过程名的命名规则与变量命名规则相同，在同一个模块中，同一符号名不得既用作 Sub 过程名，又用作 Function 过程名。 <br>
<br>
4 ）参数列表中的参数称为形式参数，它可以是变量名或数组名，只能是简单变量，不能是常量、数组元素、表达式；若有多个参数时，各参数之间用逗号分隔，形参没有具体的值。
VB 的过程可以没有参数，但一对圆括号不可以省略。不含参数的过程称为无参过程。 </span></p>

<p>形参格式为：<span lang=EN-US> <br>
<br>
　　　　　　　 [ <strong>ByVal </strong>] 变量名 [ （） ] [ <strong>As </strong>数据类型 ] <br>
<br>
式中： <br>
<br>
变量名 [ （） ] ：变量名为合法的 VB 变量名或数组名，无括号表示变量，有括号表示数组。 <br>
<b><br>
<strong>ByVal </strong></b>：表明其后的形参是按值传递参数（传值参数 Passed By Value ），若缺省或用 ByRef ，则表明参数是按地址传递的（传址参数）或称“引用”（
Passed By Reference ）。 <b><br>
<br>
<strong>　　 As： </strong></b>数据类型 ：缺省表明该形参是变体型变量，若形参变量的类型声明为 String ，则只能是不定长的。而在调用该过程时，对应的实在参数可以是定长的字符串或字符串数组，若形参是数组则无限制。
<br>
<br>
5） Sub 过程不能嵌套定义，但可以嵌套调用。 <br>
<br>
6） End Sub 标志该过程的结束，系统返回并调用该过程语句的下一条语句。 <br>
<br>
7） 过程中可以用 Exit Sub 提前结束过程，并返回到下调用该过程语句的下一条语句。 </span></p>

<p><strong>（<span lang=EN-US> 2 ）建立 Sub 过程的方法 </span></strong></p>

<p><strong>方法一： </strong><span lang=EN-US><br>
<br>
1） 打开代码编辑器窗口 <br>
<br>
2） 选择“工具”菜单中的“添加过程” <br>
<br>
3） 从对话框中输入过程名，并选择类型和范围 <br>
<br>
4） 在新创建的过程中输入内容 </span></p>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -