1、vb基础教程VB驿站编辑第一章：事件、属性及数据类型以后两章可能会比较枯燥，但不可否认也很重要，所以为了学好VB，我们一定要打好基础才行。一、事件通过上一章的例子，你可能对“面向对象的编程”已经有了一定了解，它是由事件驱动的，对于不同的对象，所能感应到的事件也会不同，譬如说当你把鼠标移进某一区域时就会触发MouseMove事件，这很直观，也容易理解，但也有些事件比较抽象，下面我来对一般的事件进行一下解释。1. 窗体和图象框类事件 Paint事件：当某一对象在屏幕中被移动，改变尺寸或清除后，程序会自动调用Paint事件。注意：当对象的AutoDraw属性为True（1）时，程序不会调用Paint
2、事件。 Resize事件：当对象的大小改变时触发Resize事件。 Load事件：仅适用于窗体对象，当窗体被装载时运行。 Unload事件：仅适用于窗体对象，当窗体被卸载时运行。 2.当前光标（Focus）事件 GotFocus事件：当光标聚焦于该对象时发生事件。 LostFocus事件：当光标离开该对象时发生事件。 注意：Focus英文为“焦点”、“聚焦”之意，最直观的例子是，比如有两个窗体，互相有一部分遮盖，当你点下面的窗体时，它就会全部显示出来，这时它处在被激活的状态，并且标题条变成蓝色，这就是GotFocus事件，而相反，另外一个窗体被遮盖，并且标题条变灰，称为LostFocus事件。
3、上面所说的“光标”并非指鼠标指针。 3.鼠标操作事件 Click事件：鼠标单击对象。 DbClick事件：鼠标双击事件。 MouseDown、MouseUp属性：按下/放开鼠标键事件。 MouseMove事件：鼠标移动事件。 DragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 DragOver事件：鼠标在拖放过程中就会产生DragOver事件。 4.键盘操作属性 KeyDown、KeyUp事件：按键的按下/放开事件。 KeyPress事件：按键事件。 5.改变控制项事件 Change事件：当对象的内容发生改变时，触发Change事件。最典型的例
4、子是文本框（TextBox）。 DropDown事件：下弹事件，仅用于组合框（ComboBox）对象。 PathChange事件：路径改变事件，仅用于文件列表框（FileBox）对象。 6.其他事件 Timer事件：仅用于计时器，每隔一段时间被触发一次。 二、属性 每个对象都有它的属性，并且“Name”属性是共有的，有了“Name”属性才可以在程序中进行调用。对于属性，可以在窗体的布局操作中完成，也可以在程序运行中改变，这取决你的需要，但有些属性是只读的，它只能在控件布局时改变。我将在以后的实例中具体介绍各个属性的作用。 三、数据类型 学过编程的人都知道大多数的计算机语言都规定了各自的数据类型
5、，VB也不例外。其实，在一个最简单的程序中数据类型是可以不作规定的，也就是说，变量可以使用各种类型，但是在一个复杂的程序里，这样做就很危险，因为很可能给同一个变量赋予了不同的类型，而导致程序出错。所以，为了程序的严谨和便于查看，正确的定义数据类型是必要的。定义数据的另一个原因是，不同的数据占用不同的内存数量，譬如整型（Interger）数据占2字节，而长整型数据占4个字节，定义合适的数据类型，不管你相信不相信，它可以节省内存！1. VB常用的数据类型有：整型（Integer，表示-32768至32767之间的整数）、长整型（Long，表示-2,147,483,648至2,147,483,647
6、之间的整数）、实型（Single，表示-3.37E+38至3.37E+38之间的实数）、双精度实型（Double，表示-1.67E+308至1.67E+308之间的实数），字符（String，每个字符占一字节，可以储存065,535个字符），布尔（Boolean，只有两个值True/-1，或False/0）。 2. 数据类型的定义方法： 定义变量最简单的方法是用“Dim”关键字，它的语法： Dim 【变量名】As 【数据类型】如：Dim Index As Integer也可以在一行中定义多个变量，如：Dim Index As Integer , Dim Number As Long把多个变量定
7、义成同一类型可以写成：Dim Index , Number As Integer 更可以在定义时进行初赋值：Dim Index=3有时为了简便，也以符号进行简单的定义，作用是和上面一样的。整型可以用“%”代替，长整型可以用“&”代替，实型可以用“!”，双精度实型可以用“#”定义，如刚才的第一个例子可以写成：Dim Index% 等价于 Dim Index As Integer 对于常量的定义用Const定义，如：Const COLOR=255。 为了在程序中便于查阅，我们对变量和常量的写法进行规定，变量一般用小写方式，常量则全部大写。注意：使用常量的好处，对于程序中经常出现的数值，应设常量等于
8、它，这样一是书写方便，其二，如果要改变该数值，只需改变定义常量的语句值，而不需改变每个语句，提高了效率。 数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如： Dim IntegerArray(99) As Integer这个数组中包含100个元素，脚标从0到99。也可以指定脚标的起始值，例如：Dim IntegerArray(2 to 10) As Integer这个数组含有九个元素，脚标从2到10。还可以定义多维数组：Dim ThreeD(4,2 to 5,3 to 6) As Integer上例定义了一个三维数组(444)。 记录的定义 记录定义是把控制权交给用户的方
9、法，它让用户可以定义自己的数据类型，它使用关键字“Type”，方法是：Type 【数据类型标识符】 As As As End Type例如，定义一个地址数据：Type AddressStreet As StringZipCode As StringPhone As StringEnd Type这个地址数据里包括三个属性，街区、邮政编码和电话，可以把某数据定义成此类型：Dim MyHome As Address要调用或改变“MyHome”的值时，类似于对对象的属性的操作：变量名.域名“”为了简化书写重复的部分,可以用关键字“With”：With MyHome.Street=”阜成路”.ZipCo
10、de=”100037”.Phone=”12345678”End With本章提要： VB语法与Basic的异同 注释语句 长语句的分行 条件语句 循环语句 运算操作 数据定义与赋值 函数和过程 一、VB与Basic VB之所以叫做“Visual Basic”就是因为它使用了Basic语言作为代码，所以它们之间有着千丝万缕的关系，如果学过Basic的话，看到VB的程序结构会感到很亲切。但VB作为新生物，也超越了Basic的限制，有了许多自己的特点： VB建立了一种新的变量类型货币型变量，通过使用仅带有二位小数的货币变量，就能避免因使用实型变量而带来的数值积累误差问题。 VB在调用函数（Funct
11、ion）时，必须在函数名后跟一对括号。 VB对白兰地使用范围重新做了规范，在Basic里把隐含变量都当作全局变量，而在VB里对隐含变量都当作局部变量。 VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。 使用数组，必须事先用Dim或Redim进行定义。 二、注释语句 在使用注释语句之前必须先了解注释的作用，注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。以后注释语句将是我们在编程里最经常用到的语句之一。在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理文件的用法一样，还有
12、一种是利用单引号“”，例如：Dim a As String 与Rem Dim a As String 的作用是一致的。三、长语句的分行 在比较早的版本中，因为没有象C等语言用“；”隔开语句与语句，VB的语句是必须写在一行里的，不过后来版本的VB里如许用分行符“_”把一个长语句分成若干行来存放。四、条件语句如果你学过任何一种编程的话，都会知道在程序里控制其流程的有两种语句，条件与循环，VB自然也不例外，其实不管哪种语言，条件和循环的样子都差不多，只不过各有各的规矩罢了。在条件语句里，我们先来学习“IfThen”语句。它的一般语法是：If Then End If与C 语言不同，VB的条件语句更符合
13、英语的语法，如果Then后面所跟的语句只有一条，可以写成：If Then 而不用End If。有时我们还会用到If Then Else End If更可以在Else里在嵌套If语句，如：If Then Else If Else End If所有这些可以用一个表格表示：条件1 True False 语句1 条件2 True False 语句2 条件3 True False 条件N True False 语句N 语句N1 用了过多的Else后你会感到很不方便，而且程序结构也不清晰，所以大多数的语言还有Select语句帮助解决这个问题。VB里的Select语句的格式是这样的：Select Case
14、Case Case Case Case Else End Select例如：Select Case a%Case 1 Print “a=1”Case 2 Print “a=2”Case Else Print “a does not equal to 1 or 2.”End Select五、循环语句循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。C语言里有一个“for”循环语句，VB里也有“For”关键字，作用也差不多，只是VB的“For”语句更
15、容易理解。它的格式是：For = To Step Next 在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如：Dim a=0For I=1 To 10 a=a+INext I这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只不过是倒着加罢了，请看：Dim a=0For I=10 To 1 Step 1a=a+INext IWhile语句也是一个很常用的循环语句，它的形式很多。 Do While Loop语句 While Wend 语句 Do Loop While While后面都跟逻辑条件判断，“Do While Loop
16、语句”和“While Wend 语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do Loop While ”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until 可以相当于While Not 。For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。六、运
17、算操作1. 数学运算 ：加法运算，也适合于字符串的之间的合并运算。 ：加法运算。 *：乘法运算。 /：除法运算。 ：整除运算。 Mod：求余运算。例如：a Mod b表示a被b整除以后的余数。 ：幂运算。AB表示以A为底的B次方。 1. 关系运算 关系运算也称比较运算，它表示不等式的真或假，VB共提供六种运算符，分别是=（等于），（大于），=（大于等于），=（小于等于）和（不等于）。2. 逻辑运算 逻辑运算是对真或假的运算，我将列表说明：A B Not A非 And与 Or或 Xor异或 Eqv相等 Imp蕴含 T T F T T F T T T F F F T T F F F T T F T
18、 T F T F F T F F F T T TTrue FFalse七、 数据与定义本标题的内容已经在上一章向大家详述过，在这里就不再重复。八、函数与过程 函数与过程有许多相似的地方，它们之间最大也是最本质的区别就在于，函数有一个返回值，而过程只是执行一系列动作，所以可以简单的把函数理解成为一个变量，而VB中的每个事件都是一个过程，比如Command1_Click()就是一个过程。因为在程序设计中经常会有重复的地方，所以把它做成一个函数或一个过程，在使用时进行调用，可以节省大量的输入代码的时间，而且使用函数和过程也便于程序的结构化和修改查看。函数和过程都可以有参数，也可以没有参数。关于函数和
19、过程将在以后的章中配合实例讲解，请您继续VB教程。第四章按钮（一）从本章开始我们将正式进入VB的编程世界，但这还仅仅是个开端，要编出功能强大的软件，还要学很多东西，那就要看以后的VB高级教程了，我也得努力学啊！按钮是我们在Windows操作见到最多的控件，它们有着各种各样的功能：“确认”、“取消”、“下一步”等等，这些都是按钮的表现，另外还有很多图形话的按钮，其实它们并没什么不同，所有的按钮都是通过单击（click）事件实现的，只不过是在外表不同罢了。下面就让我们建立一个最简单的按钮，双击工具箱的CommandButton，将在窗体上建立一个形如图41的按钮，它的缺省名（Name属性）为Com
20、mand1，我们可以把它改名为cmdExit，把Caption属性设为“退出”，然后双击，按钮填写代码：Private Sub cmdExit_Click()Unload MeEnd Sub按下F5或者工具条上的播放按钮，运行程序。图42当你按下退出按钮的时候，就会自动退出程序，原因是当你单击按钮时激活了它的Click事件，执行“Unload Me”语句，使得窗体被卸载。 上面举了一个比较简单的例子，下面的例子稍微复杂些： 新建窗体，控件布局如图43所示，包括一个List控件，一个Text控件和两个按钮（Command1和Command2），（比较简单的程序我们都采用缺省名），对它们属性做如下
21、修改：List1 Caption“请输入你的名字” Text1 Text“”（空字符串) Button1 Caption“复原”EnabledFalse Button2 Caption=“清除” 把使用Button1的Enabled属性设为False（假），是使程序在初始时，无法单击Command1。按F5，运行程序，图44，复原按钮成为灰色，不可选。当然现在程序还什么也不能做，下面我们在程序中添加代码：首先在General里声明全局变量：Dim StoreString As String 用来储存字符串注意：为什么用全局变量？VB里每一个小过程都相当于一个程序，程序里的变量称为局部变量，是只
22、能在程序内部使用的，而当程序调用结束后，由于从内存中被清除，所以变量储存的值也就消失了，这里的全局变量是用来在过程中传递字符串。接着填写以下代码：Private Sub Command1_Click()Text1.Text = StoreStringCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()StoreString = Text1.TextText1.Text = 清除Command1.Enabled = TrueEnd Sub运行程序，如图45。按下“清除”，文本框被清除，按下“复原”，文本有被恢复，许多程序中的Und
23、o/Redo就是利用这个原理实现的，现在知道为什么内存越多越好了吧。我们在把程序修改一下，把Button2删除，Button1的Enabled属性改为True，Caption改为“清除”，填写代码：Private Sub Command1_Click()If Command1.Caption = 清除 ThenStoreString = Text1.TextText1.Text = 清除Command1.Caption = 复原ElseText1.Text = StoreStringCommand1.Caption = 清除End IfEnd Sub同样可以上面的功能，但是却少用了一个控件，控
24、件使用少的程序启动会快些。 下面的例子要更加复杂些，大家一定都用过Windows附件中的计算器，它是一个标准的科学计算器，利用VB我们也可以做到，只是没有那么复杂，四则运算而已。 先建立一个新的项目文件，里面包含一个Form1的窗体。然后，添加控件，包括一个Text框（Text1），和17个按钮，这17个按钮使用的名称都是Command1，只是Index属性不同，就好象一个数组，创立一组按钮的方法是，先在窗体上建立一个按钮（Command1），然后在Command1上击鼠标右键，选择复制（Copy），然后在窗体上任意部位击右键，选择粘贴（Paste），系统会提示是否创建控件组，选择“是”，重复
25、上面步骤，直至创立17个按钮为止。各控件属性如下表：Text1 BackColor&H00C0FFFF&Text“0.” Command1 Index 016Index 09 Caption=“0”“9”Index 10 Caption=“.”Index 11 Caption=“=”Index 12 Caption=“+”Index 13 Caption=“-”Index 14 Caption=“”Index 15 Caption=“”Index 16 Caption=“清除” 如果想改变一些其他的属性，比如字体，可以自己定义一下Font属性，如果相对多个控件的共同属性进行改变，可以在窗体上按
26、下鼠标，拖动，把多个控件一起选定，然后对它们的共同属性进行修改。别看这个东西小，还费了近我两个小时呢，不觉大叹手生，里面也有些地方很绕弯子，我尽量解释清楚。在编写程序之前，我们先来回顾一下计算器的使用。1. 按下数字键在液晶屏上会出现数字，这是最基本的功能。 2. 第一次按下运算键，再按下数字键，将重新输入第二个数字，再次按下运算键，将算出前两个数的结果，然后按下数字键，将又重新输入新的数字。 3. 输入数字后，按下“等于键”将仍输出原来的数字，输入运算符和第二个数字后在按下“等于”，将得到二者的结果。然后又重复第二、三步。 4. 按下“清除”，数据被全部清除。 了解了这些，我们一步一步实现。
27、 先实现数据的输入，请看代码。 与未创立组的控件相比，它的事件里多了Index参数，组里所有的对象都使用同一个事件。先在General里声明窗体级全局变量：Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean 判断是否是数字开头因为Text1里是存放字符串的，所以要把输入的数据进行运算，必须把字符型变量转变为实型变量，分别用Num1、Num2和StrNum1、StrNum2进行存放。在Form_Load事件里给变量初赋值：Num1 = 0Num2 = 0StrNum1 = StrNum2 =
28、FirstNum = True因为17个按钮使用的是同一事件，所以我们用一个Select Case语句区分各个按钮，双击任意按钮输入代码：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)实型转字符型FirstNum = False初赋值为假Else非初赋值StrNum1 = StrNum1 + Str(Index)End IfText1.Text = StrNum1显示End SelectEnd Sub运行程序的话已经可以输入数据，下面我们来处理小数点。在General里声明新的变量：Dim PointFlag As Boolean 判断是否已有小数点我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一个布尔变量做判断。在Form_Load里进行初赋值：PointFlag = False在Command的单击事件里接着上面输入新的代码：Case 10If Not PointFlag Then如果没有小数点
