[求助]如何修改实体的扩展数锯？

Theace

我用SetXdata方法给实体设置Xdata之后，如何删除或修改这些Xdata？

莫名

修改再用SetXdata即可，而删除就要用LISP编程。

efan2000

删除也是使用SetXdata，不过这时的数组元素只有一个。即组码只有1001，值就是应用程序名称。如：
    Dim XDataType(0) As Integer
    Dim XDataValue(0) As Variant
    XDataType(0) = 1001
    XDataValue = AppName 'AppName为应用程序名称，即原来设置扩展数据时的值
    Object.SetXData XDataType, XDataValue 'Object为对象，即原来设置扩展数据时的对象

Theace

首先谢过二位。
如果采用VBA来删除Xdata，是不是如版主所言，无法把原来的应用程序名称也删掉呢？