''''而且不固定长度
''''所以这里用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] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18