小弟我往form窗体上加了一个commandbutton按钮,commandbutton按钮里的带码是:用shell函数调用一个EXE的可执行程序做完了以后运行起来,点击commandbutton按钮没有反应,它不执行这个事件。就相当于这个按钮是空的没用。小弟的操作系统是2000,VB是6.0。请各位高手及版主问题出在什么地方?如果可以能否给小弟说明如何使用shell这个函数的明细来。下面是小弟commandbutton按钮的实际带码:
Private Sub Command1_Click()
On Error GoTo FinalizeError
Shell "MuHappy.exe counnect" & " /u" & "202.101.62.42" & " /p" & "8698", vbNormalFocus
Command1.Enabled = False
FinalizeError: Exit Sub
End Sub
请给小弟实际中解决问题然后如果方便给小弟说明如何使用shell这个函数的明细来,小弟先谢谢各位了。
Private Sub Command1_Click()
On Error GoTo FinalizeError
Shell "MuHappy.exe counnect" & " /u" & "202.101.62.42" & " /p" & "8698", vbNormalFocus
Command1.Enabled = False
FinalizeError: Exit Sub
End Sub
请给小弟实际中解决问题然后如果方便给小弟说明如何使用shell这个函数的明细来,小弟先谢谢各位了。
解决方案 »
- 新手问题,老是提示没结束语句~求教~
- PID算法编程一问
- 急求——关于并口通信的资料/论坛/代码!
- 如何把现有的数据保存为Adobe的pdf文档
- VB查询数据库的日期问题。
- 看来是不行的了
- 高分!!如何用vb控制excel表格的具体操作
- 有关程序员的待遇问题
- VB在win98下通过VC编制的DLL访问硬件端口,请问在win2000下该怎末办?
- 在VB中,怎样使一段代码执行完毕后再继续下一个过程?比如:在RICHTEXTBOX中用LOADFILE加载文件,如何判断文件已经完全加载完毕并正常显示,然后在执行下面的程序。 小妹在此恭候赐教!
- 多达320多个特效函数的函数库,要的进来!!!!
- 请问VB中有没有可以带复选框的列表框控件?
如果不在,运行时会产生一个文件未找到的错误,而这个错误又被你的代码屏蔽掉了,所以按了像没按一样只是猜测~
Shell 函数
执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数:部分 描述
pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。
Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值:常量 值 描述
vbHide 0 窗口被隐藏,且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误。注意 缺省情况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。
On Error GoTo FinalizeError
Shell "MuHappy.exe counnect" & " /u" & "202.101.62.42" & " /p" & "8698", vbNormalFocus
Command1.Enabled = FalseExit Sub
FinalizeError:
msgbox err.description & err.number
Exit SubEnd Sub
1、是程序没有找到,被on error语句直接结束了
2、所发送的command不被另一程序接受,该程序直接关闭了
msg="信息发送!"
Shell "net send 192.168.1.69 " + msg
这是个调用系统net send方法。