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