问题出在哪?谢谢!

muxi02 2004-05-06 04:36:47
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
...全文
15 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yinweihong 2004-05-07
你是要用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通过
  • 打赏
  • 举报
回复
muxi02 2004-05-07
参数?哪里错了?

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

如果要调用对的话那应该怎么做的
  • 打赏
  • 举报
回复
muxi02 2004-05-07
怎么显示的还是"调用错误!"

30614141我白天一直在线,期待你的指教!
  • 打赏
  • 举报
回复
yinweihong 2004-05-06
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

楼主看看参数
  • 打赏
  • 举报
回复
相关推荐
发帖
API
加入

1468

社区成员

VB API
申请成为版主
帖子事件
创建了帖子
2004-05-06 04:36
社区公告
暂无公告