form1.frm

很好的教程原代码！

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "获取参数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   1200
      TabIndex        =   0
      Top             =   1440
      Width           =   2175
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'本示例在某个函数中用 Command 函数获得命令行参数
'并将命令行参数以 Variant 类型之数组返回。
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

Private Sub Command1_Click()
    Dim Arg
    Dim ArgNum As Integer
    Dim ArgString As String
    Dim i As Integer
    Arg = GetCommandLine(3)
    ArgNum = UBound(Arg)
    For i = 1 To ArgNum
        ArgString = ArgString + vbCrLf + "Arg(" + Trim(Str(i)) + ") = " + Arg(i)
    Next i
    MsgBox "参数个数：" + Str(ArgNum) + vbCrLf + ArgString
End Sub