VB中的类模块

 以前一直搞不明白VB中的类模块到底是做什么的，这次在敲学生信息管理系统的过程中，才发现它的好处。

 举个通俗易懂的例子，VB中的类模块就是用来放VB中公用的代码，都放在这个类模块里面，当用的时候只需要调用即可。就好比我们农村对庄稼浇水似的，都共用一口井。当用的时候，只需要自己动手即可。

  牛刀小试：

    可以在VB的窗体中加载一个类模块窗体。代码如下：

 

Public Function Testtxt(txt As String) As Boolean    If Trim(txt) = "" Then        Testtxt = False    Else        Testtxt = True    End IfEnd Function    

     以上代码用来判断是否txt这个字符串为空。

     接下来，可以在窗体中添加文本框来调用以上函数来判断是否文本框为空。

     代码如下：

   

  Private Sub command1_Click()if not testtxt(text1.text) thenmsgbox "请输入文本"                end if      end sub  

  如果我们在应用VB的过程中要加载大量窗体的话，并且需要验证文本框是否为空的状态下，通过类模块定义一个公共代码，会方便很多。以上就是类模块的作用。