您的位置: 旅游网 > 社会

vb.net入门——ComboBox 控件的使用

发布时间:2019-12-04 03:45:48

前面我们了解了ListBox(列表框)控件的使用(参看:vb.net入门——ListBox控件的使用),在vb.net中还有一个与ListBox控件十分相似的控件——ComboBox 控件,也叫组合框。组合框控件包括两个部分,一部分是上部可以输入列表项的文本框;另一部分是位于文本框下方的列表框,用于显示用户可以从中选择的项的列表,如图一所示

组合框控件在vb.net工具箱中如下图二所示:

ComboBox 控件和ListBox 控件在功能上很相似,很多情况下,这两个控件是可以互换使用的,但是还是有某种特定的环境下只适合使用一种控件的情况。

通常,ComboBox控件适合于建议用户选择控件所列举的选项、同时又可以让用户自行在文本框中输入列表中不存在的选项的情况;而ListBox 控件适合于限制用户只能选择列表中的选项的情况。

在用户界面上,因为ComboBox 控件默认情况下是存在下拉列表框的,所以比ListBox 控件占用的窗体空间少,更加适合于使用在存在大量列表项的情况下。如下图三所示的是QQ修改个人设置的界面,它大量地合理使用ComboBox 控件,使得用户界面简洁且能容纳下更多的选项信息。

由此可见,ComboBox 控件的比ListBox 控件更加能灵活多用。

一、ComboBox 控件的常用属性:

1、BackColor 属性:获取或设置ComboBox 控件的背景色。

2、DropDownStyle 属性:获取或设置指定组合框样式的值,确定用户能否在文本部分中输入新值以及列表部分是否总显示。它包含三个值,默认值为 DropDown,如下表所示:

成员名称说明DropDown文本部分可编辑。用户必须单击箭头按钮来显示列表部分。DropDownList用户不能直接编辑文本部分。用户必须单击箭头按钮来显示列表部分。Simple文本部分可编辑。列表部分总可见。

3、DropDownWidth 属性:用于获取或设置组合框下拉部分的宽度(以像素为单位),有些列表项太长,则需要通过改变该属性来显示该类表项的全部文字,如果未设置 DropDownWidth 的值,该属性返回组合框的 Width。需要注意的是,下拉部分的宽度不能小于 ComboBox 的宽度,所以我们设置 DropDownWidth 的值如果小于ComboBox 的宽度时下拉列表框的宽度还是与文本框的宽度一样。

4、DroppedDown 属性:获取或设置一个值,该值指示组合框是否正在显示其下拉部分。如果显示下拉部分,则为 true;否则为 false。默认值为 false。

5、IntegralHeight 属性:指定是否自动调整编辑框或列表框控件的高度,这样可以正确显示控件中的最后一项。指定是否自动调整文本框控件的高度,以显示一行文本。设计时可用;运行时只读。默认为False。如果列表框控件的高度不合适,则控件中的最后一行文字会只显示一部分,将 IntergralHeight 设置为“True” ,可以自动调整控件的高度,这样可以正确显示控件中的最后一项。注意:当 integralheight 属性设置为“True” 时,Height 属性的值可能与控件的真实高度不符。

6、Items 属性:获取一个对象,该对象表示该 ComboBox 中所包含项的集合。详细用法我们在下文介绍。

7、MaxDropDownItems 属性:下拉部分中可显示的最大项数。该属性的最小值为 1,最大值为 100。

8、Text 属性:ComboBox 控件中文本输入框中显示的文本。

9、SelectedIndex 属性和 SelectedItem 属性:SelectedIndex 属性返回一个表示与当前选定列表项的索引的整数值,可以编程更改它,列表中相应项将出现在组合框的文本框内。如果未选定任何项,则SelectedIndex 为-1;如果选择了某个项,则SelectedIndex 是从0开始的整数值。SelectedItem 属性与 SelectedIndex 属性类似,但是SelectedItem 属性返回的是项。

10、SelectedText 属性:表示组合框中当前选定文本的字符串。如果 DropDownStyle 设置为 ComboBoxStyle.DropDownList,则返回值为空字符串 ("")。可以将文本分配给此属性,以更改组合框中当前选定的文本。如果组合框中当前没有选定的文本,则此属性返回一个零长度字符串。如下代码,我们可以在ComboBox 控件的鼠标事件中验证该属性:

Private Sub ComboBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseUp

MessageBox.Show(ComboBox1.SelectedText)

End Sub

返回的值则是我们用鼠标选定了的文本。

与之对应的 SelectionLength 属性返回的则是该文本的字符数,SelectionStart 属性返回的则是组合框中选定文本的起始位置。

二、ComboBox 控件的重要方法:

1、BeginUpdate 方法和 EndUpdate 方法:当使用Add 方法一次添加一个项时,则可以使用 BeginUpdate 方法,以防止每次向列表添加项时控件都重新绘制 ComboBox。完成向列表添加项的任务后,调用 EndUpdate 方法来启用 ComboBox 进行重新绘制。当向列表添加大量的项时,使用这种方法添加项可以防止绘制 ComboBox 时闪烁。如下代码所示:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer = 0

ComboBox1.BeginUpdate()

For i = 0 To 999

ComboBox1.Items.Add("Item " &ComboBox1.Items.Count.ToString)

Next

ComboBox1.EndUpdate()

End Sub

2、Add 方法:items属性的方法之一,一般这样来使用:

ComboBox1.Items.Add("Item 0" )

还可以使用items属性的Clear方法来清除所有的列表项。

3、FindString 方法和FindStringExact 方法:

FindString 方法用于查找 ComboBox 中以指定字符串开始的第一个项,该方法是模糊查询,但是查找的字符串一定在匹配项的开始位置。

FindStringExact 方法用于查找与指定字符串完全匹配的项。

4、GetItemText 方法:返回指定项的文本表示形式。使用形式如下:

GetItemText(item)

三、示例:

我们这里以代码来了解ComboBox 控件的使用,在窗体中加入一个Combobox控件,四个Button控件,一个TextBox控件,一个GroupBox控件,布局如下图四所示:

1、在“添加1000项”的按钮Click事件中添加如下代码:

Dim i As Integer = 0

ComboBox1.BeginUpdate()

For i = 0 To 999

ComboBox1.Items.Add("Item " &(ComboBox1.Items.Count + 1).ToString)

Next

ComboBox1.EndUpdate()

2、在“添加一个项”按钮Click事件中添加如下代码:

ComboBox1.Items.Add(TextBox1.Text)

即以文本框中输入的文本作为项的文字。

3、在“查找模糊匹配项”按钮的Click事件中添加如下代码:

ComboBox1.SelectedIndex = ComboBox1.FindString(TextBox1.Text)

即返回以文本框中输入的文本开头的第一项作为ComboBox控件的选中项。

4、在“查找完全匹配项”按钮的Click事件中添加如下代码:

ComboBox1.SelectedIndex = ComboBox1.FindStringExact(TextBox1.Text)

即返回与文本框中输入的文本完全匹配的项作为ComboBox控件的选中项。

5、在ComboBox1的SelectedIndexChanged事件中添加如下代码:

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

MessageBox.Show(ComboBox1.GetItemText(ComboBox1.SelectedItem))

End Sub

当ComboBox1的当前选中项改变时,通过GetItemText方法返回当前选中项的文本。

现在可以运行测试。还有其它的一些方法,可以查看ListBox控件的文章:vb.net入门——ListBox控件的使用

安庆治疗前列腺炎费用
青海治疗癫痫病专科医院
甘肃治疗包皮过长费用
深圳做假牙去哪里做好
上海市口腔病防治院怎么样
猜你会喜欢的
猜你会喜欢的