如何接受启动参数？

Question

如：程序.exe －a 等等

Answer 1

Sub Main()Dim str As StringDim arrTemp() As Stringstr = Command ''取得参数，此处传入工号和姓名 比如 “000 管理员”'gUserName = GetCurrentUserName
'
'If Len(gUserName) > 8 Then gUserName = left(gUserName, 8) '长度只能是8位
'
'If Len(gUserName) > 3 Then '长度只能是3位
'
'    gUserID = left(gUserName, 3)
'
'Else
'
'    gUserID = gUserName
'
'End If#If intDebug = 0 Then    If Len(str) = 0 Then Exit Sub
    
    arrTemp = Split(str, " ")
    
    If UBound(arrTemp) = 1 Then
    
        gUserID = arrTemp(0)
        
        gUserName = arrTemp(1)
    
        If Len(gUserID) <> 3 Then Exit Sub ''工号必须是3位
        
        If Len(gUserName) > 8 Then Exit Sub ''名字必须<8位
        
    Else
    
        Exit Sub
        
    End If#End If#If intDebug = 1 Then
    
    gUserID = "000"
    
    gUserName = "管理员"
    
#End IfIf ConnectToDB = False Then Exit SubFrmGPRS.ShowEnd Sub
就这样接受参数

Answer 2

Command就是参数
msgbox Command