如何查明 VB6 控件是否在 .NET 中建立索引（控件数组）

Question

我正在开发一个 VB.NET 项目，以使用 COM Interop 操作 VB6 表单。我的 VB6 表单上的某些控件已建立索引，有些则没有，因此对那些没有索引的控件调用 ctl.Index 会失败。有没有办法确定控件是否已索引？

Answer 1

我已经设法用刀叉解决方案来使其发挥作用。但它的效率并不高，因为它每次都会遍历表单上的所有控件。我似乎记得在我的脑海里有一个VB6函数可以测试一个控件是否是一个数组，但我不记得了。对于任何感兴趣的人来说，我的功能如下，但如果可能的话，我仍然有兴趣找到一个更干净的解决方案？

Private Function FindIndex(ByRef objCtl As Object) As Integer
    For Each ctl As Object In objCtl.Parent.Controls
        If objCtl.Name = ctl.Name AndAlso Not objCtl.Equals(ctl) Then
            'if the object is the same name but is not the same object we can assume it is a control array
            Return objCtl.Index
        End If
    Next
    'if we get here then no controls on the form have the same name so can't be a control array
    Return 0
End Function

如果有人感兴趣的话，下面是 VB6 的等效代码：

Private Function FindIndex(ByRef F As Form, ByRef Ctl As Control) As Integer
    Dim ctlTest As Control
    For Each ctlTest In F.Controls
        If (ctlTest.Name = Ctl.Name) And (Not (ctlTest Is Ctl)) Then
            'if the object is the same name but is not the same object we can assume it is a control array
            FindIndex = Ctl.Index
            Exit Function
        End If
    Next
    'if we get here then no controls on the form have the same name so can't be a control array
    FindIndex = 0
End Function

Answer 2

我找到了一个类似于 @Matt Wilko 的解决方案，但它避免了循环遍历形式：

Public Function IsControlArray(objCtrl As Object) As Boolean
    IsControlArray = Not objCtrl.Parent.Controls(objCtrl.Name) Is objCtrl
End Function

来源：http://www.vbforums.com/showthread.php?536960-RESOLVED-how-can-i-see-if-the-object-is-array-or-not

Answer 3

在 vb6 中，您可以使用 TypeName 函数 - 控件数组将返回类型“Object”，而不是实际的控件类型 - 如下所示：

If TypeName(ctrl) = "Object" Then
  isControlArray = true
End If

Answer 4

如果控制数组只有一个成员，则上述解决方案不起作用。
测试控件是否作为控件数组成员的一个简单方法是测试控件的索引属性（控件数组）。这返回唯一标识控件数组中的控件的数字。仅当控件是控件数组的一部分时才可用。

Private Function IsControlArray(Ctl As Control) As Boolean
    On Error GoTo NotArray
    IsControlArray = IsNumeric(Ctl.Index)
    Exit Function
NotArray:
    IsControlArray = False
End Function