''''而且不固定长度

    ''''所以这里用NameValueCollection返回。

    Private Nv As NameValueCollection

    Sub New(ByVal Str As String)

        Nv = New NameValueCollection

        Dim a As String() = Str.Split(";")

        For i As Integer = 0 To a.Length - 1 Step 2

            Dim t As Integer = i

            Nv(a(t)) = a(t + 1)

        Next

    End Sub

    ''''因为要添加到combobox，这里重载了一下tostring以显示文本

    Overrides Function tostring() As String

        Return Nv("ServerName")

    End Function

End Class

上一页  [1] [2] [3] [4] [5] [6] [7]  下一页