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
在文本框中输入值时,要多次检验文本框的值是否为空,这里是在模块里写的一个过程,每次要检验是某个值是否为空时,调用这个过程,通过返回的布尔值来判断是否为空。
由上可以看出,布尔值在用来做标记时,只有标记和不标记两种状态,可以用来判断是否被标记,然后根据是否标记来判断下一步的操作。一般布尔值的判断只有两种情况,但也可以把多个标记组合在一起用作判断语句。
时间: 2024-10-24 04:11:46