VB6.0图文实例教程

1、VB教程：序言-不再游戏我们需要什么我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每

2、一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。VisualBasic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的硏制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，帝国时代之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手Delphi，

3、有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。VB的诞生VB的出现可以说是MicrosoftWindows的日渐成熟的必然产物。MicrosoftWindows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具-称之为MicrosoftWindows的软件开发工具箱(SDK)，该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况

4、。在这一开发环境中，程序员唯一困难的是MicrosoftSDK提供了六百多个函数和与其一致的事件驱动(event-driven)编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，吏用简单的新工具VisualBasic由此诞生。何为可视英文Visual的意思是“视觉的:“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到V

5、B的界面就会明白,实际上你无需编程,就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。我的希望：我在学习VB的过程中也曾遇到了许多困难，而且用的参考书大都来自译文，毕竟美国人和中国人的表达方式有所不同。这也造成了理解上的困难，所以我想为什么我不能写一个给中国人看到VB教程呢，于是我这么做了。也曾经在杂志上发表过几篇用VB制作/程序

6、的文章，但受杂志的限制（篇幅、内容等等）（我得听小编的），总没有一个机会系统的介绍一下VB，造成了小小的遗憾。不过，我自己的主页建好后，终于这个愿望可以实现了，利用HTML可以方便的把文字与图片结合起来，不失为一个教学良所，也希望能够得到大家的支持。希望“VB教程”能给你我一个互相学习的机会，如果你能从中获益那将是我最大的快乐，那时你一定会发现编程比游戏有趣得多。:）VB教程：第一章-HelloWorld!文章来源：vb大世界没学过编程的人常常会问，编程难不难，这个问题很$难回答。难，的确很难，要编一个好的程序尤其是这样，并且有些程序还要用到一些其他专业的知识，比如说一个图形处理程序，就要对图

7、像的格式有所了解，甚至一些美术知识；但编程也很容易，就拿VB来说，编一个自娱自乐的小工具还是一件相当惬意的事情呢，当然它没法完全代替人工譬如说完成你的家庭作业、向学校发射导弹作为第四代计算机语言，VB的特点是显而易见的。因为是“可视的”所以我们不妨先看看VB的界面（图1_1）（我用的是VB4.032位版），很容易可以看到，屏幕上有五个窗口，（1）是菜单栏；（2）是工具箱（ToolsBox），里面是VB所需的控件；（3）是VB程序要设计的窗体（Form）；（4）控件及窗体的属性（Properties），在VB中每一个控件都有其自己的属性，比如文本框有Text属性，而任何一个控件都有一个自己唯一的

8、名字，这使得我们无需编程就可以完成部分编程的工作；（5）是VB的文件控制窗口，VB的每一个程序称为一个项目（Project），一个项目文件里往往包括以下两种文件，窗体（Form）文件和模块（Bas）文件，当然还有Class文件，这些文件组成一个完整的程序，而项目文件（Vbp）则用来描述程序所包含的内容。实际上，我一直认为学习的最好方法就是实际操作一下，好，下面我们就来看一个最简单的程序，和所有的编程教科书一样，我们把第一个程序称为“Hello,world!”。首先，我们先来熟悉一下窗体。如果你用过Win95附件所带的画图板的话，那么你一定会很快熟悉VB的窗体设计方法，用鼠标单击一下工具箱中的任

9、何一个控件，然后在窗体上任意拖动鼠标，你就会得到一个所需的控件；当然还有其他的方法得到控件，你可以在工具箱上双击得到一个控件；或是按住Ctrl键，再单击所需控件，重复第一次的步骤，你会发现，不用再回去点击工具箱了，点右键可以恢复鼠标指针，这样对于重复画同一个控件尤其有用。对于我们的第一个小程序，知道这些就已经足够了。现在你可以在我们的窗体上画如下控件一个图片框(PictureBox)腥|，用来显示图画，每一个控件建立的时候，系统都会给它设一个默认的名字(Name)，这个PictureBox的名字就叫做Picture为了方便起见，我们以后的控件都使用缺省的名称。选定Picture,在左边的属性窗

10、口中找到Picture属性,单击会出现静，点击为Picture选一个图像文件，VB支持的图像文件有BitMap、WMF、ICO三种，微软为用户提供了一套图标文件，存放在VB目录的Icons目录下，选择Iconsmiscface01.ico文件，这样图标就被装入了Picture。再选择Pictruel的Autosize属性，设为1-True,则会发现Picture以变成和图像一样大了；把BorderStyle定为0-None,去掉图片边框。用同样的方法再添加两个图片框：Picture2(Picture:face02.ico),Picture3(Picture：face03.ico)。图片框完成了

11、，第二步，建立三个无线钮(OptionButton“,由于它象收音机的无线电按钮而得名),把它们的标签名属性(Caption)分别定为“悲哀”，“高兴”，“没治了”，放置成图1_2的样子。最后我们还需要三个文本框（TextBox）甌，分别把它们的Text属性设为”（空字符串），程序的最后界面如图1_3，这样按下菜单窗口的运行按钮，运行一下程序，还可以吧，不过现在程序还无法工作，就算是VB也不能免俗,还必须输入代码才能使程序运作。VB是一门典型的面向对象编程的语言，它的整个程序都是由事件驱动的。那么，什么是事件呢？其实，我们的生活中充满了各式各样的事件，比如说“闯红灯”这个事件的发生会导致被警察

12、追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽，但它可以清楚的解释事件的含义，就象你马上就能体会到的在什么地方单击鼠标时会发生什么，按下键盘时会发生什么，这就是事件，而事件就是这么容易。要进入VB的代码设计区，只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如图1_4，每一个VB程序都由若干小程序组成，这使得用VB编程更加容易，这些小程序，分为“过程”（Procedure)和“函数”(Function),二者都可以传递参数,所不同的是函数有一个返回值，而过程没有，仅此而已。双击窗体的任何一个部分，将出现一个空的过程：“Form_Load()”，这是一个非常重要的过程，它所驱动的事件就是

13、该窗体被加载的事件，打个比方，就象计算机启动时的批处理程序(Autoexec.bat)。这个程序里我们要对控件进行一些设置。我们刚才也曾对控件进行设置，但那是在程序设置中进行的，有时我们也需要在程序中改变某些控件的属性，通过程序代码。VB中规定，一个控件属性的访问方法：名称.属性，于是我们对本程序的控件进行如下设置：PrivateSubForm_Load()Picture1.Visible=FalsePicture2.Visible=FalsePicture3.Visible=FalseText1.Visible=FalseText2.Visible=FalseText3.Visible=Fa

14、lseEndSubPrivate表示此过程是局部的，Sub表示子过程的开始，与之相对的是EndSub表示过程的结束，Visible属性表示控件的可见性，这个属性的值有两个True和False。总注意：VB里对大小写是不加区分的，而且，已定义的名称，以后再用到时，系统会自动把它变成相应的大写或小写。小知识：VB里的对变量及常量的规矩。变量一般为Abe的格式，常量为ABC，另外这些变量和常量名不得同VB内的关键字相同,也不可以使用一些特殊符号,这些我们将在以后介绍，注意在学习中养成好习惯，使程序便于自己和别人的浏览。程序书写的窍门：不要真的一句一句把程序打完，利用快捷键：拷贝Ctrl+C,剪切Ct

15、rl+T，粘贴Ctrl+P。按下F5，运行一下程序，现在发现只剩下无线钮了。如图1_5。PrivateSubForm_Load()Picture1.Visible=FalsePicture2.Visible=FalsePicture3.Visible=FalseText1.Visible=FalseText2.Visible=FalseText3.Visible=FalseOption4.Left=-2000Option4.Value=TrueEndSubLeft属性表示控件离窗体左边框的距离，设置为-2000,则在窗体内不会看到这个控件，并使之Value二True。再运行程序，一切如愿，如图

16、1_6.広注意：为什么不用Option4.Visible二False？因为，一旦设置无线钮为不可见，那么再使它的Value为真是没有意义的，不信自己试试。下面我们可以继续进行了。在刚才的代码窗口里，将Object选择为Option，Proc选择为Click，即得到一个0ption1_Click的过程。代码如下：PrivateSubOption1_Click()Picture1.Visible=TruePicture2.Visible=FalsePicture3.Visible=FalseText1.Visible=TrueText2.Visible=FalseText3.Visible=Fal

17、seText1.Text=再见，残酷的世界EndSub相同的建立Option2_Click和Option2_Click:PrivateSubOption2_Click()Picture2.Visible=TruePicture1.Visible=FalsePicture3.Visible=FalseText2.Visible=TrueText1.Visible=FalseText3.Visible=FalseText2.Text=今天心情不错。EndSubPrivateSubOption3_Click()Picture3.Visible=TruePicture2.Visible=FalsePi

18、cture1.Visible=FalseText3.Visible=TrueText2.Visible=FalseText1.Visible=FalseText3.Text=Hello,WorldEndSub好，我们的开山之作完成了！按下F5，玩一下吧。这个程序虽然简单，但也用到了许多基本知识，你开始感兴趣了吗？A_AVB教程：第二章-事件、属性及数据类型文章来源：vb大世界以后两章可能会比较枯燥，但不可否认也很重要,所以为了学好VB,我们一定$要打好基础才行。一、事件通过上一章的例子，你可能对“面向对象的编程”已经有了一定了解，它是由事件驱动的，对于不同的对象，所能感应到的事件也会不同，譬如

19、说当你把鼠标移进某一区域时就会触发MouseMove事件，这很直观，也容易理解，但也有些事件比较抽象，下面我来对一般的事件进行一下解释。窗体和图象框类事件Paint事件：当某一对象在屏幕中被移动，改变尺寸或清除后，程序会自动调用Paint事件。注意：当对象的AutoDraw属性为True(-1)时，程序不会调用Paint事件。Resize事件：当对象的大小改变时触发Resize事件。Load事件：仅适用于窗体对象，当窗体被装载时运行。倉Unload事件：仅适用于窗体对象，当窗体被卸载时运行。当前光标(Focus)事件GotFocus事件：当光标聚焦于该对象时发生事件。LostFocus事件：当

20、光标离开该对象时发生事件。注意：Focus英文为“焦点”、“聚焦”之意,最直观的例子是,比如有两个窗体,互相有一部分遮盖，当你点下面的窗体时，它就会全部显示出来，这时它处在被激活的状态，并且标题条变成蓝色,这就是GotFocus事件,而相反,另外一个窗体被遮盖,并且标题条变灰,称为LostFocus事件。上面所说的“光标”并非指鼠标指针。鼠标操作事件Click事件：鼠标单击对象。DbClick事件：鼠标双击事件。倉MouseDown、MouseUp属性：按下/放开鼠标键事件。倉MouseMove事件：鼠标移动事件。倉DragDrop事件：拖放事件，相当于MouseDown、MouseMove和

21、MouseUp的组合。DragOver事件：鼠标在拖放过程中就会产生DragOver事件。键盘操作属性&KeyDown、KeyUp事件：按键的按下/放开事件。倉KeyPress事件：按键事件。改变控制项事件Change事件：当对象的内容发生改变时，触发Change事件。最典型的例子是文本框（TextBox）。倉DropDown事件：下弹事件，仅用于组合框（ComboBox）对象。倉PathChange事件：路径改变事件，仅用于文件列表框（FileBox）对象。其他事件Timer事件：仅用于计时器，每隔一段时间被触发一次。二、属性每个对象都有它的属性,并且“Name”属性是共有的,有了“Name

22、”属性才可以在程序中进行调用。对于属性，可以在窗体的布局操作中完成，也可以在程序运行中改变，这取决你的需要，但有些属性是只读的，它只能在控件布局时改变。我将在以后的实例中具体介绍各个属性的作用。三、数据类型学过编程的人都知道大多数的计算机语言都规定了各自的数据类型，VB也不例外。其实，在一个最简单的程序中数据类型是可以不作规定的，也就是说，变量可以使用各种类型，但是在一个复杂的程序里，这样做就很危险，因为很可能给同一个变量赋予了不同的类型，而导致程序出错。所以，为了程序的严谨和便于查看，正确的定义数据类型是必要的。定义数据的另一个原因是，不同的数据占用不同的内存数量，譬如整型（Interger

23、）数据占2字节，而长整型数据占4个字节，定义合适的数据类型，不管你相信不相信，它可以节省内存！VB常用的数据类型有：整型（Integer，表示-32768至32767之间的整数）、长整型（Long，表示-2,147,483,648至2,147,483,647之间的整数）、实型（Single，表示-3.37E+38至3.37E+38之间的实数）、双精度实型（Double，表示-1.67E+308至1.67E+308之间的实数），字符（String，每个字符占一字节，可以储存065,535个字符），布尔（Boolean，只有两个值True/-1，或False/0）。数据类型的定义方法：定义变量最简

24、单的方法是用“Dim”关键字，它的语法：Dim【变量名】As【数据类型】如：DimIndexAsInteger也可以在一行中定义多个变量，如：DimIndexAsInteger,DimNumberAsLong把多个变量定义成同一类型可以写成：DimIndex,NumberAsInteger有时为了简便，也以符号进行简单的定义，作用是和上面一样的。整型可以用“%”代替，长整型可以用“&”代替，实型可以用“!”，双精度实型可以用“#”定义，如刚才的第一个例子可以写成：DimIndex%等价于DimIndexAsInteger对于常量的定义用Const定义，如：ConstCOLOR=255。为了在程

25、序中便于查阅，我们对变量和常量的写法进行规定，变量一般用小写方式，常量则全部大写。注意：使用常量的好处，对于程序中经常出现的数值，应设常量等于它，这样一是书写方便，其二，如果要改变该数值，只需改变定义常量的语句值，而不需改变每个语句，提高了效率。数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如：DimIntegerArray(99)AsInteger这个数组中包含100个元素，脚标从0到99。也可以指定脚标的起始值，例如：DimIntegerArray(2to10)AsInteger这个数组含有九个元素，脚标从2到10。还可以定义多维数组：DimThreeD(4,2to5

26、,3to6)AsInteger上例定义了一个三维数组(4x4x4)o记录的定义记录定义是把控制权交给用户的方法，它让用户可以定义自己的数据类型，它使用关键字“Type”，方法是：Type【数据类型标识符】域名As数据类型域名As数据类型域名As数据类型EndType例如，定义一个地址数据：TypeAddressStreetAsStringZipCodeAsStringPhoneAsStringEndType这个地址数据里包括三个属性，街区、邮政编码和电话，可以把某数据定义成此类型：DimMyHomeAsAddress要调用或改变“MyHome”的值时，类似于对对象的属性的操作：变量名域名二“”

27、为了简化书写重复的部分,可以用关键字“With”：WithMyHome.Street二”阜成路”.ZipCode=”100037”.Phone=”12345678”EndWithVB教程：第三章-VB语言文章来源：vb大世界、VB与BasicVB之所以叫做“VisualBasic”就是因为它使用了Basic语言作为代码，所以它们之间有着千丝万缕的关系，如果学过Basic的话，看到VB的程序结构会感到很亲切。但VB作为新生物，也超越了Basic的限制，有了许多自己的特点：凰VB建立了一种新的变量类型货币型变量，通过使用仅带有二位小数的货币变量，就能避免因使用实型变量而带来的数值积累误差问题。凰V

28、B在调用函数（Function）时，必须在函数名后跟一对括号。凰VB对白兰地使用范围重新做了规范，在Basic里把隐含变量都当作全局变量，而在VB里对隐含变量都当作局部变量。凰VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。凰使用数组，必须事先用Dim或Redim进行定义。二、注释语句在使用注释语句之前必须先了解注释的作用，注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。以后注释语句将是我们在编程里最经常用到的语句之一。在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理

29、文件的用法一样，还有一种是利用单引号“”，例如：DimaAsString与RemDimaAsString的作用是一致的。三、长语句的分行在比较早的版本中，因为没有象C等语言用“；”隔开语句与语句，VB的语句是必须写在一行里的，不过后来版本的VB里如许用分行符“_把一个长语句分成若干行来存放。四、条件语句如果你学过任何一种编程的话，都会知道在程序里控制其流程的有两种语句，条件与循环，VB自然也不例外，其实不管哪种语言，条件和循环的样子都差不多，只不过各有各的规矩罢了。在条件语句里，我们先来学习“IfThen”语句。它的一般语法是：If条件Then语句语句EndIf与C语言不同，VB的条件语句更符

30、合英语的语法,如果Then后面所跟的语句只有一条,可以写成：If条件Then语句而不用EndIf。有时我们还会用到If条件Then语句Else语句EndIf更可以在Else里在嵌套If语句，如If条件Then语句ElseIf语句Else语句EndIf所有这些可以用一个表格表示：条件1TrueFalse语句1条件2TrueFalse语句2条件3TrueFalse条件NTrueFalse语句N语句N+1用了过多的Else后你会感到很不方便，而且程序结构也不清晰，所以大多数的语言还有Select语句帮助解决这个问题。VB里的Select语句的格式是这样的：SelectCase变量名Case情况1Ca

31、seCaseAaa3vCaseE-seEndse-ectf.se-ectCasea%Case1prinr+MaHleCase2Print二CaseE-sePrintMdoesnotequa-to1or25Endse-ecttHIs可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。C语言里有一个“for11循环语句,VB里也有“For”关键字，作用也差不多，只是VB的“For”语句更容易理解。它的格式是：For循环变量=初赋值To终值Step步长Next循环变量在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值

32、，例如：Dima=0ForI=1To10a=a+INextI这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只不过是倒着加罢了，请看：Dima=0For1=10To1Step一1a=a+INextIWhile语句也是一个很常用的循环语句，它的形式很多。凰DoWhileLoop语句凰WhileWend语句凰DoLoopWhileWhile后面都跟逻辑条件判断，“DoWhileLoop语句”和“WhileWend语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。

33、“DoLoopWhile”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until条件可以相当于WhileNot条件。For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。六、运算操作数学运算画+：加法运算，也适合于字符串的之间的合并运算。凰:加法运算。凰*:乘法运算。W:除法运算。凰:整除运算。凰Mod:求余运算。例如：aModb表示a被b整除以后的余

34、数。凰八：幂运算。AAB表示以A为底的B次方。关系运算关系运算也称比较运算，它表示不等式的真或假，VB共提供六种运算符，分别是=（等于），（大于），（小于），=（大于等于），=（小于等于）和（不等于）。逻辑运算逻辑运算是对真或假的运算，我将列表说明：ABNotAAndOr或XorEqvImp非与异或相等蕴含TTFTTFTTTFFFTTFFFTTFTTFTFFTFFFTTTTrueFFase七、数据与定义本标题的内容已经在上一章向大家详述过，在这里就不再重复。八、函数与过程函数与过程有许多相似的地方，它们之间最大也是最本质的区别就在于，函数有一个返回值，而过程只是执行一系列动作,所以可以简单的把

35、函数理解成为一个变量,而VB中的每个事件都是一个过程，比如Command1_Click()就是一个过程。因为在程序设计中经常会有重复的地方，所以把它做成一个函数或一个过程，在使用时进行调用，可以节省大量的输入代码的时间，而且使用函数和过程也便于程序的结构化和修改查看。函数和过程都可以有参数，也可以没有参数。关于函数和过程我将在以后的章中配合实例讲解，请您继续留意VB教程。VB教程：第章-按钮文章来源：vb大世界从本章开始我们将正式进入VB的编程世界，但这还$仅仅是个开端，要编出功能强大的软件，还要学很多东西，那就要看以后的VB高级教程了，我也得努力学啊！按钮是我们在Windows操作见到最多的

36、控件，它们有着各种各样的功能：“确认”、“取消”、“下一步”等等，这些都是按钮的表现，另外还有很多图形话的按钮，其实它们并没什么不同，所有的按钮都是通过单击（click）事件实现的，只不过是在外表不同罢了。下面就让我们建立一个最简单的按钮，双击工具箱的CommandButton，将在窗体上建立一个形如图4-1如药山的按钮，它的缺省名（Name属性）为Command,我们可以把它改名为cmdExit,把Caption属性设为“退出”，然后双击，按钮填写代码：PrivateSubcmdExit_Click()UnloadMeEndSub按下F5或者工具条上的播放按钮，运行程序。图4-2当你按下退出

37、按钮的时候，就会自动退出程序，原因是当你单击按钮时激活了它的Click事件，执行“UnloadMe”语句，使得窗体被卸载。2面举了一个比较简单的例子，下面的例子稍微复杂些：新建窗体,控件布局如图4-3所示,包括一个List控件,个Text控件和两个按钮（Command和Command2）,（比较简单的程序我们都采用缺省名），对它们属性做如下修改：亀FormlTxlLabellCommand1Cormnnand2List1Caption二“请输入你的名字”Text1Text二“”（空字符串）ButtonCaption二“复原”1Enabled二FalseButtonCaption=“清除”把使用

38、Buttonl的Enabled属性设为False（假），是使程序在初始时，无法单击Command1。按F5，运行程序，图4-4,复原按钮成为灰色，不可选。-|n|x|输人祢的名字：|清除当然现在程序还什么也不能做，下面我们在程序中添加代码：首先在General里声明全局变量：DimStoreStringAsString用来储存字符串注意：为什么用全局变量？VB里每一个小过程都相当于一个程序，程序里的变量称为局部变量，是只能在程序内部使用的，而当程序调用结束后，由于从内存中被清除，所以变量储存的值也就消失了，这里的全局变量是用来在过程中传递字符串。接着填写以下代码：PrivateSubComma

39、nd1_Click()Text1.Text=StoreStringCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click()StoreString=Text1.TextText1.Text=清除Command1.Enabled=TrueEndSub运行程序，如图45。按下“清除”，文本框被清除，按下“复原”，文本有被恢复，许多程序中的Undo/Redo就是利用这个原理实现的，现在知道为什么内存越多越好了吧。亀Forml输人祢的名字：|清除我们在把程序修改一下，把Button2删除，Buttonl的Enabled属性改为True，Caption改

40、为“清除”，填写代码：PrivateSubCommand1_Click()IfCommand1.Caption=清除ThenStoreString=Text1.TextText1.Text=清除Command1.Caption=复原ElseText1.Text=StoreStringCommand1.Caption=清除EndIfEndSub同样可以上面的功能，但是却少用了一个控件，控件使用少的程序启动会快些。下面的例子要更加复杂些，大家一定都用过Windows附件中的计算器，它是一个标准的科学计算器，利用VB我们也可以做到，只是没有那么复杂，四则运算而已。先建立一个新的项目文件，里面包含一个

41、Forml的窗体。然后，添加控件，包括一个Text框(Textl)，和17个按钮，这17个按钮使用的名称都是Command，只是Index属性不同，就好象一个数组，创立一组按钮的方法是，先在窗体上建立一个按钮(Commandi),然后在Command上击鼠标右键,选择复制(Copy),然后在窗体上任意部位击右键，选择粘贴(Paste)，系统会提示是否创建控件组，选择“是”，重复上面步骤，直至创立17个按钮为止。各控件属性如下表：TextiBackColor二&HOOCOFFFF&Text二“0.CommIndex0一16and1Index0一9Caption二“0”“9”Index10Capt

42、ion=/HIndex11Caption二“二Index12Caption二“+Index13Caption二“-”Index14Caption二“xIndex15Caption二“mIndex16Caption=“清除如果想改变一些其他的属性，比如字体，可以自己定义一下Font属性，如果相对多个控件的共同属性进行改变，可以在窗体上按下鼠标，拖动，把多个控件一起选定，然后对它们的共同属性进行修改。别看这个东西小，还费了近我两个小时呢，不觉大叹手生，里面也有些地方很绕弯子，我尽量解释清楚。在编写程序之前，我们先来回顾一下计算器的使用。按下数字键在液晶屏上会出现数字，这是最基本的功能。第一次按下运

43、算键，再按下数字键，将重新输入第二个数字，再次按下运算键，将算出前两个数的结果，然后按下数字键，将又重新输入新的数字。输入数字后，按下“等于键”将仍输出原来的数字，输入运算符和第二个数字后在按下“等于”，将得到二者的结果。然后又重复第二、三步。按下“清除”，数据被全部清除。了解了这些，我们一步一步实现。先实现数据的输入，请看代码。与未创立组的控件相比，它的事件里多了Index参数，且里所有的对象都使用同一个事件。先在General里声明窗体级全局变量：DimNum1,Num2AsSingleDimStrNum1,StrNum2AsStringDimFirstNumAsBoolean判断是否是数

44、字开头因为Textl里是存放字符串的，所以要把输入的数据进行运算，必须把字符型变量转变为实型变量,分别用Num1、Num2和StrNuml、StrNum2进行存放。在Form_Load事件里给变量初赋值：Num1=0Num2=0StrNum1=StrNum2=FirstNum=True因为17个按钮使用的是同一事件,所以我们用一个SelectCase语句区分各个按钮，双击任意按钮输入代码：PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9IfFirstNumThenStrNuml=Str(Index)实型转字符型Fir

45、stNum=False初赋值为假Else非初赋值StrNum1=StrNum1+Str(Index)EndIfText1.Text=StrNum1显示还有其他语句，等待插入EndSelect在GenEndSub运行程序的话已经可以输入数据，下面我们来处理小数点eral里声明新的变量：DimPointFlagAsBoolean判断是否已有小数点我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一个布尔变量做判断。在Form_Load里进行初赋值：PointFlag=False在Command的单击事件里接着上面输入新的代码:Case10IfNotPointFlagThen如果没

46、有小数点IfFirstNumThen如果是第一个字符StrNum1=0.FirstNum=FalseElseStrNum1=StrNum1+.EndIfElse已有小数点ExitSub则退出单击事件EndIfpointF-agHTrueTextl.TextHStrNuml半酎Genera-冊诩温举織*-DimRunsignAsIntegerl*DimsignF-agAsBoo-ean*scn血砂苹沸讪fflFormLoad召ffiOJafi-RunsignH0signF-agHFa-seffl肅Tscommandllc=ck召熊糊驾玉甜-Case12To15HrstNumHTrue二MT为凹壬

47、驾举磐甫pointF-agHFa-seIfSignHagThen、ca=RunElseSignFlag=TrueStrNum2=StrNuml把字符串1复制给字符串2StrNum1=字符串1清空EndIfRunsign=Index-11储存键入的运算符里面运算的部分我用了一个过程，是因为在按下等号时还会调用到运算过程，这样可以减少代码的输入，也使程序便于浏览。建立过程(Procedure)，可以在General部分直接输入，也可以通过菜单里的“AddProcedure”添加。Run的代码如下：SubRun()Num1=Val(StrNum2)Num2=Val(StrNum1)SelectCas

48、eRunsignCase1加equal=Num1+Num2Case2减equal=Num1-Num2Case3乘equal=Num1*Num2Case4除equal=Num1/Num2EndSelectStrNum2=Str(equal)StrNum1=StrNum2Text1.Text=StrNum2EndSub下面是其余的代码：(在Command1_Click事件里，接着写)Case11IfNotSignFlagThenText1.Text=StrNum1equal=Val(StrNum1)FirstNum=TruePointFlag=FalseElseCallRunSignFlag=Fa

49、lseEndIfCaseElse清除按钮CallClearData里面又用到了一个ClearData过程，实际上就是Form_Load里的变量初赋值，代码如下：SubClearData()Num1=0Num2=0StrNum1=StrNum2=FirstNum=TruePointFlag=FalseRunsign=0SignFlag=FalseText1.Text=0.EndSub这样完整的程序就完成了，本章介绍了VB的第一个控件按钮，并且举例，希望你继续看下一章菜单。下面给出完整的程序代码：DimNum1,Num2AsSingleDimStrNum1,StrNum2AsStringDimFi

50、rstNumAsBoolean判断是否是数字开头DimPointFlagAsBoolean判断是否已有小数点DimRunsignAsInteger储存运算符号DimSignFlagAsBoolean判断是否已有运算符号SubClearData()Num1=0Num2=0StrNum1=IIIIStrNum2=IIIIFirstNum=TruePointFlag=FalseRunsign=0SignFlag=FalseText1.Text=0.EndSubSubRun()Num1=Val(StrNum2)Num2=Val(StrNum1)SelectCaseRunsignCase1equal=N

51、um1+Num2Case2equal=Num1-Num2Case3equal=Num1*Num2Case4equal=Num1/Num2EndSelectStrNum2=Str(equal)StrNum1=StrNum2Text1.Text=StrNum2EndSubPrivateSubabout_Click()MsgBoxCreateby周晓阳。1998/7/27,vbDefaultButton1,VB教程第四章范例EndSubPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9IfFirstNumThenStrNum

52、1=Str(Index)FirstNum=FalseElseStrNum1=StrNum1+Str(Index)EndIfText1.Text=StrNum1Case10IfNotPointFlagThenIfFirstNumThenStrNum1=0.FirstNum=FalseElseStrNum1=StrNum1+.EndIfElseExitSubEndIfPointFlag=TrueText1.Text=StrNum1Case12To15FirstNum=TruePointFlag=False还原标记值IfSignFlagThenCallRunElseSignFlag=TrueStrN

53、um2=StrNum1StrNum1=_IIIIEndIfRunsign=Index-11Case11IfNotSignFlagThenText1.Text=StrNum1equal=Val(StrNum1)FirstNumTruePointFlag=FalseElseCallRunSignFlag=FalseEndIfCaseElseCallClearDataEndSelectEndSubPrivateSubForm_Load()CallClearDataEndSub按钮还有两个重要的属性Defau（默认属性和Cance（取消属性）,两个属性都以布尔赋值,把Default设为True,则在按

54、下回车键时,不论焦点处于何处，都会触发该按钮的Click事件，而当Cancel属qnspuguojjngjinepaqA:丄爭魏谢铝10“xog6sn()P!l：fIOP3qns刃!dqnspuguuuojjngjinepaqA:丄爭魏谢铝xog6sn()|Di|3_|eDue3pujDqnsejeAUd:马虫吕咸聊空重8-17園皿|93ueD吐io区賂Q斗圜uoijde?7ami每|8uq胡皋吕Vru丄j|nepa胡皋哩册|aueDpnJ3吐0P3区賂B斗圜ewoN7谢歪2固吐*W畀7互韋:去険凰丄。韦孕斗圜P!Q胡谢铝遂7mDS3丄铝丑Vn丄区貌魏斗结果如图49、410：快捷键大家一定都知

55、道,在VB如何实现呢。其实很简单,在刚才的例子里在建立一个按钮Command，把它的Caption属性设为Click&ME,如图4-11,在M的下面有一条下划线，运行程序，当你按下Alt+M的时候就触发了Command1_Click事件：匚1贼処E|PrivateSubCommand1_Click()MsgBoxClickME按钮被按下,vbDefaultButton1,提示EndSub据我所知,有许多用户有使用快捷键的习惯,注意细节上的问题能够使将来你的程序得到更多人的欣赏,不是吗？VB教程：第五章-菜单文章来源：vb大世界我们经常在Windows操作里遇到各种各样的菜单，$sisoJSSB

56、S(D_q_s,pdqeuLU豆芳6XPUIcOQdeo(DUJeN如H尽az昴Vis?M些晏三皿SI。一:-SHig味二、叵-K服托世g個以SS8令=個S七怒眯sh區冋辱、LU+UOo.s乏+uGK-密0总S咽炖e瞬汕七怒S冊眯SMOPWM只巴8。芳一D#:*皿氏凹、isi叵(Hgte姐H緬相刊、zv-ft首先在Caption添入“文件”，Name为“mnuFile”，按下Next按钮，这样就建立了第一级菜单，注意菜单设计窗口的左中有四个箭头，按下向右的箭头，出现了一排小点，如图5-2,在VB里这叫缩排，这样就可以开始建立第二级菜单。h匾按下F5运行程序，在Forml出现之前先会弹出一个输入

57、对话框，如图62。这时,无论你按下OK还是Cancel都是没有区别的，因为我们并没有对输入数据进行处理，下面我们完成一个更加复杂些的程序。摄佳网站投票新建一个项目文件，把窗口布局成类似于图63的结构，各对象属性如下表：录桂岡站投票演示输抑据性唯标|來坐标fForm1Caption“最佳网站投票演示”BorderStyle3不可调整大小ControlBoxOFalseFramelCaption“输入框属性“LabellAutosize1TrueIndex0至50至5Caption“提示语句”“标题”“缺省网站”“X坐标”“Y坐标”/HIndex4EnabledFalseIndex4Enabled

58、FalseTextlText“”（空字符串）Index0至4Index3Text0Index4Text0Check1Caption“指定输入框位置”ButtonIndex0,1Index0Caption“显示输入框”1Caption“退出程序”本例中出现了一个Framel控件,它是一种框架,可以用来把窗体分成好几个部分,首先应该在窗体上画出Frame1控件，然后再选择相应的控件，在Frame1上描出轮廓，使其是出现在Frame1之上，本例中除去两个按钮，其余都在Frame1上面。本例中用到了几组控件数组，其创建方法是，在选定的点右键，选择Copy，再在窗体其他部位单击右键，选择Paste即可，

59、注意，若要使粘贴的对象在Frame1上，请在Frame1上单击右键选择Paste。我们通过这个窗体，对输入框进行完整的控制，原理是这样的：当我们把窗体中要填写的对输入框的参数完成后按下OK按钮，就会出现我们设计的那个输入框，我们从输入框退出时则返回我们投票的结果，代码如下.窗体初次被装入时，Label1(3)、LabeI和Text1(3)、Text1(4)的Enabled属性都是False，我们需要通过改变Check1的Value(1,被选中，0，未选中)是他们有效或无效。声明全局变量(General):DimPosChkAsBoolean检查X、Y坐标是否有效Check1_Click事件:P

60、rivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1(3).Enabled=TrueLabel1(4).Enabled=TrueText1(3).Enabled=TrueText1(4).Enabled=TruePosChk=TrueElseLabel1(3).Enabled=FalseLabel1(4).Enabled=FalseText1(3).Enabled=FalseText1(4).Enabled=FalsePosChk=FalseEndIfEndSub接着在按钮中填写代码：PrivateSubCommand1_Click(IndexAs