如何在VB可执行程序中接收参数

Question

Private Sub Main()
    
    If App.PrevInstance Then
        MsgBox LoadResString(20189), vbOKOnly + vbInformation, LoadResString(100)
        End
    End If
        
    gstrLanguageCode = Command()
        
    FrmMain.Show
    gblnLoginSuccess = False
    FrmLoginSys.Show 1
    If gblnLoginSuccess = False Then
        End
    End If
    
End Sub

Answer 1

command(),加分吧，我想你可以看帮助了

Answer 2

或命令行参数，然后用Command 函数获得

Answer 3

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

Answer 4

倒~command这个命令不会不知道吧~

Answer 5

command（） function可以得到命令行的参数