Public 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)Public Const SW_HIDE& = 0
Public Const SW_SHOWMAXIMIZED& = 3
Public Const SW_SHOWMINIMIZED& = 2
Public Const SW_SHOWMINNOACTIVE& = 7
Public Const SW_SHOWNA& = 8
Public Const SW_SHOWNOACTIVATE& = 4
Public Const SW_SHOWNORMAL& = 1假设你要打开的WORD文件为 c:\abc.doc 则在窗体的KeyDown事件中写如下代码:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
ShellExecute(Me.hwnd, "open", "C:\abc.doc", "", "", SW_SHOWNORMAL)
End If
End Sub
Public Const SW_SHOWMAXIMIZED& = 3
Public Const SW_SHOWMINIMIZED& = 2
Public Const SW_SHOWMINNOACTIVE& = 7
Public Const SW_SHOWNA& = 8
Public Const SW_SHOWNOACTIVATE& = 4
Public Const SW_SHOWNORMAL& = 1假设你要打开的WORD文件为 c:\abc.doc 则在窗体的KeyDown事件中写如下代码:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
ShellExecute(Me.hwnd, "open", "C:\abc.doc", "", "", SW_SHOWNORMAL)
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货