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

下列示例找到对象Tank1的 TestPicture中。Dim iTank As Object Dim sDataSource As String Set iTank = untitled1 Tank1 sDataSource = FindDataSource(iTank, "VerticalFillPercentage ")