vb.net学习总结三（DropDownList 中 添加 StringIntObject 对象的原理）

ComboBox控件是组合框控件。如果将 其 DropDownStyle 设置成 DropDownList 那么它就变成了下拉列表框。下拉列表的每一个项，一般包括两个部分：

text   和  data

text 就是我们看到的列表中的显示数据，data 就是包含在列表中，但是我们看不到的东东。

比如有一个列表是选择 省份 ，虽然我们看到的是 吉林 辽宁 ……

但是我们在程序中一般会读取他的data,也就是省份的代码。

但是我们不能直接 为 list 分别赋 text 和 data 的值。

为了解决这个问题我们需要定义一个类。这个类包括两个成员，分别 代表 text 和 data

类如下：


''' <summary>


'''  此类定义 DropDownList 控件中的对象。


''' </summary>


''' <remarks></remarks>




Friend Class StringIntObjectClass StringIntObject


    Public s As String


    Public i As Integer






    Public Sub New()Sub New(ByVal sz As String, ByVal n As Integer)


        s = sz


        i = n


    End Sub






    Public Overrides Function ToString()Function ToString() As String


        Return s


    End Function


End Class

请注意其重写了 ToString 方法，为什么要重写他呢？因为当我们将一个StringIntObject 对象 放到 列表框中后，他会把 ToString 的结果显示出来。我们便 重写 ToString 方法，让其返回我们想显示在界面上的信息。 

向列表中添加一个项的方法如下：

 


'lsbUserList 为一个 DropDownList 控件 


Dim uItem As StringIntObject


 uItem = New StringIntObject("吉林省", 1)


lsbUserList.Items.Add(uItem)


 uItem = New StringIntObject("辽宁省", 2)


lsbUserList.Items.Add(uItem)


 uItem = New StringIntObject("广东省", 3)


lsbUserList.Items.Add(uItem)

 

获得用户选择项的方法：

 


Dim i As Integer 


i=CType(lsbUserList.SelectedItem, StringIntObject).i


dim s as integer


s=CType(lsbUserList.SelectedItem, StringIntObject).s

本文作者：northsnow（塞北的雪）