重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
(1)如果ComboBox中的不是通过数据绑定得到的,用ComboBox.Items.Clear 方法 从 ComboBox 中移除所有项。
10多年的雁塔网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同,自动调整雁塔建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联从事“雁塔网站设计”,“雁塔网站推广”以来,每个客户项目都认真落实执行。
'清除所有项
ComboBox1.Items.Clear()
'清除ComboBox1显示
ComboBox1.ResetText()
(1)如果ComboBox中的是通过数据绑定得到的,在用ComboBox.Items.Clear 方法 从 ComboBox 中移除所有项之前,先断开绑定的数据源。
'断开数据源
ComboBox1.DataSource = Nothing
'清除所有项
ComboBox1.Items.Clear()
'清除ComboBox1显示
ComboBox1.ResetText()
首先,combobox控件里的项目编号,从0开始,既第1项是0,第2项是1,......
所以,我不知道你这个1是不是指第2项?
其次,要让Combobox.Text的值变化为第1项的内容,你应该这样:
Combobox.Text = Combobox.items(1) '注意,这个是显示第2项的内容
这样, Combobox.SelectIndex的值就是1了。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("米")
ComboBox1.Items.Add("分米")
ComboBox1.Items.Add("厘米")
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
TextBox1.Text = "1"
Case 1
TextBox1.Text = "10"
Case 2
TextBox1.Text = "100"
Case Else
TextBox1.Text = ""
End Select
End Sub
End Class
可以先用字典法得到不重复值的数组:
Set d=CreateObject(“Scripting.Dictionary”)
For i =1 to Cells(rows.count,1).end(3).row
d(cells(i ,1).value)=“”
Next
y=d.keys
再赋值给控件