在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]
|
|