7,789
社区成员
发帖
与我相关
我的任务
分享高手来帮帮我啊~~着急啊~~
一个软件就要交了，但是我不知道程序怎么调用帮助文件：（5555教教我啊~~
是不是shell "..."啊？那路径怎么设置呢？
是不是shell "..."啊？那路径怎么设置呢？
...全文
请发表友善的回复…
发表回复
didishu0807 2003-08-27
- 打赏
- 举报
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 Label1_Click()
On Error GoTo Errhandle
ShellExecute Me.hwnd, "open", "c:\help.hlp", vbNullString, vbNullString, 1
Exit Sub
Errhandle: MsgBox Err.Description & "！", vbInformation
End Sub
Private Sub Label1_Click()
On Error GoTo Errhandle
ShellExecute Me.hwnd, "open", "c:\help.hlp", vbNullString, vbNullString, 1
Exit Sub
Errhandle: MsgBox Err.Description & "！", vbInformation
End Sub
射天狼 2003-08-27
- 打赏
- 举报
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 Label1_Click()
On Error GoTo Errhandle
ShellExecute Me.hwnd, "open", "c:\help.hlp", vbNullString, vbNullString, 1
Exit Sub
Errhandle: MsgBox Err.Description & "！", vbInformation
End Sub
Private Sub Label1_Click()
On Error GoTo Errhandle
ShellExecute Me.hwnd, "open", "c:\help.hlp", vbNullString, vbNullString, 1
Exit Sub
Errhandle: MsgBox Err.Description & "！", vbInformation
End Sub
_西瓜皮_ 2003-08-26
- 打赏
- 举报
呵呵。。shell是不能调用非exe文件的.
nickelzu 2003-08-26
- 打赏
- 举报
怎么没人里我啊？？？？？？？？？？？
nickelzu 2003-08-26
- 打赏
- 举报
帮帮忙啊~~我在线等答案啊~~~：（55555555
