VB命名规则及代码规范
VBA
命名规则及代码规范
马维峰
(maweifeng@263.net
)
1.
VBA
命名规则
一个好的命名规则可以提高程序的可读性，减少错误发生的概率，命名规则不是一定的，不同的人有不同的规则和习惯，但在编程过程中，对于个人或工作组，一定要遵守相同的命名规则。
1.1.
变量、常量、自定义类型和枚举
表
1
‑1
概括了变量、常量的基本命名规则。
表
1
‑
1
变量、常量和枚举类型的命名规则
元素
命名规则
变量
<
范围
><
数组
><
数据类型
>
描述（首字母大写）
常量
<
范围
><
数据类型
>
描述（全部大写）
用户自定义类型
Type
描述名称
<
数据类型
>
描述
End Type
枚举类型
Enum <
工程前缀
>
一般描述
<
工程前缀
><
一般描述
><
具体名称
1>
<
工程前缀
><
一般描述
><
具体名称
2>
End Enum
<
范围
>
表示了变量的作用域，对于
Private
类型和模块级变量，一般使用“
m
”前缀表示，对于
Public
类型的变量，一般使用“
g
”前缀表示，而对于过程内的局部变量，则不使用前缀。如果是数组，在范围前缀后增加“
a
”表示变量为数组。
对于数据类型，一般使用
表
1
‑2
的前缀表示。
表
1
‑
2
命名规则常用前缀
前缀
数据类型
前缀
数据类型
前缀
数据类型
is
Boolean
cm
ADODB.Command
cmb
MSForms.ComboBox
byt
Byte
cn
ADODB.Connection
chk
MSForms.CheckBox
cur
Currency
rs
ADODB.Recordset
cmd
MSForms.CommandButton
dte
Date
fra
MSForms.Frame
dec
Decimal
cht
Excel.Chart
lbl
MSForms.Label
f
Double
，
Single
rng
Excel.Range
lst
MSForms.ListBox
i
Integer
，
Long
wb
Excel.Workbook
mpg
MSForms.MultiPage
obj
Object
ws
Excel.Worksheet
opt
MSForms.OptionButton
str
String
spn
MSForms.SpinButton
u
User-defined type
cbr
Office.CommandBar
txt
MSForms.TextBox
v
Variant
ctl
相关文档：
【函数】
GetFileVersionInfo
【操作系统】
Win9X:Yes
WinNT:Yes
【声明】
GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" &n ......
“自动点击按钮”小工具VB源码
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
今天做一个VB程序的自显注册码。我也不知道该怎么叫，就是找到出现注册码的地方，然后用对话框弹出来。说白了就是用MessageBox把一个字符串给弹出来（没追求阿。。。）
为了有点追求，今天不导入user32里面的API，而是把VB里面自带的Msgbox函数给挖出来调用，就是引用MSVBVM60.rtcMsgBox函数。我� ......
'* ************************************************************** *
'* 程序名称：Button.ctl
'* 程序功能：透明浮动按扭
'* 作者：lyserver，最后修改日期：2009年11月
'* 联系方式：http://blog.csdn.net/lyserver
'* ************************************************************ ......
长久以来，由于不能直接获得VB类成员函数指针，因为无法在VB的类模块中直接使用定时器控件或定时器API，基于俺编写的获得类成员函数指针的函数，俺编写了这个带定时器功能的类，希望给朋友们一些启发。
一、新建一个类，类名称为clsTimer，类代码如下：
Option Explicit
'* ** ......
