如何在vb程序中打开vip格式的文件

Question

vip格式的文件必须用维普浏览器浏览.
小弟想设计一个程序,通过点击按钮控件,直接打开vip格式的文件.该文件的路径和浏览器的安装路径已经知道.

Answer 1

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 Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
ShellExecute Me.hWnd, vbNullString, "f:\abc\aa.vip", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub