标签：
前言：学习任何编程语言、编程工具的目的不外乎解决生活问题，能够快速、高效解决问题的方式就是不错的方式，至于选择什么“工具”，众位看官看着办，本人虽然有过3年vb开发经验，但是一直没有深入学习，现已购买 《张宁著 老兵新传 核心编程及通用模块开发》，深入学习vb开发，继续将vb发扬光大。
一、知识准备
本章从API函数开始介绍vb下如何使用api函数，模块、类模块的编写。主要还是阐述的一种思想，通用模块开发，编写的模块能够通用，多次使用，尽量要降低错误，以达到重复利用目的，从通篇介绍来看，以后还是可以将不错的模块全部类模块化，调用也方便，使用更便捷。
编程风格总结：
1、标准命名肯定是要遵守的，基本上都是匈牙利命名法吧，例如cmd_Print，strTmp，intValue等。
2、变量使用一定要定义（option explicit），另外少用站16字节的variant类型。
3、代码格式化用格式化工具随时格式化。
4、用好with end with ，不用的代价是系统资源开销大。另外还可以这样用：
dim objText1 as TextBox
set objText1 = Text1
objText1.Text = "测试程序"
objText1.Enabled = 1
objText1.SelStart = 0
示例：
dim lsItem as ListItem
with ListView1
.View = lvwReport
set lsItem = .ListItems.Add(,"L1","Text1")
lsItem.ToolTipText = "ToolTip1"
lsItem.SubItems(1) = "Sub1_1"
lsItem.SubItems(2) = "Sbb2_2"
lsItem.Selected = 1
set LsItem = Nothing
End With
另外注意with end with 中最好不用goto语句跳转。
5、布尔值判断。If Check1.checked then Text1.Text = "患者姓名" 因为非0值都表示为真，只有0才表示为假。假=0 真=-1
6、字符串为空判断。If Len(strTmp) = 0 then exit sub
7、能用常量就不要用函数求值，例如：If strKey = vbcrlf then strText = "通过" ,vbcrlf = chr$(13) + chr$(10)
8、数组下标从1开始，0可以定义为出错代码，这个经验很少遇到，可以看看是否有好处！！！
9、用Optional选项定义函数的参数，达到“重载”目的，同一个函数可以传不同的数据参数，这个也少遇到，需要多看看。另外一旦用了Optional后续定义参数都需要用它。实例：public function Getvalue(str1 as string,Optional byval str2 as string ,Optional byval str3 as string)
10、ActiveX控件都是封装api的，多熟悉api，减少对activex的使用。
11、条件编译，好处是编译的文件小，很少遇到！！！
12、善用MSDN，主要了解Windows的运行机制、运行原理，查找API函数定义等，另外借助c++头文件查找。
本章大体这些，经验不多，4、5、6这几条以后的编程中还是要多注意！
VB 核心编程及通用模块开发 笔记1
标签：
原文地址：http://www.cnblogs.com/yhsc/p/4716731.html
