2007年7月5日 星期四

物件被刪除桌面鏈結或鏈結後,如何再將其顯示在物件樹上?

手動拖曳即可
======================================================================
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應該是不用設

沒有留言: