直接使用Command对象 Private Sub form_load() Dim ss If Command <> "" Then ss = Command '将命令行参数赋值给ss '这里写你要执行的代码(ss中就是你的命令行参数) End If End Sub
例如: Private Sub form_load() Dim ss If Command <> "" Then ss = Command '将命令行参数赋值给ss MsgBox "你的命令行参数是:" & ss End If End Sub 假设编译为abc.exe,路径为d:\abc.exe 在运行里输入 d:\abc.exe MyMingLingHang 程序运行时 msgbox 就提示 你的命令行参数是:MyMingLingHang 对于 \a \b 等一类多参数命令行也是全部存储在Command中的 具体使用时可以对ss字符串进行切分、判断等一系列操作