[求助]如何修改实体的扩展数锯?
我用SetXdata方法给实体设置Xdata之后,如何删除或修改这些Xdata? 修改再用SetXdata即可,而删除就要用LISP编程。 删除也是使用SetXdata,不过这时的数组元素只有一个。即组码只有1001,值就是应用程序名称。如:Dim XDataType(0) As Integer
Dim XDataValue(0) As Variant
XDataType(0) = 1001
XDataValue = AppName 'AppName为应用程序名称,即原来设置扩展数据时的值
Object.SetXData XDataType, XDataValue 'Object为对象,即原来设置扩展数据时的对象 首先谢过二位。
如果采用VBA来删除Xdata,是不是如版主所言,无法把原来的应用程序名称也删掉呢?
页:
[1]