Question

VB设置应用程序的参数?

就像例如执行命令：notepad D:\a.txt
记事本就打开D:\a.txt
VB怎么做出这种效果？
还有应用程序的参数，例如/s,/h等参数？100分悬赏！

Answer 1

用command函数获取命令行参数：
Private Sub Form_Load()
Me.AutoRedraw = True
Print Command
End Sub

调试时可以这样：点击菜单“工程”-->“工程1属性”，弹出来的窗口中选择“生成”页面，在“命令行参数”里面输入参数，例如/y /u之类，然后用上面代码运行时会看到输入的参数。
参数拆分可以用split函数：
dim arg() as string
arg=split(command," ")
print arg(0)

追问

例如执行命令：notepad D:\a.txt
记事本就打开D:\a.txt
VB怎么做出这种效果？

追答

'启动后将参数所指明的文本文件加载到文本框Text1中
Private Sub Form_Load()
on error goto errtrap
if command"" then
open command for input as #1
while not eof(1)
line input #1,s
text1.text=text1.text & s & vbnewline
wend
close #1
end if
exit sub
errtrap:
msgbox command & "文件不存在"
end sub

Answer 2

vb也支持，存放在command中，这是个系统变量，
比如你编写一个abc.exe，然后你运行　abc.exe /a /b /c
这样，在程序中msgbox command ,结果是显示　/a /b /c
对于这个string 你可以用split 或正则等方法去分析，然后做相应的动作。

追问

明白了，但是执行命令的怎么做？
例如执行命令：notepad D:\a.txt
记事本就打开D:\a.txt
VB怎么做出这种效果？

追答

这个很简单吧，
如果你的command确定只有路径的话，可以这样。
dim path as string
path =trim(command)
if len(dir(path)) >0 then '如果文件存在
'打开文件,'opentextfile 为你的打开文件的sub。
textbox1.text = opentextfile(path)
endif

Answer 3

shell ("cmd.exe /k notepad.exe")
/k 后面可以跟dos命令
你看这样可不可以满足你的要求？