VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB编程步步高-杂类篇(二)
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9537, 日期:2000-10-20
VB编程步步高-杂类篇(二)

作 者 : 甘冀平




   Null, Empty, Nothing, and vbNullString的区别

   以上这些奇怪的数值间有些微妙的不同含义:

   Null:Null是一个象Integer或者String一样的变量类型,它表示一个没有合法数据的变量。这有别于zero、Nothing、Empty或者vbNullString。许多数值与Null结合在一起,都将产生Null结果。比如:

   表达式 结果
Null - Null Null
Null + 7  7
Null = Null Null

   你可以使用IsNull语句来判断表达式是否为Null:

   If IsNull(my_variable) Then ...

   Empty:这也是一个象Integer或者String一样的变量类型,它表示了一个还没有进行初始化的变量。它与Null的意义不同,Null表示没有合法数据。

   一个没有初始化的变量的数值是Empty。你可以使用IsEmpty语句来判断是否变量进行了初始化:

   If IsEmpty(my_variant) Then ...

   Nothing:这是一个指向空对象的对象引用。将对象引用设置为Nothing,就释放了那个对象。如果没有其他的引用指向对象,Visual Basic就将销毁这个对象。

   Dim obj As Form1
   :
   Set obj = Nothing 注释: Free the object reference.

   使用Is Nothing语句来判断是否一个引用为Nothing:

   If obj Is Nothing Then ...

   vbNullString:这是个常量,表示一个empty字符串。它与空白字符串""不同,表示什么也没有的字符串(nothing string)。对于许多场合,它被当作一个empty字符串""处理,真正使用它的目的是传递null参数给库函数。

   Null是一个很奇怪的数值,它不是zero,不是Nothing,不是vbNullString。它是没有定义的东西。

   判断字符串是否为空白

   有以下几种方法判断一个字符串是否为空白:

    Dim txt As String
    Dim blank As String

        blank = ""
            :
        If Len(txt) = 0 Then ...
        If txt = vbNullString Then ...
        If txt = "" Then ...
        If txt = blank Then ...

   经过测试,Len(txt)=0的方法要比其他方法快20%多。

   从字符串尾部搜索匹配子串

   在Visual Basic 版本6中,可以使用InStrRev函数实现从字符串尾部搜索匹配子串的功能。在早期的版本中,没有这个函数,做为替换,请使用下面的代码:

    Function LastInStr(txt As String, pattern As String)
    Dim pos1 As Integer
    Dim pos2 As Integer

        pos2 = 0
        Do
            pos1 = pos2
            pos2 = InStr(pos1 + 1, txt, pattern)
        Loop While pos2 > 0
        LastInStr = pos1
    End Function