在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
作者: winggd 时间: 2004-3-22 11:08 标题: vb学习1
〖子程序与函数〗
1.子程序 2.函数
3.属性过程
子程序
执行单一活动的代码块。
事件是特殊的子程序。
定义方法如下：
[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中详细介绍。
作者: winggd 时间: 2004-3-22 11:09 标题: vb学习1
Form 属性
Name 属性：用于在属性窗口定义对象的名称，以便在程序中引用。它只能在设计时赋值。
对于任何一个可以在属性窗口设置其属性的对象必须设置该属性的值，VB自动为每一个对象给定一个缺省值。
Caption 属性：属性用于获取、设置窗体的标题。
BorderStyle 属性：用于设置窗体的边框。
它常用的有两个值：
普通窗体：可修改窗体的尺寸。
2-Sizable
对话框：不能修改窗体的尺寸。
3-FixedDialog
Top,Left,Width,Height 属性：它们分别表示该窗体在父窗体或屏幕的位置（Top,Left）和大小（Width,Height）。
ScaleTop,ScaleLeft,ScaleWidth,ScaleHeight 属性：它们分别表示该窗体工作区的位置和大小。
Form 方法
1、显示一个窗体。
FormX.Show[vbModal]
没有vbModal表示以非模式方式显示一个窗体。
带有vbModal表示以模式方式显示一个窗体。
2、隐藏一个窗体。
FormX.Hide
隐藏窗体并不把窗体从内存中卸载，要卸载窗体
需要使用语句。
Unload FormX
或：UnLoad Me (Me 表示当前窗体)
Form 事件
1、Load 事件：当窗体加载到内存时发生
Private Sub Form_Load()
... '常把初始化代码放在此处
End Sub
2、Resize 事件：当窗体改变其尺寸时发生
Private Sub Form_Resize()
... '常在此处修改其它控件的尺寸
End Sub
3、Unload 事件：当窗体从内存卸载时发生
Private Sub Form_Unload(Cancel As Integer)
... '在窗体卸载前做一些扫尾工作。
'如关闭文件、提示存盘等
End Sub
[参数]：
Cancel 表示：是否放弃卸载。带进来时＝0，表示可以卸载。在代码中将其0，表示放弃卸载。
例：
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你想退出吗？",vbYesNo,"退出")=vbNo Then
Cancel=True
End if
End Sub
属性：
DragMode 用于设置拖放方式。
=vbManual手工拖放。
=vbAutomatic自动拖放。
DragIcon 表示拖放时显示的图标。
通常我们使用LoadPicture函数读取图片。
XXXX.DragIcon=LoadPicture("C:\sample.ico")
方法：
Drag 启动或停止拖放。
事件：
MouseDown 在按下鼠标键时发生。
通常我们在该事件中启动拖放。
Sub XXXX_MouseDown()
XXXX.Drag vbBeginDrag
End Sub
与拖放有关的目标控件
事件：
DragOver 当源控件在目标控件上拖动时发生。
Sub XXXX_DrageOver(Source As Control, X As Single, Y As Single, State As Integer)
.....
End Sub
参数：
Source 返回哪一个控件拖放到该控件上X,Y返回鼠标相对于该控件的位置。
State 表示拖放是进入控件还是离开控件。
=vbEnter进入控件。
=vbLeave离开控件。
事件：
DragDrop 当把源控件拖到目标控件并松开鼠标键时发生。
Sub XXXX_DrageDrop(Source As Control, X As Single, Y As Single)
.....
End Sub
参数：
Source 返回哪一个控件拖放到该控件上X,Y返回鼠标相对于该控件的位置。 作者: winggd 时间: 2004-3-22 11:09 标题: vb学习1
