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

 调用代码

    Sub GetSqlServers()

        Me.Cursor = Cursors.WaitCursor

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