[VB.NET]如何把Combobox的下拉列表显示成Checkbox?
2008-12-28 14:06
621 查看
![](http://www.zhzx123.com/VB.NET_03.gif)
<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
如何把Combobox的下拉列表显示成Checkbox?
如何把Combobox的下拉列表显示成Checkbox,就像CheckedListBox.
(为什么有CheckedListBox而没有CheckedCombobox)
__________________________________________________________________________
'' 在窗体中加入一个CheckedListBox,和一个ComboBox
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
With Me.CheckedListBox1
.Visible = False
.Items.Add( "Check it out! ")
.Items.Add( "How about this? ")
.Items.Add( "Tis good too! ")
.Height = Me.CheckedListBox1.Items.Count * 18
.CheckOnClick = True
End With
Me.Timer1.Enabled = False
Me.Timer1.Interval = 10
End Sub
Private Sub ComboBox1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDown
Me.ComboBox1.DropDownHeight = 1
With Me.CheckedListBox1
.Top = Me.ComboBox1.Top + Me.ComboBox1.Height
.Left = Me.ComboBox1.Left
.Width = Me.ComboBox1.Width
.Visible = True
End With
End Sub
Private Sub CheckedListBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckedListBox1.MouseLeave
Me.CheckedListBox1.Visible = False
Me.ComboBox1.Text = " "
For i As Int32 = 0 To Me.CheckedListBox1.CheckedItems.Count - 1
Me.ComboBox1.Text &= Me.CheckedListBox1.CheckedItems(i).ToString & ", "
Next
Me.ComboBox1.Text = Me.ComboBox1.Text.TrimEnd( ", ")
End Sub
End Class
__________________________________________________________________________
我是从Cooly(☆不做开发很久了......☆)老兄的一个回帖里看到的。
参考:http://topic.csdn.net/t/20030304/15/1490274.html#
__________________________________________________________________________
学习
__________________________________________________________________________
相关文章推荐
- VB.Net自己写的一个控件:ComboBox下拉列表中显示多列数据(可以绑定数据表)
- [ASP.NET] excel里如何从左侧的下拉列表里进行选择,右侧的另一列直接显示分数
- 浅析VB.NET实现下拉列表的折行显示
- [VB.NET]VB.net中如何直接把Combobox下拉项拖放到另一个Combobox
- 如何使已经有选中项的ComboBox在点击下拉箭头时,仍然默认从列表开始处显示,而不是跳到选中项的位置
- 如何实现ComboBox下拉列表显示图片
- RadComboBox 的 Virtualization 方式,解决数据过多,下拉列表显示缓慢问题。
- 如何在下拉列表中显示选定项
- VC中点击ComboBox下拉列表不显示数据的解决方法
- C#中如何使ComboBox不能输入,只能从下拉列表中选择
- VB.Net程序设计:ComboBox下拉列表中显示多列数据-增加一个事件。
- [VB.NET]如何取得DATAGIRD里CHECKBOX和TEXTBOX的值?
- 在combobox下拉列表中显示Treeview(转自csdn)
- 颜色下拉COMBOBOX控件(vb.net)
- EXT.NET 选择ComboBox下拉框中的值,另外一个下拉框的显示状态跟着变化
- 如何在文本框中显示下拉列表的选中的值
- VC中ComboBox下拉列表不显示数据或只显示一行问题
- VB.NET连接Office Access数据库显示列表数据
- VB.net基础:如何获得并显示网上图片
- 如何不显示网页中文本框下方的下拉列表