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 教程 目录