GetAllConnections子程序示例
2015-12-15 22:24:41   来源：   评论：0 点击：

下列示例说明如何在Rectangle对象上使用Click事件，获得画面内的所有数据项，然后将其显示在一个消息框中。

Private Sub Rect2_Click()

   Dim obj

   Dim str As String

   GetAllConnections Me

   For Each obj In AllConnectionsCollection

     str = str & CStr(obj) & vbCr

   Next

   MsgBox str, , Me.Name

End Sub