vb中怎么实现按键显示Word文档,
1个回答
展开全部
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3
End Sub
Private Sub Command2_Click()
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Documents.Add ("c:a.doc")
WordApp.Visible = True
Set WordApp = Nothing
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
