精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● 群件>>开发>>脚本LotusScript>>如何使用Notes启动OLE对象

主题:如何使用Notes启动OLE对象
发信人: [email protected]()
整理人: kamkam(2002-05-01 23:52:56), 站内信件

在Notes中启动OLE对象?虽然大家各有方法,可是还是看看这几个域,他们的组
合很有意思。
看看和其他方法有什么不同?

$OLEObjField -----文本,指定启动OLE对象的RTF域名,比如:OLEBody
$OLEObjRichTextField--------文本,指定OLE对象与Notes传递数据的RTF域名,
比如:Body
$OLEObjProgID-----------文本,指定OLE对象的名称,比如:Word.Document ,
 Excel.sheet
OLEBody---------RTF文本
Body----------RTF文本

在表单的PostOpen事件写如下代码
Sub Postopen(Source As Notesuidocument)
     Set note = Source.document
     Dim sProgid As String
     sProgid = note.~$OLEObjProgId(0)
     Source.GotoField(note.~$OLEObjField(0))
     Call Source.CreateObject("OLEObject", sProgId ,"")
End Sub

---------
敬请关注NotesFAQ站

--
黑夜的尽头是些许的灯光
通往理想的路是如此的艰辛。
面对荆棘,我只有奋然的前行

※ 来源:.网易虚拟社区北京站 http://bj.netease.com.[FROM: 202.96.167.50]

[关闭][返回]