vb點(diǎn)虐 入門——DomainUpDown 控件的使用

DomainUpDown 控件在外觀上都是由一個(gè)文本框和一對(duì)可以上下移動(dòng)列表的箭頭組成 如下圖一所示

創(chuàng)新互聯(lián)專注于山陽(yáng)網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供山陽(yáng)營(yíng)銷型網(wǎng)站建設(shè)，山陽(yáng)網(wǎng)站制作、山陽(yáng)網(wǎng)頁(yè)設(shè)計(jì)、山陽(yáng)網(wǎng)站官網(wǎng)定制、小程序制作服務(wù)，打造山陽(yáng)網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供山陽(yáng)網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

圖一 控件外觀

其功能類似于組合框 您可以將任何類型的數(shù)據(jù)放入列表 同時(shí)在文本框中顯示單個(gè)字符串值 讓用戶可以通過(guò)單擊上箭頭和下箭頭來(lái)瀏覽數(shù)據(jù)

在工具箱中 它的圖標(biāo)顯示如下圖二所示

圖二 工具箱中的DomainUpDown 控件

DomainUpDown 控件的主要屬性為 Items ReadOnly Wrap

一 改變文字顯示與上下箭頭的方向

我們可以通過(guò) TextAlign 屬性來(lái)改變控件中的文本對(duì)齊方式 通過(guò) UpDownAlign 屬性改變它的上下按鈕對(duì)齊方式

示例 在DomainUpDown 控件 Text 屬性中輸入 即文本框顯示的字符 把 TextAlign 屬性 設(shè)置為Center UpDownAlign 屬性設(shè)置為L(zhǎng)eft 顯示效果如下圖三所示

圖三 改變DomainUpDown 控件顯示外觀

二 ReadOnly 屬性

ReadOnly 屬性用于設(shè)置用戶是否只能使用向上或向下按鈕更改文本 默認(rèn)值為False 如果為False 則用戶可以在文本框中進(jìn)行輸入 如果為True 則文本輸入框變?yōu)榛疑?用戶只能通過(guò)Up Down按鈕來(lái)選擇列表 且當(dāng)用戶使用鍵盤鍵入的時(shí)候 控件自動(dòng)完成匹配 如假設(shè)列表中存在下面三個(gè)字符串的項(xiàng) aa b 控件ReadOnly 屬性為True 則當(dāng)我們?cè)谖谋究蛑墟I入 時(shí)候 控件將自動(dòng)匹配字符串 如下圖四所示

圖四 DomainUpDown 自動(dòng)匹配用戶輸入

三 為DomainUpDown 控件添加\刪除列表項(xiàng)

通過(guò) 字符串集合編輯器 編輯

我們可以在設(shè)計(jì)視圖中為 DomainUpDown 控件添加或者刪除列表項(xiàng) 步驟如下

在 屬性 窗口中找到 Items 屬性 單擊屬性后的 按鈕 彈出 字符串集合編輯器 然后進(jìn)行編輯 注意每行為一個(gè)項(xiàng)

使用代碼添加\刪除

可以使用 Items 集合的 Add 方法將項(xiàng)添加到項(xiàng)列表的末尾 使用 Insert 方法將項(xiàng)插入到列表中的指定位置

可以使用 Items 集合的 Remove 方法按照名稱移除項(xiàng) 使用 RemoveAt 方法按照項(xiàng)的位置移除項(xiàng)

示例代碼如下

在控件列表尾部添加一個(gè)字符串 cccc

DomainUpDown Items Add（ cccc ）

把字符串 cccc 插入到索引位置 （提示 索引是從 開(kāi)始）

DomainUpDown Items Insert（ cccc ）

刪除列表中的字符串為 cccc 的項(xiàng)

DomainUpDown Items Remove（ cccc ）

刪除列表中索引位置為 的項(xiàng)

DomainUpDown Items RemoveAt（ ）

使用Clear方法清除DomainUpDown 控件的所有項(xiàng)

DomainUpDown Items Clear（）

四 DomainUpDown 控件的其它屬性

Sorted 屬性 指示項(xiàng)集合是否排序 當(dāng) Sorted 設(shè)置為 true 時(shí) 將按字母順序?qū)吓判?默認(rèn)為False

Wrap 屬性 當(dāng) Wrap 設(shè)置為 true 時(shí) 如果達(dá)到了集合中的最后一項(xiàng)并繼續(xù)滾動(dòng) 則列表將從第一項(xiàng)重新開(kāi)始 看起來(lái)像是連續(xù)的

lishixinzhi/Article/program/net/201311/11362

使用VB.NET的五個(gè)技巧之處理數(shù)據(jù)行

處理數(shù)據(jù)行（DataRow）

Windows窗體中的數(shù)據(jù)綁定列表框和組合框很節(jié)省時(shí)間 典型的代碼如下（假定已經(jīng)建立了SqlDataAdapter或者其它部件獲取數(shù)據(jù)）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在這種情況下 代碼使用Northwind數(shù)據(jù)庫(kù)的顧客記錄工作 DisplayMember屬性設(shè)置為你希望用戶在列表框中看到的記錄字段 它是customers表的CompanyName 通常ValueMember屬性設(shè)置為數(shù)據(jù)表中的一個(gè)鍵字段 對(duì)于customer來(lái)說(shuō)是CustomerID 一旦用戶選擇了列表框中的一行 很容易使用列表框的SelectedValue屬性獲得鍵字段

MsgBox（ListBox SelectedValue）

但是有可能需要一個(gè)與被選擇項(xiàng)相關(guān)的整個(gè)數(shù)據(jù)行對(duì)象的引用 例如 如果被選擇的行需要被刪除 就不知道鍵了 你需要一個(gè)數(shù)據(jù)行的引用以使用Delete方法

典型的Visual Basic開(kāi)發(fā)者通常這樣想 我已經(jīng)得到了該行的鍵了 我將編寫(xiě)一些邏輯來(lái)查找使用該鍵的行 這樣可以實(shí)現(xiàn) 但是有更好的實(shí)現(xiàn)方法 可以使用一行代碼獲取與列表框中選項(xiàng)關(guān)聯(lián)的數(shù)據(jù)行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常該邏輯不會(huì)憑直覺(jué)出現(xiàn) 即使對(duì)經(jīng)驗(yàn)豐富的開(kāi)發(fā)者 為了解釋這是怎樣實(shí)現(xiàn)的 我把上面的一行拆成幾行 下面的代碼與上面代碼的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView類是數(shù)據(jù)行的包裝 它被多個(gè)Windows窗體控件使用 它使得顯示與控件中的數(shù)據(jù)行相關(guān)的數(shù)據(jù)更加容易 當(dāng)列表框被數(shù)據(jù)綁定到數(shù)據(jù)表時(shí)（假定列表框中的有些行當(dāng)前被選定了） 列表框的SelectedItem屬性保存了一個(gè)DataRowView對(duì)象

這意味著我們能把列表框的SelectedItem屬性轉(zhuǎn)換到DataRowView對(duì)象 這就是上面代碼中的第二行實(shí)現(xiàn)的 接著DataRowView暴露一個(gè)Row屬性 它指向被包裝的數(shù)據(jù)行 上面的代碼聲明了一個(gè)數(shù)據(jù)行并設(shè)置了Row屬性

轉(zhuǎn)換對(duì)象的類型以訪問(wèn)它的接口的技術(shù)在Visual Basic 中不是經(jīng)常使用 但是在Visual Basic NET中這是經(jīng)常的 有了上面的例子后 大多數(shù)有經(jīng)驗(yàn)的開(kāi)發(fā)者迅速跟上了這種技術(shù)

數(shù)據(jù)行的引用（dr）可用于用任何方式維護(hù)行 訪問(wèn)數(shù)據(jù)行中的任何特定字段是可行的 行中的數(shù)據(jù)可以被改變 能使數(shù)據(jù)行的Delete方法把該行標(biāo)識(shí)為刪除 或者從數(shù)據(jù)表的行集合中刪除該行 下面的代碼標(biāo)識(shí)刪除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974

如何使用VB.NET中可選參數(shù)調(diào)用方法

VB.NET可選參數(shù)的默認(rèn)值必須是一個(gè)常數(shù)表達(dá)式。

過(guò)程定義中跟在可選參數(shù)后的每個(gè)參數(shù)也都必須是可選的。

下面的語(yǔ)法顯示帶VB.NET可選參數(shù)的過(guò)程聲明：

Sub sub name（ByVal parameter 1 As data type 1,

Optional ByVal parameter 2 As data type 2 = default value）

調(diào)用帶VB.NET可選參數(shù)的過(guò)程

過(guò)程在運(yùn)行時(shí)無(wú)法檢測(cè)到給定的參數(shù)是否已被省略，或者調(diào)用代碼是否已顯式提供默認(rèn)值。如果需要弄清楚這一點(diǎn)，可以設(shè)置一個(gè)不可能的值作為默認(rèn)值。下面的過(guò)程定義了可選參數(shù) office,并測(cè)試其默認(rèn)值 QJZ 以查看它在調(diào)用中是否已被省略：

Visual Basic

Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）

If office = "QJZ" Then

Debug.WriteLine（"office not supplied -- using Headquarters"）

office = "Headquarters" End If

' Insert code to notify headquarters or specified office.

End Sub

如果可選參數(shù)是像 String 這樣的引用類型，只要它不是該變量所預(yù)期的值，就可以使用 Nothing 作為默認(rèn)值。

VB.NET可選參數(shù)和重載

定義帶可選參數(shù)的過(guò)程的另一種方法是使用重載。如果有一個(gè)可選參數(shù)，可以定義過(guò)程的兩個(gè)重載版本，一個(gè)接受此參數(shù)，另一個(gè)則不帶參數(shù)。此方法隨可選參數(shù)數(shù)目的增加而變得更復(fù)雜。然而，這樣做的優(yōu)點(diǎn)是可以完全確定調(diào)用程序是否提供了每個(gè)VB.NET可選參數(shù)。