VB6コントロールが.NETでインデックスされているかどうかを調べる方法（コントロール配列）

Question

私はVB.NETプロジェクトでCOM Interopを使用してVB6フォームを操作しています。私のVB6フォームのコントロールのいくつかはインデックスが付けられていて、そうでないものもあるので、インデックスのないものではctl.Indexを呼び出すことができません。コントロールがインデックスに登録されている場合は、うまくいく方法はありますか？

Answer 1

あなたは型名の機能を使用することができます - のように - コントロール配列は、タイプ「オブジェクト」ではなく、実際の制御タイプを返します。そう：

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

Answer 2

私は、これを機能させるための解決策をナイフとフォークで管理しています。しかし、毎回フォーム上のすべてのコントロールを反復するほど効率的ではありません。私は私の心の後ろに、コントロールが配列かどうかをテストするための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の等価です：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 3

Iは@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