2011年度計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程(10)

　　2.6 Visual Basic的輸入機(jī)制

　　程序的基本操作就是數(shù)據(jù)的輸入，數(shù)據(jù)處理和數(shù)據(jù)的輸出。Visual Basic可中用于輸入的控件主要有：文本框Text Box、復(fù)選框Check Box、選項(xiàng)按鈕Option Button、列表框List Box、組合框Combo Box、滾動(dòng)條Scroll Bar、通用對(duì)話框控件。還有一個(gè)函數(shù)叫InputBox函數(shù)，也可用于數(shù)據(jù)的輸入。

　　1. 通過(guò)文本框輸入數(shù)據(jù)

　　只要取得文本框的Text屬性就可以對(duì)其進(jìn)行操作了。下面的代碼可將Text1文本框的正文變成大寫(xiě)輸出至Text2文本框。

　　Private Sub Form_Click ()

　　Text2.Text = UCase(Text1.Text)

　　End Sub

　　2. 通過(guò)復(fù)選框和選項(xiàng)按鈕輸入數(shù)據(jù)

　　只要檢測(cè)到Check Box和Radio Button的Value屬性值就可以知道它們是否被選上了。

　　3. 通過(guò)列表框和組合框輸入數(shù)據(jù)

　　(1) 列表框List Box和組合框Combo Box的不同

　　它們?cè)赪indows的Open，Save As對(duì)話框里最為常見(jiàn)。組合框又包括三種類(lèi)型，這三種類(lèi)型要在它的Style屬性里設(shè)置。列表框僅僅把可以選擇的項(xiàng)目列出來(lái)，而組合框里有的類(lèi)型可以允許用戶輸入數(shù)據(jù)。

　　(2) 列表項(xiàng)目的增減

　　使用AddItem，RemoveItem語(yǔ)句可以增減列表項(xiàng)目。通常將項(xiàng)目增減的語(yǔ)句放入Form_Load事件里。

　　ListBoxName. AddItem item

　　ComboBoxName. AddItem item

　　item是新項(xiàng)目名稱(chēng)，必須是字符串類(lèi)型，非字符串類(lèi)型可通過(guò)Str函數(shù)或Format函數(shù)來(lái)轉(zhuǎn)換。轉(zhuǎn)列表框，組合框的每一項(xiàng)目都有一個(gè)Index值，第一個(gè)項(xiàng)目的Index值是0，第二個(gè)是1，依此類(lèi)推。刪除項(xiàng)目可通過(guò)刪除其Index值來(lái)實(shí)現(xiàn)。

　　ListBoxName. RemoveItem item

　　ComboBoxName. RemoveItem item

　　如：ListBoxName. RemoveItem 0則刪除了第一項(xiàng)，這時(shí)原來(lái)的第二項(xiàng)就變成了第一項(xiàng)。

　　可以在設(shè)計(jì)階段設(shè)定列表項(xiàng)目, 方法是：

　　在屬性窗口選擇List屬性，將出現(xiàn)一個(gè)下拉列表，在列表中輸入第一項(xiàng)，按Ctrl+Enter，輸入第二項(xiàng)……，最后用Enter結(jié)束。

　　(3) 取得列表框/組合框的數(shù)據(jù)

　　可以通過(guò)取得Text屬性或通過(guò)取得ListIndex屬性來(lái)判斷哪一項(xiàng)被選擇了。ListIndex屬性的值也同樣是第一個(gè)為0，第二個(gè)為1……如：

　　If List1.Text = “Visual Basic” Then Instructions

　　If List1.ListIndex = 1 Then Instructions

　　組合框有時(shí)允許用戶自己輸入數(shù)據(jù)，這時(shí)所輸入數(shù)據(jù)的ListIndex值為-1。

　　4. 通過(guò)滾動(dòng)條Scroll Bar取得數(shù)據(jù)

　　在Visual Basic的工具箱里有兩種滾動(dòng)條：一種是垂直的，一種是水平的，它們的差異無(wú)非是擺放的方向不一樣。

　　(1) 滾動(dòng)條的主要屬性及事件

　　1)Min，Max屬性

　　Min屬性決定滾動(dòng)條最左端或最頂端所代表的值。Max屬性決定滾動(dòng)條最右端或最下端所代表的值。

　　2)LargeChange,SmallChange屬性

　　SmallChange決定在滾動(dòng)條兩端的箭頭鈕上單擊時(shí)改變的值。LargeChange決定在滑塊上方或下方區(qū)域單擊時(shí)改變的值。

　　3)Value屬性

　　Value屬性代表當(dāng)前滑塊所處位置的值，這個(gè)值由滑塊的相對(duì)位置決定。

　　4)Change事件

　　當(dāng)滑塊位置發(fā)生變化時(shí)就引發(fā)了Change事件。

　　(2) 取得滾動(dòng)條的數(shù)據(jù)

　　滾動(dòng)條并不是一個(gè)數(shù)據(jù)輸入的好控件，因?yàn)闊o(wú)法從滾動(dòng)條上直接看出輸入的數(shù)據(jù)，但它的優(yōu)點(diǎn)是可以表示一定范圍里的相對(duì)位置。為了得到數(shù)據(jù)，只要取得滾動(dòng)條的Value屬性就可以了。

　　5. InputBox函數(shù)

　　InputBox函數(shù)提供一個(gè)簡(jiǎn)單的對(duì)話框供用戶輸入信息。在把其它版本的BASIC程序移植到Visual Basic時(shí)，InputBox函數(shù)通常用來(lái)代替INPUT語(yǔ)句。這個(gè)對(duì)話框的樣子基本上是上面的樣子。

　　它的完整語(yǔ)法是：x = InputBox (prompt, title, default, xpos, ypos, helpfile, context)

　　其中，prompt是提示的字符串，這個(gè)參數(shù)是必須的。title是對(duì)話框的標(biāo)題，是可選的。default是文本框里的缺省值，也是可選的。xpos，ypos決定輸入框的位置。helpfile，context用于顯示與該框相關(guān)的幫助屏幕。返回值 x 將是用戶在文本框里輸入的數(shù)據(jù)，x是一個(gè)字符串類(lèi)型的值。如果用戶按了Cancel鈕，則 x 將為空字符串。