永发信息网

vb 接收参数

答案:2  悬赏:80  手机版
解决时间 2021-03-18 19:37
  • 提问者网友:欲望失宠
  • 2021-03-17 22:48
我写过这样的一段代码
Private Sub Form_Load()
msgbox command$
sub end
功能是显示程序运行时附带的参数。

如果我在exefile的注册表项关联我的程序,

x.exe %1

这样的话,每一个可执行程序在运行的时候,都会弹出它的路径,
我的问题是:在一个文件夹下用右键进行winrar压缩时,却只弹出winrar的路径,却不能显示这个文件夹的路径(winrar的参数)。
我想得到全部的参数...
最佳答案
  • 五星知识达人网友:想偏头吻你
  • 2021-03-18 00:26
加一个判断试一试 ,为了直观,变量我用中文了
if 获得路径=截取路径,右端为.exe then

查找注册表信息,判断截取字符

msgbox command¥
end sub

大概思路如此
全部回答
  • 1楼网友:行雁书
  • 2021-03-18 00:35

在你的sub main 中处理 command$ 这个全局的字符变量 if command$ = "/x" then msgbox "执行x "

例如

sub main() dim s as string dim a s="" a=split(command," ") '以空格分割命令行参数 for i=lbound(a) to ubound(a) s= s & "第" & i & "个参数:" & a(i) & vbcrlf next msgbox s end sub

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯