简单VB程序设计.ppt

第3讲 简单VB程序设计1 众所周知，众所周知，VBVB应用程序的执行是由事件驱动的，应用程序的执行是由事件驱动的， 当用户触发某一事件时，执行相应的事件过程，这些当用户触发某一事件时，执行相应的事件过程，这些 事件过程之间并没有特定的执行次序。但在每一个事事件过程之间并没有特定的执行次序。但在每一个事 件过程内部，是有一定的执行控制流程的，这就是通件过程内部，是有一定的执行控制流程的，这就是通 常所说的三种基本结构：顺序结构、分支结构、循环常所说的三种基本结构：顺序结构、分支结构、循环 结构。顺序结构是最简单的一种结构，该结构按语句结构。顺序结构是最简单的一种结构，该结构按语句 排列的先后顺序执行。本章的主要内容有：排列的先后顺序执行。本章的主要内容有：VBVB最基本最基本 的几个对象，与顺序结构有关的语句和方法。通过本的几个对象，与顺序结构有关的语句和方法。通过本 章的学习，可以进行简单章的学习，可以进行简单VBVB程序设计。程序设计。 退出退出 3.1 3.1 窗窗 体体 3.2 3.2 命令按钮命令按钮 3.3 3.3 标标 签签 3.4 3.4 文本框文本框 3.5 3.5 赋值语句赋值语句 3.1 窗 体 创建创建VBVB应用程序的第一步是创建用户界面。用户应用程序的第一步是创建用户界面。用户 界面的基础是窗体，各种控件对象必须建立在窗体上界面的基础是窗体，各种控件对象必须建立在窗体上 。 启动启动VBVB后，即在屏幕上显示一个窗体，如图后，即在屏幕上显示一个窗体，如图3-13-1所所 示。示。 3.1.1 3.1.1 窗体的主要属性窗体的主要属性 窗体的属性决定了窗体的外观和操作。窗体的大窗体的属性决定了窗体的外观和操作。窗体的大 部分属性可用两种方法来设置：通过属性窗口设置和部分属性可用两种方法来设置：通过属性窗口设置和 通过程序代码设置。有少量的属性不能在程序代码中通过程序代码设置。有少量的属性不能在程序代码中 设置。设置。 （1 1）Caption Caption 属性属性 设置窗体的标题内容。标题内容应概括说明本窗设置窗体的标题内容。标题内容应概括说明本窗 体作用。体作用。 （2 2）MaxButton MaxButton 属性和属性和 MinButton MinButton 属性属性 MaxButtonMaxButton属性为属性为TrueTrue，窗体右上角有最大化按窗体右上角有最大化按 钮；为钮；为FalseFalse时，无最大化按钮。时，无最大化按钮。 MinButtonMinButton属性为属性为TrueTrue，窗体右上角有最小化按钮窗体右上角有最小化按钮 ；为；为FalseFalse时，无最小化按钮。时，无最小化按钮。 （3 3）BorderStyle BorderStyle 属性属性 决定窗体边框式样及窗体是否能调整大小。决定窗体边框式样及窗体是否能调整大小。 （4 4）BackColorBackColor属性和属性和ForeColor ForeColor 属性属性 BackColorBackColor属性设置窗体的背景颜色，属性设置窗体的背景颜色，ForColor ForColor 属属 性设置窗体的前景颜色。窗体的前景颜色是执行性设置窗体的前景颜色。窗体的前景颜色是执行PrintPrint 方法时所显示文本的颜色。方法时所显示文本的颜色。 （5 5）HeightHeight属性和属性和WidthWidth属性属性 设置窗体的初始高度和宽度。其单位为设置窗体的初始高度和宽度。其单位为TwipTwip。 1Twip=1/201Twip=1/20点点=1/1440=1/1440英寸英寸=1/567=1/567cmcm。 （6 6）LeftLeft属性和属性和TopTop属性属性 用于设置窗体左边框距屏幕左边界的距离和窗体用于设置窗体左边框距屏幕左边界的距离和窗体 顶边距屏幕顶端的距离。其单位为顶边距屏幕顶端的距离。其单位为TwipTwip。 （7 7）NameName（名称）属性名称）属性 设置窗体的名称，在程序代码中用这个名称引用设置窗体的名称，在程序代码中用这个名称引用 该窗体。新建工程时，窗体的名称缺省为该窗体。新建工程时，窗体的名称缺省为 Form1Form1；添添 加第二个窗体，其名称缺省为加第二个窗体，其名称缺省为 Form2Form2，依次类推。为依次类推。为 了便于识别，用户通常给了便于识别，用户通常给 Name Name 属性设置一个有实际属性设置一个有实际 意义的名称。意义的名称。 （8 8）EnabledEnabled属性属性 属性值为属性值为TrueTrue或或FalseFalse，设置对象是否能够对用户设置对象是否能够对用户 产生的事件做出反应。一般在程序中设置，用于临时产生的事件做出反应。一般在程序中设置，用于临时 屏蔽对窗体或其它控件的的控制。屏蔽对窗体或其它控件的的控制。 （9 9）MoveableMoveable属性属性 属性值为属性值为TrueTrue或或FalseFalse，设置是否可以移动窗体。设置是否可以移动窗体。 （1010）VisibleVisible属性属性 属性值为属性值为TrueTrue或或FalseFalse，设置窗体是否被显示。用设置窗体是否被显示。用 户可用该属性在程序代码中控制窗体的隐现。户可用该属性在程序代码中控制窗体的隐现。 （1111）PicturePicture属性属性 设置在窗体中显示的图片。单击设置在窗体中显示的图片。单击PicturePicture属性右边属性右边 的按钮，弹出的按钮，弹出“ “加载图片加载图片” ”对话框，用户可选择一个图对话框，用户可选择一个图 片文件作为窗体的背景图片。若在程序中设置该属性片文件作为窗体的背景图片。若在程序中设置该属性 的值，需要使用的值，需要使用LoadPictureLoadPicture函数。函数。 （1212）WindowStateWindowState属性属性 设置窗体启动后的大小状态。设置窗体启动后的大小状态。 在在VBVB中，虽然不同的对象有不同的属性集合，但中，虽然不同的对象有不同的属性集合，但 有一些属性，如有一些属性，如Name Name 、EnabledEnabled、VisibleVisible、HeightHeight、 WidthWidth、LeftLeft、TopTop等，其它控件也有，且具有相似的等，其它控件也有，且具有相似的 作用。在后续的章节中，主要介绍各种控件常用的特作用。在后续的章节中，主要介绍各种控件常用的特 殊属性。殊属性。 3.1.2 3.1.2 事件事件 窗体最常用的事件有窗体最常用的事件有3 3种：种：ClickClick（单击）、单击）、 DbClickDbClick（双击）、双击）、LoadLoad（装入）。装入）。 1 1ClickClick事件事件 程序运行后，单击窗体触发该事件。程序运行后，单击窗体触发该事件。 2 2DbClickDbClick事件事件 程序运行后，双击窗体触发该事件。程序运行后，双击窗体触发该事件。 3 3LoadLoad事件事件 LoadLoad事件是窗体被装入内存工作区时触发的事件事件是窗体被装入内存工作区时触发的事件 。如果这个事件过程存在，就马上执行它。如果这个事件过程存在，就马上执行它。LoadLoad事件事件 过程通常用于启动程序时，对属性、变量的初始化以过程通常用于启动程序时，对属性、变量的初始化以 及装载数据等。及装载数据等。 【例例3.13.1】窗体上无最大化、最小化按钮，程序运窗体上无最大化、最小化按钮，程序运 行后，在窗体上装入一幅图片作为背景，当单击窗体行后，在窗体上装入一幅图片作为背景，当单击窗体 时，窗体变宽；当双击窗体时，则退出。程序运行界时，窗体变宽；当双击窗体时，则退出。程序运行界 面如图面如图3-23-2所示。所示。 事件过程如下：事件过程如下： Private Sub Form_LoadPrivate Sub Form_Load（）（） 装入图片装入图片 Form1.Picture Form1.Picture = = LoadPictureLoadPicture（“c“c： picpic ChangchengChangcheng. .wmfwmf“ “） End SubEnd Sub Private Sub Form_clickPrivate Sub Form_click（）（） 单击窗体单击窗体 Form1.Width = Form1.Width + 1000Form1.Width = Form1.Width + 1000 End SubEnd Sub Private Sub Form_Private Sub Form_DblClickDblClick（）（） 双击窗体双击窗体 EndEnd End SubEnd Sub 说明：上机时，可通过查找文件的方法找一个图说明：上机时，可通过查找文件的方法找一个图 片文件，参照本例中的格式输入即可。片文件，参照本例中的格式输入即可。 3.2 命令按钮 在在VBVB应用程序中，命令按钮是使用最多的对象之应用程序中，命令按钮是使用最多的对象之 一，常常用它接受用户的操作信息，触发相应的事件一，常常用它接受用户的操作信息，触发相应的事件 过程，以实现指定的功能。过程，以实现指定的功能。 3.2.1 3.2.1 属性属性 1 1CaptionCaption属性属性 设定命令按钮上显示的文本。设定命令按钮上显示的文本。 2 2DefaultDefault属性属性 该属性用于设置默认命令按钮。该属性用于设置默认命令按钮。 3 3StyleStyle属性和属性和PicturePicture属性属性 命令按钮上除了可以显示文字外，还可以显示图命令按钮上除了可以显示文字外，还可以显示图 形。若要显示图形，首先应将形。若要显示图形，首先应将Style Style 属性设置为属性设置为1 1，然，然 后在后在PicturePicture属性中设置要显示的图形文件。属性中设置要显示的图形文件。 4 4ValueValue属性属性 该属性只能在程序运行期间引用或设置。该属性只能在程序运行期间引用或设置。TrueTrue表表 示被按下，示被按下，FalseFalse（默认）表示未被按下。默认）表示未被按下。 3.2.2 3.2.2 事件事件 最常用的事件是最常用的事件是ClickClick事件。事件。 3.3 标 签 标签（标签（LabelLabel）主要用于显示不需要用户修改的文主要用于显示不需要用户修改的文 本。所以，标签可以用来标示窗体及窗体上的对象，本。所以，标签可以用来标示窗体及窗体上的对象， 如为文本框、列表框等添加描述性的文字，或者作为如为文本框、列表框等添加描述性的文字，或者作为 窗体的说明文字。窗体的说明文字。 3.3.1 3.3.1 属性属性 1 1CaptionCaption属性属性 设置标签要显示的内容。它是标签的主要属性。设置标签要显示的内容。它是标签的主要属性。 2 2BorderStyleBorderStyle属性属性 默认值为默认值为0 0，标签无边框；设置为，标签无边框；设置为1 1时，标签有立体边框时，标签有立体边框 。 3 3AutosizeAutosize属性属性 该属性用于设置标签是否自动改变尺寸以适应其内容。该属性用于设置标签是否自动改变尺寸以适应其内容。 4 4AlignmentAlignment属性属性 确定标签中内容的对齐方式。确定标签中内容的对齐方式。 5 5BackStyleBackStyle属性属性 该属性用于设置背景是否透明。该属性用于设置背景是否透明。 3.3.2 3.3.2 事件事件 常用常用ClickClick，DbClickDbClick事件。事件。 【例例3.23.2】修改例修改例3.13.1，在图片上加提示信息，在图片上加提示信息“ “请单请单 击图片击图片” ”，程序其它功能不变。程序运行界面如图，程序其它功能不变。程序运行界面如图3-23-2 所示。所示。 操作如下：在窗体上添加一个标签，将其操作如下：在窗体上添加一个标签，将其CaptionCaption 属性设置为属性设置为“ “请单击图片请单击图片” ”，BackStyleBackStyle属性设置为属性设置为0 0（ 透明），程序代码不变。透明），程序代码不变。 3.4 文本框 文本框（文本框（TextBoxTextBox）在窗体中为用户提供一个既能在窗体中为用户提供一个既能 显示文本又能编辑文本的区域。在文本框内，用户可显示文本又能编辑文本的区域。在文本框内，用户可 以用鼠标、键盘按常用的方法对文字进行编辑，例如以用鼠标、键盘按常用的方法对文字进行编辑，例如 进行输入、删除、选择、复制及粘贴等各种操作。进行输入、删除、选择、复制及粘贴等各种操作。 3.4.1 3.4.1 属性属性 1 1TextText属性属性 设置文本框中显示的内容。设置文本框中显示的内容。 2 2LockedLocked属性属性 设置文本框中的内容是否可编辑。设置文本框中的内容是否可编辑。 3 3MaxlengthMaxlength属性属性 设置文本框中允许输入的最大字符数。设置文本框中允许输入的最大字符数。 4 4MultiLineMultiLine属性属性 决定文本框是否允许接收多行文本。决定文本框是否允许接收多行文本。 5 5PassWordCharPassWordChar属性属性 当当MultiLineMultiLine为为FalseFalse时，该属性可设置显示在文本时，该属性可设置显示在文本 框中的替代符。框中的替代符。 6 6ScrollBarsScrollBars属性属性 决定文本框中是否有滚动条。决定文本框中是否有滚动条。 3.4.2 3.4.2 事件事件 文本框除支持文本框除支持ClickClick，DbClickDbClick事件，常用的还有事件，常用的还有 ChangeChange、LostFocusLostFocus事件。事件。 1 1ChangeChange事件事件 当用户输入新内容，或程序对文本框的当用户输入新内容，或程序对文本框的TextText属性属性 重新赋值，从而改变文本框的重新赋值，从而改变文本框的TextText属性时触发该事件属性时触发该事件 。 2 2LostFocusLostFocus事件事件 当用户按下当用户按下 TabTab键时光标离开文本框，或用鼠标键时光标离开文本框，或用鼠标 选择其它对象时触发该事件，称为选择其它对象时触发该事件，称为“ “失去焦点失去焦点” ”事件。事件。 3.4.3 3.4.3 方法方法 文本框最常用的方法是文本框最常用的方法是SetFocusSetFocus，使用该方法可把使用该方法可把 光标移到指定的文本框中，使之获得焦点。当使用多光标移到指定的文本框中，使之获得焦点。当使用多 个文本框时，用该方法可把光标移到所需要的的文本个文本框时，用该方法可把光标移到所需要的的文本 框中。其使用格式为：框中。其使用格式为： 1 1对象对象. .SetFocusSetFocus 【例例3.33.3】程序运行后，随着用户的输入，标签中程序运行后，随着用户的输入，标签中 同步显示出用户对文本框的内容更新的次数。运行效同步显示出用户对文本框的内容更新的次数。运行效 果如图果如图3-43-4所示。所示。 2 2编写事件过程如下：编写事件过程如下： Private Sub Text1_ChangePrivate Sub Text1_Change（）（） Static i%Static i% i = i + 1 i = i + 1 Label1.Caption = i Label1.Caption = i End Sub End Sub 请思考：标签中显示的数字是文本框中显示的字请思考：标签中显示的数字是文本框中显示的字 符个数吗？符个数吗？ 3.5 赋值语句 赋值语句是赋值语句是VBVB程序最常用、最基本的语句，它能程序最常用、最基本的语句，它能 为变量提供数据。另外，若要在程序代码中设置对象为变量提供数据。另外，若要在程序代码中设置对象 的属性，也要使用赋值语句。的属性，也要使用赋值语句。 赋值语句有两种格式：赋值语句有两种格式： 格式格式1 1： 变量名变量名= =表达式表达式 格式格式2 2： 对象名对象名. .属性名属性名= =表达式表达式 赋值语句的作用是：首先计算赋值语句的作用是：首先计算“ “=”=”右边表达式的值右边表达式的值 ，然后将该值赋给，然后将该值赋给“ “=”=”左边的变量或对象的属性。在格左边的变量或对象的属性。在格 式式2 2中，若对象名省略，则默认对象为当前窗体。中，若对象名省略，则默认对象为当前窗体。 例如：例如： x=2 x=2 把把2 2赋给赋给x x y=xy=x* *3 3 计算计算x x* *3 3的值的值 ，得，得6 6，把，把6 6赋给赋给y y x=x+1 x=x+1 计算计算x x+1+1的值，得的值，得3 3，把，把3 3赋赋 给给x x a$= “Hello“ a$= “Hello“ 把把“ “Hello”Hello”赋给赋给a$a$ Text1.Text=“Text1.Text=“你好！你好！“ “ 把把“ “你好！你好！” ”赋赋 给给Text1T