vb組合框控件的作用

一、組合框控件的主要屬性：

新?lián)峋W(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),新?lián)峋W(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為新?lián)岢砂偕锨Ъ姨峁┢髽I(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設(shè)要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的新?lián)嶙鼍W(wǎng)站的公司定做！

列表框控件的大部分屬性同樣適合于組合框，此外，組合框還有一些自己的一些屬性：

1、Style（類型）屬性

組合框共有三種 Style ：

當(dāng)值為 0 ，組合框是“下拉式組合框”（DropDown Combo），與下拉式列表框相似，但不同的是，下拉式組合框可以通過(guò)輸入文本的方法在表項(xiàng)中進(jìn)行選擇，可識(shí)別 Dropdown 、Click、Change 事件，

當(dāng)值為 1 ，組合框稱為“簡(jiǎn)單組合框”（Simple Combo），由可以輸入文本的編輯區(qū)與一個(gè)標(biāo)準(zhǔn)列表框組成，可識(shí)別 Change 、DblClick 事件，

當(dāng)值為 2 ，組合框稱為“下拉式列表框”（Dropdown ListBox），它的右邊有個(gè)箭頭，可供“拉下”或“收起”操作。它不能識(shí)別 DblClick 及 Change 事件，但可識(shí)別 Dropdown 、Click 事件

綜上所述，如果你想讓用戶能夠輸入項(xiàng)目，則應(yīng)將組合框設(shè)置成 0 或 1 ，如果只想讓用戶對(duì)已有項(xiàng)目進(jìn)行選擇，則應(yīng)將組合框設(shè)置成 2 。

2、Text（文本）屬性：

本屬性值返回用戶選擇的文本或直接在編輯區(qū)域輸入的文本，可以在界面設(shè)置時(shí)直接輸入

但要顯示多個(gè)選項(xiàng)，不能簡(jiǎn)單地用 Text 屬性指定，因?yàn)楹笠贿x項(xiàng)會(huì)覆蓋前面的選項(xiàng)，這時(shí)，常常要用到窗體的載入事件。（Form_Load）

Form_Load 的意思是，在打開(kāi)窗口的同時(shí)，將指定的內(nèi)容載入。

二、組合框的事件：

根據(jù)組合框的類型，它們所響應(yīng)的事件是不同的。

例如，當(dāng)組合框的 Style 屬性為 1 時(shí)，能接收 DblClick 事件，而其他兩種組合框能夠接收 Click 與 Dropdown 事件；當(dāng) Style 屬性為 0 或 1 時(shí)，文本框可以接收 Change 事件。

三、組合框的方法：

跟列表框一樣，組合框也適用 AddItem 、Clear 、RemoveItem 方法。

vb.net 磁盤(pán)文件列表，界面如圖，在.net下如何實(shí)現(xiàn)？

預(yù)先準(zhǔn)備三個(gè)圖標(biāo)文件，用于樹(shù)型控件中顯示磁盤(pán)符號(hào)和文件夾的圖像之用。

1、窗體上添加控件如下：

組合框控件 ComboBox1，樹(shù)型控件 TreeView1，列表框控件 ListBox1，圖像列表控件 ImageList1。

選中TreeView1，設(shè)置其ImageList屬性為ImageList1。

2、設(shè)置屬性

選中圖像列表控件 ImageList1，在屬性窗口里，選中屬性Images，單擊三個(gè)小點(diǎn)按鈕，出現(xiàn)圖像集合編輯器窗口，單擊[添加按鈕]，一一把準(zhǔn)備好的圖標(biāo)文件進(jìn)行添加，注意先后次序，如果不符合要求可以通過(guò)上下移動(dòng)按鈕重新改變次序。完成后單擊[確定]。

運(yùn)行圖如下：

完整代碼如下：

Imports?System.IO

Public?Class?Form1

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

'添加系統(tǒng)所有磁盤(pán)目錄符號(hào)

For?Each?MyDrive?As?String?In?Environment.GetLogicalDrives()

ComboBox1.Items.Add(MyDrive)

Next

'顯示第一個(gè)磁盤(pán)符號(hào)

ComboBox1.Text?=?ComboBox1.Items(0)

End?Sub

'遞歸過(guò)程添加目錄樹(shù)

Public?Sub?AddDirectory(ByVal?strFatherPath?As?String,?ByVal?strPath?As?String,?ByVal?nodeFather?As?TreeNode)

Dim?i?As?Integer

Dim?Mynode?As?New?TreeNode

'先添加本目錄

Mynode.Text?=?Strings.Replace(strPath,?strFatherPath??"\",?"",?,?1)

'為節(jié)點(diǎn)指定未被選中時(shí)顯示的圖標(biāo)

Mynode.ImageIndex?=?1

'為節(jié)點(diǎn)指定被選中時(shí)顯示的圖標(biāo)

Mynode.SelectedImageIndex?=?2

nodeFather.Nodes.Add(Mynode)

Application.DoEvents()

Try

Dim?str()?As?String?=?Directory.GetDirectories(strPath)

'遞歸遍歷該目錄的子文件夾

For?i?=?0?To?str.GetUpperBound(0)

AddDirectory(strPath,?str(i),?Mynode)

Next

Catch?ex?As?Exception

Debug.WriteLine(ex.Message)

End?Try

Mynode?=?Nothing

End?Sub

'根據(jù)給出的盤(pán)符添加目錄樹(shù)

Private?Sub?AddRootDirectory(ByVal?DiscSymbol?As?String)

Dim?Nynode?As?New?TreeNode

'先把磁盤(pán)盤(pán)符添加到樹(shù)中

TreeView1.Nodes.Clear()

Nynode.ImageIndex?=?0

Nynode.Text?=?DiscSymbol

Nynode.SelectedImageIndex?=?-1

TreeView1.Nodes.Add(Nynode)

Dim?i?As?Integer

'獲取磁盤(pán)根目錄下的文件夾

Dim?str()?As?String?=?Directory.GetDirectories(DiscSymbol??"\")

For?i?=?0?To?str.GetUpperBound(0)

'調(diào)用遞歸過(guò)程遍歷該文件夾里的所有子文件夾，并添加到樹(shù)型控件

AddDirectory(DiscSymbol,?str(i),?Nynode)

Next

Nynode?=?Nothing

End?Sub

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

'根據(jù)磁盤(pán)符號(hào)的變更，顯示根目錄里的文件

ListBox1.Items.Clear()

For?Each?MyFile?As?String?In?System.IO.Directory.GetFiles(ComboBox1.Text)

ListBox1.Items.Add(MyFile)

Next

'根據(jù)磁盤(pán)符號(hào)的變更，重新顯示目錄樹(shù)

Dim?DiscSymbol?As?String

DiscSymbol?=?Microsoft.VisualBasic.Left(ComboBox1.Text,?Len(ComboBox1.Text)?-?1)

Call?AddRootDirectory(DiscSymbol)

End?Sub

'遞歸過(guò)程根據(jù)子目錄尋找上級(jí)目錄名--從而構(gòu)成完整的目錄路徑

Private?Sub?AllPath(ByVal?ThisNode?As?TreeNode,?ByRef?MyPathName?As?String)

If?ThisNode.Level??1?Then

'該節(jié)點(diǎn)層數(shù)大于1，其父節(jié)點(diǎn)不是磁盤(pán)根目錄

MyPathName?=?ThisNode.Parent.Text??"\"??MyPathName

Dim?MyNode?As?TreeNode?=?ThisNode.Parent

Call?AllPath(MyNode,?MyPathName)

Else

'該節(jié)點(diǎn)層數(shù)等于1，其父節(jié)點(diǎn)就是磁盤(pán)根目錄

MyPathName?=?ComboBox1.Text??MyPathName

End?If

End?Sub

Private?Sub?TreeView1_AfterSelect(ByVal?sender?As?System.Object,?ByVal?e?As?System.Windows.Forms.TreeViewEventArgs)?Handles?TreeView1.AfterSelect

'為了搜索選中的節(jié)點(diǎn)對(duì)應(yīng)目錄的文件，需要組成全路徑

Dim?MyAllPathName?As?String?=?TreeView1.SelectedNode.Text

Dim?MyNode?As?TreeNode?=?TreeView1.SelectedNode

If?TreeView1.SelectedNode.Level?=?0?Then

'如果選中的是根節(jié)點(diǎn)

MyAllPathName?=?ComboBox1.Text

Else

'如果選中的是非根節(jié)點(diǎn)，調(diào)用遞歸過(guò)程組成全路徑

Call?AllPath(MyNode,?MyAllPathName)

MyAllPathName?=?MyAllPathName??"\"

End?If

'根據(jù)路徑，搜索文件名并顯示

ListBox1.Items.Clear()

For?Each?MyFile?As?String?In?System.IO.Directory.GetFiles(MyAllPathName)

ListBox1.Items.Add(MyFile)

Next

End?Sub

End?Class

關(guān)于VB中的ComboBox控件使用方法

Combobox(組合框)控件相當(dāng)于將文本框和列表框的功能結(jié)合在一起。這個(gè)控件可以實(shí)現(xiàn)輸入文本來(lái)選定項(xiàng)目，也可以實(shí)現(xiàn)從列表中選定項(xiàng)目這兩種選擇項(xiàng)目的方法。如果項(xiàng)目數(shù)超過(guò)了組合框能夠顯示的項(xiàng)目數(shù)，控件上將自動(dòng)出現(xiàn)滾動(dòng)條。用戶可以上下或左右滾動(dòng)列表。

1.使用組合框和列表框

通常，組合框適用于建議性的選項(xiàng)列表，而當(dāng)希望將輸入限制在列表之內(nèi)時(shí)，應(yīng)使用列表框。組合框包含編輯區(qū)域，因此可將不在列表中的選項(xiàng)輸入列區(qū)域中。此外，組合框節(jié)省了窗體的空間。只有單擊組合框的向下箭頭時(shí)（Style屬性值為1的組合框除外，它總是處于下拉狀態(tài)）才顯示全部列表，所以無(wú)法容納列表框的地方可以很容易地容納組合框。

2.組合框的樣式

此處有三種組合框樣式。每種樣式都可在設(shè)計(jì)時(shí)或運(yùn)行時(shí)來(lái)設(shè)置，而且每種樣式都使用數(shù)值或相應(yīng)的Visual Basic常數(shù)來(lái)設(shè)置組合框的樣式。

樣式值常數(shù)：下拉式組合框值為0，Vb.net中的常數(shù)值為DropDown;簡(jiǎn)單組合框值為1，Vb.net中的常數(shù)值為Simple；下拉式列表框值為2，vb.net中的常數(shù)值為DropDownList。

3.下拉式組合框

在缺省設(shè)置（Style=0）下，組合框?yàn)橄吕健Ｓ脩艨上笤谖谋究蛑幸粯又苯虞斎胛谋荆部蓡螕艚M合框右側(cè)的附帶箭頭打開(kāi)選項(xiàng)列表。選定某個(gè)選項(xiàng)后，將此選項(xiàng)插入到組合框頂端的文本部分中。當(dāng)控件獲得焦點(diǎn)時(shí)，也可按Alt+↓鍵打開(kāi)列表

4.簡(jiǎn)單組合框

將組合框的Style屬性設(shè)置為1，將指定一個(gè)簡(jiǎn)單的組合框，任何時(shí)候都在其內(nèi)顯示列表。為顯示列表中所有項(xiàng)，必須將列表框繪制得足夠大。當(dāng)選項(xiàng)數(shù)超過(guò)可顯示的限度時(shí)將自動(dòng)插入一個(gè)垂直滾動(dòng)條。用戶可直接輸入文本，也可從列表中選擇。象下拉式組合框一樣，簡(jiǎn)單組合框也允許用戶輸入那些不在列表中的選項(xiàng)。

5.下拉式組合框

下拉式組合框（Style=2）與正規(guī)列表框相似--它顯示項(xiàng)目的列表，用戶必須從中選擇，但下拉式列表框與列表框不同之處在于，除非單擊框右側(cè)的箭頭，否則不顯示列表。

這種列表框與下拉式組合框的主要差別在于，用戶不能在列表框中輸入選項(xiàng)，而只能在列表中選擇。當(dāng)窗體上的空間較少時(shí)，可使用這種類型的列表框。

6.添加項(xiàng)目

為在組合框中添加項(xiàng)目，應(yīng)使用Insert方法，其語(yǔ)法如下：

ComboboxName.Items.Insert(index As Integer,item As Object)

"comboboxName"為列表框或組合框名稱，item為在列表中添加的字符串表達(dá)式，用引號(hào)括起來(lái)。Index用來(lái)指定新項(xiàng)目在列表中的插入位置。Index為0表示第一個(gè)位置。當(dāng)在第一個(gè)位置時(shí)，也可以用語(yǔ)法：

combobox.Items.Add(item As Object)

通常在設(shè)計(jì)時(shí)或在New過(guò)程中添加列表項(xiàng)目，但也可在任何時(shí)候使用Insert方法。這樣就能動(dòng)態(tài)在列表中添加項(xiàng)目。以下代碼將“Chardonnay”，“Fum Blanc”，“Gewztraminer”和“Zinfandel”放置到名為combobox1,Style屬性為0（DropDown）的組合框中：

Public Sub New()

...

...

Combobox1.Items.Insert "Chardonnay"

Combobox1.Items.Insert "Fum Blanc"

Combobox1.Items.Insert "Gewztraminer"

Combobox1.Items.Insert "Zinfandel"

End Sub

7.設(shè)計(jì)時(shí)添加項(xiàng)目

在設(shè)計(jì)時(shí)，也可設(shè)置組合框控件“屬性”窗口的Items屬性，從而在列表中添加項(xiàng)目。選定Items屬性并單擊按鈕后就可以輸入列表項(xiàng)目，然后按回車鍵換到新的一行。

只能將項(xiàng)目添加到列表的末尾。所以，如果要將列表按字母順序排序，則應(yīng)將Sorted屬性設(shè)置為T(mén)rue.

8.指定位置添加項(xiàng)目

為了在列表指定位置添加項(xiàng)目，應(yīng)在新項(xiàng)目后指定索引值。例如，下行代碼將"Piont Noir"插入到第一個(gè)位置并把其他項(xiàng)目的位置向下調(diào)整：

Combobox1.Items.Insert(0,"Pinot Noir")

注意：指定列表中的第一個(gè)位置的是0而不是1

9.排序列表

將Sorted屬性設(shè)置為T(mén)rue并省略索引，則可在列表中指定按字母順序添加的項(xiàng)目。排序時(shí)不區(qū)分大小寫(xiě)。將sorted屬性設(shè)置為true后，Items.Insert方法將導(dǎo)致不可預(yù)料的非排序結(jié)果。

10.刪除項(xiàng)目

可在組合框中用Items.Remove方法來(lái)刪除項(xiàng)目。Items.Remove有一個(gè)參數(shù)index,它指定要?jiǎng)h除的項(xiàng)目：combobox1.Items.Remove(index)及index參數(shù)和Items.Insert中的參數(shù)相同。例如，為了刪除列表中的第一個(gè)項(xiàng)目，應(yīng)添加下面一行代碼：

combobox1.Items.Remove(0)

若要?jiǎng)h除所有列表項(xiàng)目，就使用Clear方法：

combobox1.Clear

11.用Text屬性獲取列表內(nèi)容

獲取當(dāng)前選項(xiàng)目值的最簡(jiǎn)單的常用方法就是使用Text屬性。在運(yùn)行時(shí)無(wú)論向控件的文本框部分輸入了什么文本，Text屬性都與這個(gè)文本相對(duì)應(yīng)。它可以是選定的列表選項(xiàng)，或者是用戶在文本框中輸入的字符串。例如，如果用戶選定列表框中的“chardonnay”，則通過(guò)下列代碼顯示有關(guān)“chardonnay”的信息：

Private Sub Combobox1_click(Byval sender As Object,Byval e As System.EventArgs)

If Combobox1.Text="Chardonnay" Then

Textbox1.Text="Chardonnay is a midium-bodied white wine."

End If

End Sub

其中Text屬性包含Combobox1列表框中當(dāng)前選定的項(xiàng)目。代碼查看是否選擇了“Chardonnay”，若是如此，則在文本框中顯示信息。

12.用Items屬性訪問(wèn)列表選項(xiàng)

有了Items屬性就可訪問(wèn)列表中所有項(xiàng)目，該屬性包含一個(gè)數(shù)組，而且列表中的每個(gè)項(xiàng)目都是數(shù)組的元素。每一項(xiàng)都表示為字符串的形式。為了引用列表中的項(xiàng)目，應(yīng)使用如下語(yǔ)法：

ComboboxName.Items(index)

ComboboxName為組合框名稱，而index是項(xiàng)目的位置。頂端項(xiàng)目的索引為0，下一個(gè)項(xiàng)目的索引為1，依次類推。例如，在文本框中，以下語(yǔ)句顯示列表中的第三個(gè)項(xiàng)目（index=2）：

Text1.Text=CStr(Combobox1.Items(2))

13.用SelectIndex屬性判斷位置

想要知道組合框列表中選定項(xiàng)目位置，可以由SelectIndex屬性得到。該屬性設(shè)置或返回控件中當(dāng)前選定項(xiàng)目的索引值，而且只在運(yùn)行時(shí)有效。對(duì)組合框的SelectIndex屬性進(jìn)行設(shè)置時(shí)也會(huì)觸發(fā)控件的Click事件。若選定第一個(gè)（項(xiàng)端）項(xiàng)目，則屬性值為0；選定的下一個(gè)項(xiàng)目屬性值為1，依次類推。如果未選定項(xiàng)目，或者用戶在組合框中輸入選項(xiàng)（樣式0或1）而不在列表中選擇現(xiàn)有的項(xiàng)目，則SelectIndex為-1。

14.Items.Count屬性返回項(xiàng)目數(shù)

為了返回組合框中的項(xiàng)目數(shù)，應(yīng)使用Items.Count屬性。例如，下列語(yǔ)句用Items.Count屬性判斷組合框中的項(xiàng)目數(shù)：

TextBox1.Text="You have"Combobox1."Items.Count""_entries listed"

vb.net 控件集合

Private Sub b_click(sender As Object, e As EventArgs)

MsgBox(sender.name)

End Sub

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

Dim b() As Button = {Button1, Button2, Button3}

For Each i In b

AddHandler i.Click, AddressOf b_click

Next

End Sub

名稱欄目：VB.NET的組合控件 vb組合框控件列表項(xiàng)目
鏈接分享：http://chinadenli.net/article44/hpgiee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、定制網(wǎng)站、全網(wǎng)營(yíng)銷推廣、網(wǎng)站策劃、App設(shè)計(jì)、定制開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)