VB60速成图解教材Word文件下载.docx

1、调整程序运行时，程序窗体在屏幕中的初始位置，把鼠标移到左图屏幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好了运行时此窗体的位置。好了说了这么多，还差一个区域没讲，那就是“代码编辑区域”，当我们在“窗体设计区域”双击鼠标，就能弹出这个区域，可以看到一行行的VB程序显示在其中，我们可以修改，写入程序代码，来让程序实现一定的功能，它是整个程序设计的关键，如果你对VB语言的语法还不是十分了解，可以继续下一节专门对“VB语法”的讲解，别着急，慢慢来，很快就能入门的。“VB工程管理器”：“组件属性窗口”：用来显示组件的属性，并允许我们修改，设定这些属性的值，我们在窗体设计区域的窗体上选中一个组件

2、，以按钮为例，则在“属性窗口”中会列出它的属性，我们可以看到常用的“Name”、“Capition”、“Font”等等属性，试着把“Capition”属性改为“这是一个按钮”，然后看看“窗体设计区域”的按钮上显示的文字是不是改变了。VB的简单语法学习“窗体布局窗口”：VB语言的语法和QBASIC基本一致，可以说如果你能读懂QBASIC程序，那你读VB的程序是没有问题的，这一节中我们只是简单的讲一讲VB的语法，因为在今后的各个实例中我们会不断接触到新的语法知识，这也是一个积累的过程。如果你还记得上节中的内容，我们提到过如果在“窗体设计区域”的某个组件（控件）上双击鼠标，会出现“代码编辑窗口”，也

3、就是如下图的窗口，我们可以在其中输入或是修改程序的代码。在我们双击控件到写入代码的这个过程中，我们涉及到了一个很重要的概念，这是VB与QBASIC的主要差别之一，大家知道在QBASIC包括Tubro C，TubroPascal等语言中程序从一开始就需要我们一点点的写代码来实现所有的功能，比如程序运行的界面，输入输出，键盘控制等，它们在程序中体现为一个个的过程或者是函数及子程序，它们都是完全面向过程的编程语言；但是现在的VB、VC、DELPHI等编程语言，都提供了可视化的编程环境，备有一整套常见的组件（控件）供我们使用，这些控件可以看作是对象（VB严格的说不是完全面向对象的编程语言），我们写程序

4、时会直接与这些对象打交道，而不象原来。所以在VB中大部分的代码是与这些相关的，例如下图所示的一段代码，它是我们在一个按钮（Command）上双击鼠标而由VB自动产生的一个子过程，Private Sub Command1_Click（）是子过程的开始，End Sub表示子过程的结束。然后我们可以在子过程中添加程序代码，也就是由我们自己来写当按钮被点击时，程序所做出的响应。下面我们便来分析一下这段代码。B中声明一个变量使用“Dim 变量名 As 变量类型”的方法，一般在程序中使用的到的变量都应该有变量声明，如上例中的a、b、i分别被定义为整型和字符串型变量，VB中的变量类型有以下几种：数据类型说明

5、Byte二进制数 Boolean 真假值 Integer 整数 Long长整型Single 实数 Double双精度型 Currency 货币 Date 日期和时间 Object 对象 String 字符串 Variant可变类型控制结构和循环结构是程序设计中常见的两种结构。计算机在运行程序的时候，执行语句的顺序是从上向下的。 有些简单程序可以只用单向流程来编写，但稍微复杂的程序就要靠控制语句来控制程序执行的流程。控制结构主要有两种，分支结构和循环结构。分支结构：分支结构事实上是一种选择，在不同的条件下选择执行不同的程序段。实现分支结构的语句有很多，最常用的是ifthenelse。例如： if

6、 条件 then 程序段一 else 程序段二 end if如果条件满足了，电脑将执行程序段一中的语句，然后跳过程序段二，执行下面的语句。如果条件不满足，电脑将跳过程序段一种的语句，执行程序段二，然后继续执行下面的语句。循环结构：循环结构就是让电脑反复的执行某一程序段落干次。 用DoLoop可以循环重复执行一语句块，且重复次数不定。 在已知循环次数的条件下，用Fornext可以反复执行统一语句块。以上两种结构你可以参照图中所示的代码，仔细体会一下，今天就讲这么多了，下节我们就要进入实例式的控件学习。简单的文本框TEXTBOX的例子 文本框控件（TextBox）是VB中最常用的控件。它是显示和输

7、入文本的容器，相当于一个文字编辑器，提供了所有基本的文字处理功能，例如文本的编辑等。在下面这个小程序中，我们能看到文本框控件（TextBox）的最基本的属性。为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：这个例子的两个窗体界面如下：主窗体窗体（FormBack）我们首先新建一个标准的EXE工程。添加两个窗体，并把TextBox、Button、Label控件放置在窗体上。各文本框的名称如下表：文本框名称名称属性会员编号文本框TextID电子邮件文本框TextMail密码文本框TextPassWord个人介绍文本框TextResume姓名文本框TextName会员信息文本框T

8、extAll在属性窗口中将TextPassWord的PassWordChar属性设为*；TextResume的Multiline属性设为Ture,ScrollBars属性设为2 -Vertical；TextAll文本框的Multiline属性设为为Ture, ScrollBars属性设为2 -Vertical，Appearance属性设为为0 - Flat。下一步我们为FormTxtBox窗体中“确定”（CmdOK）和“清除”（CmdClear）按钮的Click事件中添加相应的程序。其中：TextID.Text = 是把会员编号文本框中的内容清空，其它语句与此类似。FormBack.TextA

9、ll.Text = LblID.Caption & & TextID.Text _ & vbNewLine &该语句设置FormBack窗体中TextAll文本框的文本。vbNewLine是换行显示标志。“ _”是续行标志，当语句一行写不下时使用此标志，但要注意：前面要加空格。代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。简单的列表框ListBox的例子列表框（ListBox）控件表示一个选项清单，用户可能用鼠标选择其中一个或者几个选项。列表框的特点是：列表框中的项目是通过程序插入到其中的，用户无法向清单中输入数据，当选择其中的项目，并在用户单击一个按

10、钮或者执行某个操作时，由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点，并介绍了列表框（ListBox）的常用属性。这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下：窗体（FormListBox）我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表：按钮名称删除所选项目（左）List1movecmd删除所选项目（右）List2movecmd增加新项目（左）List1addcmd增加新项目（右）List2addcmd清除弄表（左）List1clearcmd清除列表（右）List2c

11、learcmd右箭头lefttorightcmd左箭头RighttoleftcmdList1列表框 Sorted属性设为“False” List2列表框 Sorted属性设为“True” MultiSelect属性设置为2 即List2控件中的项目总是排序的 在属性窗口中，将List1列表框 Sorted属性设为“False”；List2列表框 Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目总是排序的。下一步我们为各控件添加相应的程序。其中：List1.AddItem China 是将“China”添加到列表框中。List1.ListIndex

12、返回的是列表框List1中当前选择项目的索引号码。List1.ListCount 返回的是列表框List1中项目总数。List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。List1.Selected（） 返回的是一个项目的选择状态，返回的是布尔值。在这个小程序中，包含了列表框中的一般常用属性和方法。CommomDialog使用的例子 CommonDialog控件是常用的一个控件，它为我们提供了打开、另存为、字体、颜色、打印、帮助等几种类型的标准对话框，本例演示了所有这些类型的对话框的使用方法。 窗体（FormListBox） 即List2控件中的项目总是排序的

13、List2列表框 Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目总是排序的。如果控件面板中没有CommonDialog控件的小图标，必须先从“添加控件对话框”中添加，下面我们来看看怎样调用不同类型的对话框。CommonDialog控件有一系列的Show方法，例如：ShowOpen、ShowSave、ShowFont、ShowColor、ShowPrinter、ShowHelp等，这些方法的使用语法是类似的，如下所示：object.ShowOpen，我们只须在程序中写入这个语句，就能调出“打开”对话框，同样也能调用其它类型的对话框。而CommonD

14、ialog控件的属性是和不同的对话框类型紧密相关的，有些属性只适用于某一类对话框，有些属性在不同的对话框中的属性是有差别的，所以下面分类列出了和不同对话框相关联的属性的用法。与ShowOpen、ShowSave方法相关的属性：FileName属性：返回或设置所选文件的路径和文件名，如果在使用Show方法以前使用FileName属性，则设定了对话框的默认文件名；如果是在以后使用则返回选择的文件名。使用语法是： CommonDialog.Filename=pathname Filter属性：返回或设置在对话框的类型列表框中所显示的过滤器（也就是限定打开或保存为的文件类型），它的使用语法是：obje

15、ct.Filter = 描述文字1 |过滤标示1 |描述文字2 |过滤标示2其中描述文字为任意文字，而 过滤标示则采用*.文件后缀（例如：*.bmp）的格式，描述文字和过滤标示之间用“|”隔开。DefaultExt属性：为该对话框返回或设置缺省的文件扩展名，也就是当我们没有指定打开或保存的文件类型时，按DefaultExt属性所设置的扩展名为默认值。与ShowFont方法相关的属性：Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。FontBold 是否选定“粗体”。FontItalic 是否选定“斜体”。FontStrikethru 是否选定删除线。F

16、ontUnderline 是否选定下划线。FontName 选定的字体名称。FontSize 选定的字体大小。使用的语法是直接引用，比如我们要根据“字体对话框”返回的值设置文本框的字体，则直接采用语句：Text.Font=CommonDialog.FontnName 与ShowColor方法相关的属性：与ShowHelp方法相关的属性：HelpCommand属性 返回或设置需要的联机帮助的类型 HelpFile属性确定帮助文件的路径和文件名语法是： object.HelpFile = filename 下面看看CancelError属性，它设置当选取“取消”按钮时是否认为出错，使用的语法是：C

17、ommonDialog.CancelError= boolean （boolean指布尔型变量）如果我们把它设为True，则当使用者选取了“取消”按钮时程序会返回一个cdlCancel错误，通过捕捉这个错误并加以处理，我们就能避免程序的出错。具体的使用可在源码中看到实例。在状态栏中显示帮助信息 状态栏是VB中的一个很有用的控件，但是默认状态下它不在控件面板中，在我们使用它之前必须先添加，方法是按下Ctrl+T快捷键，在弹出的“Components”对话框中选中MS Windows Common Controls。这时在控件面板中会出现状态栏的小图标，双击此图标就能把它添加到窗体中。接下来我们根

18、据自己的需要来编辑状态栏，选中窗体上的状态栏，在鼠标右键菜单中选择“属性Properties”，这时会弹出如上图所示的对话框，我们选择“Panels窗格”。其中“Insert Panel”按钮用来添加状态栏中的窗格数目，当我们添加一个窗格后“Index”的值也会自动加一，在程序中我们通过窗格的索引值来引用窗格。下面的一些项目都是窗格的属性，我们可以在此设置也可在程序中控制它。比较常用的属性有：“Text”-在各个窗格中显示的文字；“Alignment”-窗格中文本的对齐方式；“Style”窗格的样式（选择0-sbrText为显示文本，选择6-sbrDate为显示日期等等）；“Bevel”-窗格

19、的凹凸状态。另外我们还可以在窗格中加入图片，方法是点击“Browse”然后选中图片文件。在本程序中我们在第一个窗格中动态显示帮助信息，在第二、三个窗格中分别显示日期和时间。那么怎样在程序中控制状态栏中显示的文本呢？例如我们希望鼠标移动到不同的按钮上时状态栏的第一个窗格中显示不同的帮助，则我们在按钮的OnMouseOver事件中加入如下语句即可：Private Sub CmdNew_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single） staSample.Panels（1）.Text = 清空文本框End

20、 Sub 同样的我们能为其它按钮等控件添加帮助信息。这样状态栏中就能动态显示帮助信息了。使用右键菜单的例子右键菜单能让软件的使用者快捷的完成操作，那么如何把右键菜单用在自己写的程序中呢？在这个小程序中我们能看到编辑并使用右键菜单的方法。（源程序下载）我们先打开菜单编辑器（在工具菜单中），然后添加一个一级菜单Popmenu，将它的Visible属性设为“False”，这代表菜单在程序运行时是看不到的，由于一级菜单是二级菜单的上级菜单，所以二级菜单也是看不到的。然后我们来添加几个二级菜单，注意每个菜单都有Caption属性和Name属性，这两个属性是必须写的，Caption属性是显示在菜单项上的内

21、容，而Name属性则是我们要在程序中引用菜单项的代号，类似与其它控件的Name属性。而菜单中分隔线是通过把Caption属性设为“-”来实现的。菜单编辑好后，就能在程序中引用并控制它，在本例中我们希望在文本框上点击鼠标右键时弹出这个右键菜单，则需要在文本框的MouseDown事件中加入控制语句：Private Sub RichTextBox1_MouseDown（Button As Integer,Shift As Integer,X As Single,Y As Single） If Button = 2 Then如果是鼠标右键按下时Form1.PopupMenu mnufile, 0, X, Y弹出右键菜单End IfEnd Sub其中MouseDown事件各个参数意义如下：button返回一个整数，用来标识该事件的产生是按下哪个按键，其中左键为0，右键为2，中间键为4 shift 返回一个整数，标示是否同时有Shift,Ctrl,Alt键按下x, y 返回一个