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
数据�
相关文档：
http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了！贡献出来啊，很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
dim strstart,stren ......
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 ......
建立 VPN 拨号全部代码如下:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
......
http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
能记录到中文，缺点是不能记录到Ctrl，shift，alt，capslock，home，del，pageUP，pageDown等件的按下状态。
vb6代码如下：
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......
'创建快捷方式，兼容vista
'要把vb6stkit.DLL放到程序目录
'敖士伟 09-10-27
'只对“桌面”和“开启”有效，其它还没做
'=========开启外部同步程序定义开始
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
