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
数据�
相关文档：
VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、标准模块和类模块。
简单的应用程序可以只有一个窗体，所用的程序都驻留在窗体模块中，而当应用程序庞大复杂时，就要另外附加窗体。最终可能有几个窗体中有一些共同都要执行的代码，为了在两个窗体中不产生重复代码，可创建一个独立的模块，用它实现代� ......
'添加个picture1和command1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......
在Asp.net中实现文件的上传功能，是非常简单的一件事情，只需要利用微软提供的FileUpload控件即可轻松实现。
LargeFileUpload.aspx代码如下
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LargeFileUpload.aspx.vb"
Inherits="LargeFileUpload" %>
<!DOCTYPE html PUBLIC "-//W3C/ ......
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 ......
