小小Boolean

      Boolean类型的数据只有连个值，True或者是False。以前初学VB时，接触过很多数据类型，它们的作用通过大小和名称就可以大致判断出来，但是对于布尔值的理解，始终停留在True  or  false上面。

      后来在做小程序时，用它做过标记。那时候突然想：原来布尔值还可以这样用。这次在做学生信息管理系统时，感觉小小布尔值，真是起了很大的作用啊。

      1，标记登陆是否成功

      

Sub main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal     '将登陆窗体以模态方式显示
    
    'OK为fMainForm类的成员

    If Not fLogin.OK Then
        '如果登陆失败，则退出应用程序。
        End
    End If

    
    Unload fLogin
    
    Set fMainForm = New frmMain '显示主窗体实例
    fMainForm.Show
End Sub

  在登陆窗口中，通过验证用户名和密码后通过设置OK的值后传递给sub main()函数，之后执行if判断，来判断是否登陆成功。

   2，标记是否为空

  

Public Function Testtxt(txt As String) As Boolean     ’来检验文本框中的值是否为空
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function

 在文本框中输入值时，要多次检验文本框的值是否为空，这里是在模块里写的一个过程，每次要检验是某个值是否为空时，调用这个过程，通过返回的布尔值来判断是否为空。

 

   由上可以看出，布尔值在用来做标记时，只有标记和不标记两种状态，可以用来判断是否被标记，然后根据是否标记来判断下一步的操作。一般布尔值的判断只有两种情况，但也可以把多个标记组合在一起用作判断语句。