直接使用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字符串进行切分、判断等一系列操作
Command 函数获取命令行参数
返回命令行的参数部分,该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。
Command 可以直接用的,无需定义。
Private Sub Command1_Click()
MsgBox Command
End Sub