b程序b设计基础(2)学校资料

程序设计基础第2章、VisualBasic程序设计基本概念本章知识点事件驱动的编程机制对象的概念对象的属性、方法和事件VB中的窗体和基本控件程序开发的一般步骤书写代码规则工程文件的操作事件驱动的编程机制事件驱动：以事件为中心

程序的运行过程中，由用户的动作(事件)来决定程序代码的执行顺序。传统的”过程化”的应用程序 程序从第一行开始按照预定的顺序执行。开始过程1……过程N结束过程开始事件1……事件N结束消息处理循环事件VB应用程序的工作方式

VB应用程序采用了事件驱动的编程机制。每个窗体和控件都有一个预定义的事件集，用于识别动作。如果发生某个动作，而且在相关联的事件中存在代码，那么VB会调用该代码。VB编程本质：首先设计界面，然后在相应动作相关联的事件过程中编写代码。对象类和对象对象的属性、方法和事件类和对象类(class)是“模板“。对象是按类克隆的特定实例。类是一个抽象的整体概念，对象是类的实例化。12324512245对象对象类VB的工具箱中的各种控件代表了不同的类。当在窗体上画一个控件时，就将类转换为对象，即创建了一个控件对象，也简称为控件。VB中的类与对象对象的属性、方法和事件属性：用于描述对象的特征，如：猫的颜色等方法：是对象的动作，如猫能捉老鼠等动作事件：对象根据外部原因而作出的响应， 如：猫一看见老鼠就跑去捉。对象的属性所有对象都有自己的属性，用来描述对象特征。对象属性设置的方法：

方法一：在设计模式下，通过属性窗口直接设置对象的属性。

方法二：在程序的代码中通过赋值语句实现，其格式为：

对象.属性=属性值例如：Label1.Caption=“hello”对象的方法对象方法调用形式：

[对象.]方法名[参数列表]

如省略对象，表示在当前对象，一般指当前窗体。例如：Form1.Print“VB程序设计” 或Print“VB程序设计”

对象的事件事件过程是指该对象相应事件中的程序代码，是事件触发后处理的一段程序代码。事件过程的语句格式：

Sub对象名称_事件名称([参数列表])

程序代码

EndSub例如： SubButton1_Click() Label1.Caption=False EndSub窗体的常用属性、事件和方法创建VB应用程序的第一步是创建用户界面。用户界面的基础是窗体，各种控件对象必须建立在窗体上。窗体的常用属性窗体的属性决定了窗体的外观和操作。有两种方法设置窗体属性：通过属性窗口来设置通过程序代码来设置注意：大部分的属性可以同时通过两种方法设置，但也有些属性只能通过程序代码或属性窗口设置。1、窗体名称（Name属性）所有控件都具有Name属性在代码中标识控件，不会显示在窗体上。在同一个窗体中，不允许有两个控件同名。创建的对象，有默认的名称，默认为“Form1”、“Form2”等；最好给窗体的Name属性设置一个有实际意义的名称，如给一个登录窗体命名为

“FrmLogon"。注意：该属性必须在属性窗口中设置，在代码中为只读。2、BackColor属性和ForeColor属性

BackColor属性用于返回或设置窗体的背景颜色，

ForeColor属性用于返回或设置窗体中显示的文字的颜色。程序设计阶段设置程序运行阶段设置VB中有三种常用的方法表示颜色值：常

数值描

述vbBlack0x0黑色vbRed0xFF红色vbGreen0xFF00绿色vbYellow0xFFFF黄色vbBlue0xFF0000蓝色vbMagenta0xFF00FF紫红色vbCyan0xFFFF00青色vbWhite0xFFFFFF白色1、每种颜色都用一个常数表示，如表所示。BackColor=vbRed

2、通过QBColor函数指定颜色，参数里面是一个0到15的整数，分别代表的含义见表所示。

例如：QBColor(4)代表红色。值颜色值颜色0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色3、通过RGB函数可指定任何颜色。RGB函数要对三原色（红、绿、蓝）中的每种颜色，赋给从0到255中的数值，0表示亮度最低，255表示亮度最高。从而产生颜色值。例如：Form1.BackColor=RGB(255,0,0)‘设定背景色为红色。Form1.ForeColor=RGB(255,255,0)‘设定前景色为黄色。思考:将窗体Form1的背景色设置为红色，可使用三种方法：Form1.BackColor=RGB(255,0,0)Form1.BackColor=QBColor(4)Form1.BackColor=vbRed

3、BorderStyle边框类型属性确定窗体边框的类型，在程序运行时只读。用0~5的数字表示，也可以用VB预定义的常量。常数值描述vbBSNone0无边框，不可变窗口大小vbFixedSingle1固定单线框，不可变窗口大小vbSizable2双线边框，可变窗口大小vbFixedDoubleialog3双线框架，不可变窗口大小vbFixedToolWindow4固定工具窗口vbSizableToolWindow5可变工具窗口4、Caption标题属性 设置窗体标题栏上的文本内容，也是当窗体被最小化后出现在窗体图标后的文本。例： Form1.Caption=“Hello”写代码改变当前窗体的Caption属性有3种方法：

Me.Caption=“Hello” (如果对象是当前窗体，可用Me指代) Caption=“Hello”

(如果对象是当前窗体，可以省略对象名) Form1.Caption=“Hello”

(用窗体名称指代)5.Enabled属性

决定窗体或窗体上的控件是否响应用户的操作。

True：允许用户进行操作，并对操作作出响应（缺省值）。

False：禁止用户进行操作，不对任何操作作出响应。6.Visible属性（逻辑值）决定窗体或控件是否可见

True

：运行时控件可见（缺省值）。

False：运行时控件隐藏，用户看不到，但控件本身是存在的。

7、Font字体属性组该属性用来设置输出字符的各种特性，包括字体、大小等。

FontName属性:控件上所显示文字的字体类型，该属性的默认值为“宋体”。 例：Form1.FontName=“隶书”FontSize属性：决定控件上正文的字体大小。 例：Form1.FontSize=25注意：不能写成Form1.FontSize=“二号”FontBold属性:值为True则控件上所显示的文字字体加粗，值为False(默认值)不加粗。 例：Form1.FontBold=TrueFontStrikeThru属性:值为True则控件上所显示文字加删除线；值为False（默认值）则无删除线。 例：Form1.FontStrikeThru=TrueFontUnderLine属性：值为True则控件上所显示文字下加下划线，值为False（默认值）则无下划线.

例：Form1.FontUnderLine=TrueFontItalic属性:值为True则控件上所显示的文字为斜体，否则为标准（默认值）。 例：Form1.FontItalic=True8、Height、Width、Top和Left属性单位为缇（twip）：1厘米=567twip注意：

Height、Width属性决定窗体的大小；

Top、Left属性决定窗体在屏幕中的位置。注意：窗体中控件的Top和Left属性是相对于窗体而言的。10、ControlBox（控件菜单）属性设置为False则无控件菜单，同时窗体也无最大化、最小化、关闭按钮，即使MaxButton属性和MinButton属性设置为True。为True(默认值)有控件菜单；为了显示控制菜单框，还必须将窗体的

BorderStyle属性值设置为

1（固定单边框），2（可变尺寸）或

3（固定对话框）。

9、MaxButton（最大化按钮）属性和MinButton（最小化按钮）属性当值为Ture，最大或最小化按钮可用，False则禁用。11、Icon（控制图标属性）返回或设置窗体左上角显示或最小化时显示的图标。注意：此属性必须在ControlBox属性设置为Ture才有效12．Picture图片属性设置窗体中要显示的图片，可用来给窗体界面设置背景图案。13、MousePoint属性该属性设置鼠标指针的形状，默认值为0。14、AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示该窗体时，是否重新还原该窗体被隐藏或覆盖的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。当为True时，重新还原该窗体以前的画面。当为False时，则不还原该窗体以前的画面。15、WindowState属性

该属性用来设置窗体的操作状态，可以用属性窗口设置，也可以用程序代码设置。常数值描述vbNormal0（默认值）正常VbMinimized1最小化（最小化为一个图标）VbMaximized2最大化（扩大到最大尺寸）窗体的常用事件1、Click/DblClick事件：单击/双击窗体触发。2、Load事件：窗体被装载时触发的事件。该事件通常用在启动应用程序时对属性和变量进行初始化。3、Unload事件卸载窗体时触发该事件。4、Resize事件无论是因为用户交互，还是通过代码调整窗体的大小，（即改变窗体的Width和Height属性时）都会触发一个Resize事件5、MouseDown事件和MouseUp事件在窗体上按下或释放鼠标键时触发。MouseDown事件能够区分出鼠标的左、右、和中间按钮。也可以为使用ALT,CTRL和SHIFT等键盘换挡键编写用于鼠标—键盘组合操作的代码。PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)EndSub6、MouseMove事件 在窗体上移动鼠标时触发。MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标，否则，当鼠标位置在对象的边界范围内时该对象就能接收MouseMove事件。7、KeyDown、KeyUp和KeyPress事件KeyDown事件：按下键盘上某个键时产生。KeyUp事件：按下键盘上某个键并释放时产生。KeyPress事件：按下键盘上某个键时产生，但后于KeyDown事件，先于KeyUp事件。ANSI字符集：用0—255之间的数字表示键盘上的符号。参见书302页窗体的常用方法

窗体常用的方法有：移动Move、显示Show、隐藏Hide、清除Cls等方法。使用的形式:[对象.]方法[参数列表]

例如：Form1.Show1、Show方法

用于在屏幕上显示一个窗体，调用Show方法与设置窗体Visible属性为True具有相同的效果。其调用格式如下：

窗体名.Show[vbModal或1|vbModeless或0]说明：当参数为vbModal/1时，为模态窗体，表示要求用户必须对当前的窗口或对话框做出响应，最后必须关闭或隐藏模态窗口，才能切换到其它窗口。当参数为vbModeless/0时，为非模态窗体，表示用户不必对当前的窗口或对话框做出任何响应，便能切换到其它窗口。2．Hide(隐藏)方法该方法用以隐藏窗体。隐藏窗体时，它就从屏幕上被删除，其

Visible属性变为

False。

其调用格式为：窗体名.Hide3.Move方法形式:

对象.Move<Left>[，Top[，Width[，Height]]]作用:

移动窗体或控件，并可改变其大小。对象：可以是窗体及除时钟、菜单外的所有控件，省略代表窗体。Left:

必需的。单精度值，指示对象左边的水平坐标

(x-轴)。Top:

可选的。单精度值，指示对象顶边的垂直坐标

(y-轴)。Width:

可选的。单精度值，指示对象新的宽度。Height:

可选的。单精度值，指示对象新的高度。5、Cls方法形式:[对象.]Cls

作用:

清除运行时在窗体或图形框中显示的文本或图形。注意:

不清除在设计时的文本和图形。清屏后当前坐标 回到原点，即CurrentX=0和CurrentY=0。CurrentX和CurrentY控制屏幕打印的起始位置。窗体的生命周期VisualBasic窗体在整个存活期中有4种状态： 创建状态、加载状态、可见状态、卸载状态。（1）窗体的创建Form_Initialize事件是创建状态开始的标志。该事件里的代码是窗体创建时最先执行的代码。处于窗体创建状态时，窗体未显示在屏幕上，并且窗体中的控件不存在。（2）窗体的加载执行Form_Load事件过程中的代码创建和加载窗体上所有的控件，Form_load事件中可以访问窗体中的控件。窗体满足以下任何条件都会被加载。1）该窗体在“工程属性”对话框的“通用”选项卡中被指定为启动对象。2）该窗体中首先被调用的属性或方法是Show方法。3）首先被调用的窗体属性或方法是窗体内置的成员4）用Load语句加载窗体。注意：Form_Load事件过程在窗体的存活期只运行一次

（3）窗体的显示或隐藏显示窗体：窗体名称.Show隐藏窗体：窗体名称.Hide

窗体在卸载前可以被任意隐藏或显示。说明：在程序中，可使用它的Visible属性，判断一个窗体是否处于可见状态。（4）窗体的卸载窗体卸载前发生Unload事件。

该事件发生前，有另一个重要事件发生，即QueryUnload事件。

如何结束应用程序只有当所有可见的及隐藏的窗体都卸载时，应用程序才停止运行

应用程序只有一个窗体时，可用UnloadMe语句结束程序当有一个以上的窗体时，用End语句结束程序。多重窗体添加窗体删除窗体显示窗体关闭窗体设置启动对象2.4.1标签控件

标签控件的图标为

，英文名称为Label。特点：用于显示信息，不能作为输入信息的界面。

通常用标签控件来做一些说明，如图中的“用户名”、“密码”。

标签控件的属性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同。

1、常用属性（1）Caption属性指定标签显示的内容。（2）AutoSize属性值为True时，标签大小根据内容进行水平调整；值为False时，标签大小不根据内容水平调整。（3）WordWrap属性值为True时，标签大小根据内容进行垂直调整；值为False时，标签大小不根据内容垂直调整。注意:WordWrap是根据单词换行的，英文的单词根据空格区分，而汉字则是每字一个单词。（4）BackStyle属性该属性指定

Label控件的背景是透明还是非透明。Backstyle为1（默认值）时，不透明。

Backstyle为0时，透明。并忽略该控件的

BackColor属性。（5）BorderStyle属性该属性用来设置或返回控件是否有边框。BorderStyle值为0（默认值）时，无边框。BorderStyle值为1时，有边框。

2、标签的常用事件Click/DblClick事件2.4.2文本框

工具箱中文本框控件的图标为，英文名称为TextBox。用途：在程序运行过程中接受用户输入的数据，也可用来显示程序的运行结果。

Name、Height、Width、Top、Left、Enabled、Visible、ForeColor、BackColor等属性与标签控件、窗体控件相同。

1．其它常用属性（1）Text属性Text属性指定了文本框控件实际显示的文本。有三种方式设置Text属性：设计时在“属性”窗口设置运行时通过代码设置在运行时由用户输入注意：文本框没有Caption属性（2）PassWordChar属性当

PasswordChar属性设置为长度为

0的字符串

(“”)（默认值），显示实际的文本。当

PasswordChar属性设置为任意一个字符（通常Windows的应用程序使用星号“*”），文本框中就只显示该字符。此属性不影响Text属性里面的真实内容。（3）MaxLength属性该属性值设定在文本框控件中能够输入的最大字符数。为0时，表示文本框中可以输入任意长字符数，但不得多于65535例如：执行下列语句后，窗体上文本框内显示“abcdefghij”。

Text1.MaxLength=10 Text1.Text="abcdefghijk12345"（4）MultiLine属性该属性值设定Text字符串中是否接受能换行符。为False（默认值）时，文本框中忽略回车符并将内容限制在一行内。为True时，文本框允许显示多行文本。在程序设计阶段，输入的文本未到边界时，换行应按Ctrl+回车键。在程序运行阶段，用赋值语句修改Text属性时，换行必须加入回车符及换行符才可换行。例如：Text1.Text="

one"&Chr(13)&Chr(10)&"

Two“或：Text1.Text="one"&VBCrLf&"Two“（5）ScrollBars属性该属性决定是否为文本框加滚动条。当文本过长，超出文本框的边界时，应该给该控件添加滚动条。ScrollBars的属性值有下列几种：为0（默认值）时，无滚动条。为1时，加水平滚动条。为2时，加垂直滚动条。为3时，同时加水平和垂直滚动条。注意：加滚动条必须先将MultiLine属性设为True（6）文本编辑相关属性主要有下列几个：SelStart属性：

返回或设置所选择文本的起始点；如果没有文本被选中，则指出插入点的位置。SelLength属性：返回或设置所选择的字符数。SelText属性：返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串

(“”)。注意：窗口焦点问题。在代码中控件获取焦点的方法:

控件名.setForcus（7）Locked属性设置文本框是否可以允许用户直接编辑输入。若为True，则用户不能直接更改文本框的内容；若为False,则用户能直接更改文本框的内容。注意：区别于Enable属性。文本框的常用事件（1）Change事件当文本框中的内容改变时，触发该事件，它的特点是即时性的，可以随时看见改变的效果。（2）Keypress事件用户在文本框中按任意键触发。该事件过程有一个形参变量KeyAscii，获取按键的Ascii码。例：编程将输入到TextBox控件的文本转换为大写。解：1）界面设计，如图所示。2）代码设计。PrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=Asc(UCase(Chr(KeyAscii)))EndSub2.4.3命令按钮

工具箱中的图标为。英文名称为CommandButton。命令按钮控件的Caption属性、控件名称的默认值都为Command1、Command2……（1）Caption属性该属性定义了按钮上显示的内容；可利用命令按钮控件的Caption属性为该按钮设置快捷键（字母）：若命令按钮