谨慎使用IsMissing函数

     在VB6中提供了一个很好用的函数叫IsMissing，可以用来判断用户是否对缺省参数赋值，比如有以下一个函数体：

 

Public Property Get Item(Optional ByRef Index As Integer, Optional ByRef Name As String) As TDMAttachment Dim i As Long Dim lngIndex As Long Dim strName As String If Not IsMissing(Index) Then '如果输入了索引 If Not IsNumeric(Index) Then Exit Property lngIndex = Val(Index) If lngIndex >= 0 And lngIndex < m_lngCount Then Set Item = m_objAttachments(lngIndex) End If ElseIf Not IsMissing(Name) Then '如果输入了名称 strName = CStr(Name) For i = 0 To m_lngCount - 1 If m_objAttachments(i).Name = strName Then Set Item = m_objAttachments(i) Exit Property End If Next End If End Property

    此函数是一个父类的属性，可以根据用户输入的索引或者名称来返回一个子类。从代码上看似乎没有什么问题，但是，当用户使用Set objChild=Item("名称")来获得子类对象时，返回的结果是不正确的。为什么会这样呢？原来，在VB里，除了VARIANT类型外，其它数据类型都被赋了初始值，比如所有的Byt、Integer、Long、Double等数值型初始始为0，String的初始值为""（注意，""并不是vbNullString），Object的初始值为Nothing，而IsMissing函数在判断时，是无法区分参数变量的值是VB设定的初始值还是用户赋予的值，因此检测结果始终为True，从而导致ElseIf Not IsMissing(Name) Then这一条分支代码根本不会运行。那么，如何避免这种情况呢？

    其实，只要把数据类型改为Variant就可以了，修改后的代码如下：

Public Property Get Item(Optional ByRef Index As Variant, Optional ByRef Name As Variant) As TDMAttachment Dim i As Long Dim lngIndex As Long Dim strName As String If Not IsMissing(Index) Then '如果输入了索引 If Not IsNumeric(Index) Then Exit Property lngIndex = Val(Index) If lngIndex >= 0 And lngIndex < m_lngCount Then Set Item = m_objAttachments(lngIndex) End If ElseIf Not IsMissing(Name) Then '如果输入了名称 strName = CStr(Name) For i = 0 To m_lngCount - 1 If m_objAttachments(i).Name = strName Then Set Item = m_objAttachments(i) Exit Property End If Next End If End Property

    虽然为了提供代码的健壮性，我一般主张尽量少使用Variant类型，但合理使用它，往往会起到一些良好的效果，但前提必须是——合理使用。