请问VB程序怎么处理命令行参数？

[zdhzidy]

用VB写一个简单的exe程序，只要可以判断有没有命令行参数，如果有就用MsgBox显示出来。那个大侠可以给我个例子，谢谢了

[goodname008]

Option Explicit

Private Sub Form_Load()
If Command() <> "" Then MsgBox Command()
End Sub

[goodname008]

Command 函数


返回命令行的参数部分，该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。

语法

Command

说明

当从命令行装入 Visual Basic 时，/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs 代表 Command 函数返回的参数信息。

VB /cmd cmdlineargs

对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，Command 返回出现在命令行中应用程序名之后的任何参数。例如：

MyApp cmdlineargs

想知道如何在正在使用的应用程序的用户界面中改变命令行参数，请搜寻关于“命令行参数”的帮助。

[zdhzidy]

thanks all，结帐

[lilaclone]

对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，VB提供了一个Command 对象，该对象返回出现在命令行中应用程序名之后的任何参数。下面函数演示了如何获取参数的所有技术细节。
　　Function GetCommandLine(Optional MaxArgs)
　　′声明变量。
　　Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
　　′检查是否提供了 MaxArgs 参数。
　　If IsMissing(MaxArgs) Then MaxArgs = 10
　　′ 使数组的大小合适。
　　ReDim ArgArray(MaxArgs)
　　NumArgs = 0: InArg = False
　　′取得命令行参数。
　　CmdLine = Command()
　　CmdLnLen = Len(CmdLine)
　　′以一次一个字符的方式取出命令行参数。
　　For I = 1 To CmdLnLen
　　C = Mid(CmdLine, I, 1) ′检测是否为 space 或 tab。
　　If (C <> ″ ″ And C <> vbTab) Then
　　′若既不是 space 键，也不是 tab 键，则检测是否为参数内含之字符。
　　If Not InArg Then
　　′新的参数。检测参数是否过多。
　　If NumArgs = MaxArgs Then Exit For
　　NumArgs = NumArgs ＋ 1
　　InArg = True
　　End If
　　′将字符加到当前参数中。
　　ArgArray(NumArgs) = ArgArray(NumArgs) ＋ C
　　Else
　　′找到 space 或 tab。将 InArg 标志设置成 False。
　　InArg = False
　　End If
　　Next I
　　ReDim Preserve ArgArray(NumArgs) ′调整数组大小使其刚好符合参数个数。
　　GetCommandLine = ArgArray() ′将数组返回。
　　End Function