问题出在哪?谢谢!

[muxi02]

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
Dim i As Integer
i = WinExec("notepad.exe", "c:\wst.txt", 9)
If i > 32 Then
MsgBox "调用下确!!"
Else
MsgBox "调用错误!!"
End If

End Sub

[yinweihong]

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
Dim i As Integer
i = WinExec("c:\windows\notepad.exe", 9)
If i > 32 Then
MsgBox "调用下确!!"
Else
MsgBox "调用错误!!"
End If

End Sub

楼主看看参数

• 打赏
• 举报

回复 赞

[muxi02]

怎么显示的还是"调用错误!"

30614141我白天一直在线,期待你的指教!

• 打赏
• 举报

回复 赞

[muxi02]

参数?哪里错了?

如果照你这样改的话,它就会一直出现一个"调用出错"的提示,不就永远也不会有可以调用的时候了

如果要调用对的话那应该怎么做的

• 打赏
• 举报

回复 赞

[yinweihong]

你是要用Notepad.exe打开c:\wst.txt么？
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
Dim i As Integer
i = WinExec("c:\windows\notepad.exe c:\wst.txt", 1)
If i > 32 Then
MsgBox "调用下确!!"
Else
MsgBox "调用错误!!"
End If

End Sub
xpsp1+vb6sp5通过

• 打赏
• 举报

回复 赞