物件被刪除桌面鏈結或鏈結後,如何再將其顯示在物件樹上?
手動拖曳即可
======================================================================
script的code部分
Function Test_AddToDeskTop(ApplHndl As Long,Sstr As String,FirstPar As Long,SecondPar As Long,ThirdPar As Long ) As Integer
Dim SmSession As ISmSession
Dim FirstRec As Object
Dim SecondRec As Object
Dim ThirdRec As Object
Dim WorkObject As SmApplic.ISmObject
Set SmSession = SCREXT_ObjectForInterface(ApplHndl)
CONV_RecListToComRecordList FirstPar,FirstRec
CONV_RecListToComRecordList SecondPar,SecondRec
CONV_RecListToComRecordList ThirdPar,ThirdRec
Set WorkObject = Smsession.ObjectStore.RetrieveObject(Smsession.ObjectStore.ObjectFromData(FirstRec.GetRecord(0),True).ClassID,Smsession.ObjectStore.ObjectFromData(FirstRec.GetRecord(0),True).ObjectID)
WorkObject .AddToDesktopEx MainObject, LinkClassId,Behavior, LinkObject, RootObject
End Function
=============================
Mainobject是Project
LinkClassid=0
Behavior=CoYesall
LinkObject跟RootObject應該是不用設
沒有留言:
張貼留言