VB语法规范
一。数据类型
Byte 1
字节 无符号
Interger 2
字节
Long 4
字节
Float 4
字节
Double 8
字节
String
Date
Boolean
Currency
Variant
2.
变长字符串和定长字符
系统默认初始值为空字符串;
变长字符串：dim str as Strring
定长字符串:dim str as String*30
最多64K
字符
3.
逻辑型数据
系统默认为False;
当布尔型转为整形时 True
为-1 False
为0;
其它型转化为布尔型
非0
为True 0
为False;
4.
日期型数据
文字日期包含在一对“#"
之间，如#4 Sep# #May
23.2002#
等;
在日期型数据中，不论将年、月、日如何排列，用何种分隔符，系统会自动将其转化为由数字表示的”
月/
日/
年“
5
。对象类型
默认值为nothing
，用SET
语句指定一个声明的对象变量去引用对象。
6.
变体类型
所有未定义的变量的默认类型。用VarType
（）返回的值可以确定具体数据类型。
二。常量
三种：直接常量（字面值），自定义符号常量，系统常量
（1
）自定义符号常量
Const
符号常量名［As <
类型>
］=<
表达式>
要使常量在整个应用程序中有效，在标准模块中地声明段中进行声明，并且在Const
之前加Public
。对于窗体模块或类模块，则不能加
Public.
三。变量
1.
命名约定
以字母开始，后跟数字、字段和下划线
同一作用域中变量名不能重复
变量名不区分大小定。
2.
声名变量
隐式声明：就是在使用一个变量这前不专门声明而直接使用，变量类型默认为变体类型。
显示声明：为每个变量必须事先声明才能使用。可以指定类型也可不指定，若不指定也是变体类型。
3.
变量作用域
普通局部变量（过程变量）:
只能在声明的过程中使用，过程执行分配空间，过程完成后释放空间
Dim
变量名［As
数据类型名］
静态局部变量（过程变量）：只能在声明的过程中使用，应用程序启动时分配空间，应用程序结束时释放空间
Static
变量名 [As
数据类型名]
模块变量：该模块中的所有过程都可以访问的变量，其它模块的过程不能访问此模块变量，应用程序启动时分配空间，应用程序结束时释放 空间
Private dim
变量名 [As
数据�
相关文档：
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
珍贵vb函数列表
Variant 变量的内部表示:
_______________________________________________________________
符号常量 值 内部表示 字节数
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、标准模块和类模块。
简单的应用程序可以只有一个窗体，所用的程序都驻留在窗体模块中，而当应用程序庞大复杂时，就要另外附加窗体。最终可能有几个窗体中有一些共同都要执行的代码，为了在两个窗体中不产生重复代码，可创建一个独立的模块，用它实现代� ......
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
