如何在access窗体中预览链接的word文档???

fong

请问各位专家,如何在access窗体中预览本地电脑的word文档?不是在表中创建ole,因为这样数据库变得狂大,是采用链接的方式,急呀,在网上找了半天,没有教程呀~~~~~

fong

怎么没有人回答呀？很难吗？

Grant

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_VISIBLE = &H10000000Private Sub Command1_Click()
              Dim handle As Long, Ret As Long
              '获取窗体句柄
              handle = Form2.hwnd             ' handle =FindWindow(vbNullString, "TheWorld") '示例手工输入外部窗体标题,如记事本
              Ret = SetWindowLong(handle, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS)
              '插入指定的窗体
              SetParent handle, Picture1.hwnd
              Form2.Move Picture1.ScaleLeft, Picture1.ScaleTop
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

fong

斑竹,能不能详细介绍一下呀,如何在access窗体里预览比如"c:\1.doc"的文件,你写得太牛了,但看得不是太明白~~~谢谢啦

fong

到底如何做呀?高手在吗?

fong

救救我呀～～～～～～高手们......

sgrshh29

原帖由 fong 于 2008-9-1 11:44 发表
救救我呀～～～～～～高手们......

供你参考。

fong

谢谢啦！！！