VB中的类模块

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

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

牛刀小试：

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

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

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

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

代码如下：

  Private Sub command1_Click()

if not testtxt(text1.text) then

msgbox "请输入文本"

                end if

      end sub  

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!