| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 87 人关注过本帖
标题:Shell函数的问题
只看楼主 加入收藏
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
结帖率:91.82%
  已结贴   问题点数:10  回复次数:2   
Shell函数的问题
我学习Shell函数。代码如下:
Function retnum()
NL = Chr(13) + Chr(10)
msg$ = "1.运行DOS命令" + NL + "2.运行VB应用程序"
msg$ = msg$ + NL + "3.计算器"
msg$ = msg$ + NL + NL + "请输入数字选择"
retnum = InputBox(msg$)
End Function
Private Sub Command1_Click()
r = retnum()
Select Case r
    Case 1
        x = Shell(", 1)
    Case 2
        x = Shell("D:\Common\VB6.EXE", 1)
    Case 3
        x = Shell("calc.exe", 1)
    Case Else
        MsgBox "请输入1-3的数"
End Select
End Sub

Private Sub Command2_Click()
End
End Sub
界面如下:

我意图是单击按钮1出现一个输入框,选择1,出现DOS界面。

可是我输入1,单击确定,出错:

点击调试:

我用的系统是WIN10。
请问高手,如何解决?谢谢!
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: Shell Case 函数 End Sub 
【推荐】大型监控、工控、组态VC++./C#源码组件库2019下载!
【推荐】超50万数控、建模仿真、电力VC++/.NET图形源码库下载!
【推荐】专业CAD\GIS\业务流程VC++/C#可视化图形软件源码库下载!
2019-11-17 19:38
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:260
帖 子:4466
专家分:27601
注 册:2008-10-15
  得分:10 
WIN10 有 吗?

WIN10 是 CMD.exe 吧。


好像是 DOS - WIN9X 时代的命令,你拿的啥时编辑的书啊?
VB6 是 98年左右出的,那时桌面操作系统还是 WIN98 ,后面还有 WIN Me ,这都是 WIN9X 系列。然后再转入WIN NT 系列的 WIN2000、WIN XP 。

另我,NL不需要自己定义,有常量: vbCrLf  

授人于鱼,不如授人于渔
早已停用QQ了
2019-11-18 08:15
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:414
专家分:104
注 册:2008-11-12
  得分:0 
谢谢!
2019-11-18 08:21
快速回复:Shell函数的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.099197 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved