vb.net 教程 3-4 窗体编程 公共控件3 Listbox & NumericUpDown

7、ListBox

列表框

常用属性

SelectionMode：选择模式，默认为One。

       MultiExtended 可以选择多项，并且用户可使用 Shift 键、Ctrl 键和箭头键来进行选择。
       MultiSimple 可以选择多项。
       None 无法选择项。
       One 只能选择一项。

HorizontalScrollbar：当项目超出水平边界时是否显示水平滚动条

ScrollAlwaysVisible：是否始终显示垂直滚动条

常用的还是设置它的Items成员，请参见前文。

如下代码，注意：先将Listbox1的SelectionMode属性设置为MultiExtended。

    '显示选中项目
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim selectedGame As New List(Of String)
        'SelectedItems:选中的项目
        For i As Integer = 0 To ListBox1.SelectedItems.Count - 1
            selectedGame.Add(ListBox1.SelectedItems(i))
        Next

        Dim gameinfo As String = ""
        If selectedGame.Count > 0 Then
            For i As Integer = 0 To selectedGame.Count - 1
                gameinfo &= selectedGame(i) & Chr(13)
            Next
            MessageBox.Show("您感兴趣的游戏有：" & Chr(13) & gameinfo.TrimEnd(Chr(13)))
        Else
            MessageBox.Show("非常遗憾，没有您感兴趣的游戏")
        End If
    End Sub
    '全部选中
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        For i As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(i, True)
        Next
    End Sub
    '全部不选择
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        For i As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(i, False)
        Next
    End Sub

运行效果：

如果设置的数据只能从中选择一项，那么我们可以使用ListBox1.SelectedIndex来获得选择项序号。

还是使用以上例子的数据，来看看如果只能选择其中一项时候如何获取选择的值：

注意：先将Listbox1的SelectionMode属性设置为One

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        MessageBox.Show(ListBox1.Items(ListBox1.SelectedIndex))
    End Sub

8、NumericUpDown

数值框：用来显示和输入数值

常用属性：

value：设置或者获取当前数值

Maximum：数值框的最大值

Minimum：数值框的最小值

Hexadecimal：使用16进制显示

DecimalPlaces：显示小数的位数，0-99之间

Increment：按下向上或向下箭头时候，数值的增加/减少值

常用事件：

ValueChanged：当数值框的值发生改变时

简单的示例代码，DecimalPlaces已经设置为2：

    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
        lblNumeric.Text = "当前值为：" & NumericUpDown1.Value
    End Sub

运行效果：

学习更多vb.net知识，请参看 vb.net 教程 目录