Question

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

Answer 1

Private Sub Form_Load()
    Dim A As String
    A = Command
    Select Case UCase$(A)
        Case "INSTALL"
            MsgBox "进入安装模式", vbInformation, "命令行测试"
            Me.Caption = "安装模式"
        Case "UNINSTALL"
            MsgBox "进入卸载模式", vbInformation, "命令行测试"
            Me.Caption = "卸载模式"
        Case Else
            MsgBox A, vbInformation, "命令行测试"
    End Select
End Sub

'比如将编译好的程序Test.exe放入D盘根目录下，然后启动命令提示符，将目录切换到D盘根目录，然后输入“Test install”则会自动弹出消息框。