VB 核心编程及通用模块开发 笔记1

前言：学习任何编程语言、编程工具的目的不外乎解决生活问题，能够快速、高效解决问题的方式就是不错的方式，至于选择什么“工具”，众位看官看着办，本人虽然有过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这几条以后的编程中还是要多注意！