学校安全工作日志记录:(1) VB编程基础

基本概念

Visual Basic是微软公司推出的Basic语言编程工具，它比标准Basic语言增加了许多功能。它支持面对对象的编程，由于它是为Window这样的图形用户界面的操作系统开发的，所以它使用事件驱动的方式控制程序流程。

VisualBasic新概念：
 
一、 VisualBasic术语

　　·设计时：设计时是指在VB环境中建立应用程序时的时间。

　　·运行时：运行时是指在应用程序运行期间，用户与应用程序进行交互的时间。通常我们在设计时初始化窗体和控件的属性，在运行时响应窗体和控件的事件修改它们的属性或调用它们的方法。

　　·对象：将数据和处理该数据的过程（函数和子程序）打包在一起而生成的新的数据类型称之为对象。在VisualBasic中，所有窗体和控件都是对象。要访问对象的属性和方法，必须在对象和属性方法之间加入一个句点。
　　　[例]
      Label1.Caption="VB学习系统"
　　　Text1.SetFocus

　　·属性：对象中的数据。 方法：对象中的过程。

　　·窗体：窗体是可用作定制应用程序界面的窗口，或用作从用户处收集信息的对话框。你可向窗体增加控件、图形或图片来创建你的应用程序界面。窗体可单独存在，也可是多文档界(MDI)中的一个文档，即一个子窗体。

　　·控件：控件是用户操作对象的图形表示，以便向应用程序提供信息。例如：按钮、列表框或编辑框等。有的控件没有图形表示。
　　　如：计时器、WinSocket等。

　　·事件（Event）：事件是指窗体或控件识别的活动。事件发生在用户与应用程序交互时。
　　　如：单击控件、键盘输入、移动鼠标等。
　　　也有部分事件由系统产生，不需要用户输入。如：计时器事件。

　　·事件驱动程序设计：当程序是事件驱动的时，应编写执行来响应由用户或系统激活的事件的代码。与过程程序设计不同，后者的程序起始于代码的第一行，并遵循定义好的路径调用所需的过程。事件驱动设计是图形用户界面的本质，即：由用户控制而代码做出响应。

二、 VB项目文件

　　包括在VisualBasic应用程序开发中包括的所有的窗体、代码模块和定制控件的一个文件列表，以及在开发中选择的环境选项。 顶点
 
　　项目由下列文件组成：

　　　　文件类型 　　　扩展名

　　　　项目文件 　　　*.vbp 
　　　　窗体文件 　　　*.frm 
　　　　模块文件 　　　*.bas 
　　　　定制控件 　　　*.ocx 
　　　　类模块 　　　　*.cls 
　　　　资源文件 　　　*.res

变量与常量

一、VisualBasic数据类型

　　数据类型 　　　　　　举例 
 
　　字节型 　　　　　　　56 
　　布尔型 　　　　　　　True False 
　　整型 　　　　　　　　5367 
　　长整型 　　　　　　　4364574 
　　单精度型 　　　　　　4362.34 
　　双精度型 　　　　　　4652.65735745 
　　货币型 　　　　　　　$234.34 
　　日期型 　　　　　　　4/7/2000 
　　对象型 　　　　　　　Label1 
　　字符串型 　　　　　　"My homepage" 
　　变体型 　　　　　　　任意值

二、变量的声明
 
　　Dim var As Type
　　Public var As Type
　　Private var As Type
　　其中：
    Public 定义公有变量
　　Dim、Private 定义私有变量

三、Option Explicit 关键字
 　
　　在VisualBasic中用户可以不声明而直接使用变量，但容易产生错误。可以使用Option Explicit关键字强制声明变量，必需先声明再引用。Option Explicit关键字放在窗体或模块的通用声明(GenneralDeclarations)处。也可以通过设置将Option Explicit自动加到每个模块中。

四、变量的作用域
 
　　局部(Local)：在过程级定义的变量，仅在声明它的过程中可见。 
　　
　　模块/窗体(Modudule/Form)：在模块或窗体级声明的变量，在声明它的模块或窗体中的所有过程中可见。

　　公有(Public)：在模块或窗体级声明的变量，在所有项目的任何过程中都可见。

五、Static 关键字
 
　　普通的局部变量在过程结束后被释放，在下次执行过程时从新初始化为0。用Static声明的局部变量在过程结束后不被释放，仍保留变量的值。

　　［例］：
　　　　Sub P()
　　　　　　Static I As Integer
　　　　　　I=I+1
　　　　　　MsgBox "A=" & I
　　　　End Sub

六、常量

　　常量是程序中不发生变化的值。它和变量一样有三种作用域。它的定义语法如下：

　　　　[Public]Const con[As Type]=expression
　　　　[Private]Const con[As Type]=expression
　　[]内为可以缺省项

七、数据类型转换
 
　　VisualBasic自动完成某些数据转换，为提高运行速度，我们通常使用CType() 函数显示地转换。 VisualBasic转换函数包括：

　　　　CBool：　转换为Boolean类型 
　　　　CByte：　转换为Byte类型 
　　　　CCur ：　转换为Currency类型 
　　　　CDate：　转换为Date类型 
　　　　CDbl ：　转换为Double类型 
　　　　CInt ：　转换为Integer类型 
　　　　CLng ：　转换为Long类型 
　　　　CSng ：　转换为Single类型 
　　　　CStr ：　转换为String类型 
　　　　CVar ：　转换为Variant类型 
　　　　CVErr：　转换为Error类型

基本语句

 一、赋值语句
 
　　在VB中赋值语句有两种：
　　　　
　　　　1：对普通变量的赋值。
　　　　变量＝表达式
　　　　[例]
　        Dim a As Integer
　        a=100*20

　　　　2：对对象变量的赋值。
　　　　Set 变量＝表达式
　　　　[例]
　　　　　Dim ex As DataBase
　　　　　Set ex=OpenDataBase("File.mdb")
 

二、If 语句
 
　　If语句用于测试条件，根据测试结果执行不同的操作。格式如下：
　　
　　　　If 表达式 Then
　　　　　　...
　　　　Else
　　　　　　...
　　　　End If

　　或：
　　　　If 表达式 Then 语句1:语句2: ..

　　［例］
　　　　If Password="123456" Then
　　　　　　OK=True
　　　　Else
　　　　　　Ok=False
　　　　End if

 
三、Select Case 语句

　　Select Case 语句用于对某一表达式的值进行多种处理。
　　格式如下：
　　　　Select Case 表达式
　　　　　　Case 值1：
　　　　　　　　...
　　　　　　Case 值2：
　　　　　　　　...
　　　　　　Case Else
　　　　　　　　...
　　　　　　End Select

 
四、For 循环语句
 
　　For...Next用于指定次数的循环。
　　格式有两种：

　　1、普通的数字变量：
　　　　For var=start To end[Step step]
　　　　　　...
　　　　Next var

　　2、集合中的对象：
　　　　For Each obj In objs
　　　　　　...
　　　　Next obj
　　其中：obj 是对象变量。 Objs 是集合变量。

五、Do 循环语句
 
　　根据某一条件来决定是否循环时我们使用Do循环。
　　Do 循环有两种：

　　1、当型循环（先判断后执行）
　　　　Do While|Until 条件
　　　　　　...
　　　　Loop

　　2、直按型循环（先执行后判断）
　　　　Do
　　　　　...
　　　　Loop While|Until 条件
　　[注]：While 当条件为 True 时循环。 Until 当条件为 True 时退出。
 

六、With 语句

　　当我们经常使用某一对象的属性、方法时，就可以使用。With语句。With语句可以使代码更简捷，并能提高运行速度。
　　格式如下：
　　　　With 对象变量
　　　　　...
　　　　End With

　　［例］
　　　　With Text1
 　　　　　.SelStart=0
 　　　　　.SeiLength=Len(.Text)
 　　　　　.SetFocus
　　　　End With

　　相当于：
　　　　Text1.SelStart=0
　　　　Text1.SeiLength=Len(Text1.Text)
　　　　Text1.SetFocus 

子程序与函数

一、子程序 
　　执行单一活动的代码块。
　　事件是特殊的子程序。

　　定义方法如下：
　　　　[Public]Sub 子程序名（参数表）
　　　　　　...
　　　　End Sub

　　　　[Private]Sub 子程序名（参数表）
　　　　　　...
　　　　End Sub

　　参数表格式如下：
　　　　var1 As Type1,var2 As Type2,...

二、函数
 
　　与子程序的区别是它通过函数名返回值。
　　定义方法如下：
　　　　[Public]Function 函数名（参数表）As 类型
　　　　　　...
　　　　　　函数名＝值
　　　　End Function

　　　　[Private]Function 函数名（参数表）As 类型
　　　　　　...
　　　　　　函数名＝值
　　　　End Function
　　
　　[注]：在VB中一条语句在一行中写不完，使用下划线加空格连接。

三、属性过程
 
　　在ActiveX中详细介绍。