(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
再賦值給控件
文章名稱:vb.netcombo的簡單介紹
本文地址:http://vcdvsql.cn/article22/dopedjc.html
成都網站建設公司_創新互聯,為您提供網站維護、網站制作、微信公眾號、網站排名、搜索引擎優化、小程序開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯