示例：获取 TagDB 对象的父项

TagDB 对象的父项为 Application 对象。本示例用于获取 TagDB 对象的父项并打印名称。
Sub GetTagDBParent()
Dim dbParent As Application
Dim sAppName As String
'Get the current TagDB's parent object.
Set dbParent = TagDB.Parent
'Get the application name.
sAppName = dbParent.ApplicationName
'Print the application name.
Debug.Print "The current TagDB'parent name is: " & sAppName
End Sub
提供反馈
对本文档有问题或反馈吗？ 请在这里提交您的反馈 。
Normal