1、VB教程：第六章（3）-輸入（3）文章來源：vb大世界-首先，我想先對第六章的拖拖拉拉表示歉意，一是因?yàn)樗鼘?shí)在太長了，二也是因?yàn)槲易约禾珣辛?，今天寫幾個(gè)字，明天添兩筆，以致于寫了三次才將它真正完成，還請大家原諒。好，廢話少說，讓我們趕快切入正題。上次我們討論了無線鈕和檢查框的使用方法，相信你已經(jīng)熟悉，因?yàn)樗鼈儗?shí)在太簡單了，現(xiàn)在讓我們繼續(xù)“輸入”的最后幾個(gè)部分。滾動(dòng)條（ScrollBar）在視窗中也是一個(gè)不可缺少的部分，由于面積所限，我們不得把屏幕上的內(nèi)容滾來滾去，以顯示大量的內(nèi)容，這就是我們經(jīng)常要用到的滾動(dòng)條。但滾動(dòng)條除去滾動(dòng)窗口，還有一個(gè)很重要的作用輸入，想想你經(jīng)常用到的一些家用電器上調(diào)節(jié)聲

2、音或別的什么東西的滑塊，你把它滑向大的一方音量就會(huì)增大，而你把它滑向小的一方音量就會(huì)減小，或者一個(gè)控制左右兩個(gè)音箱的均衡器，當(dāng)滑塊在正中央的時(shí)候，兩個(gè)音箱的音量是相同的，當(dāng)你把滑塊偏向一方時(shí)，音箱的音量有了大小之分，在Windows操作中，我們也經(jīng)常要用到類似的效果。在VB中提供了兩個(gè)常規(guī)的滾動(dòng)條控件Vscroll和Hscroll，分別代表垂直的和水平的滾動(dòng)條，它們只不過是方向不同而已，而它們的屬性，以及會(huì)發(fā)生的事件都是相同的。，滾動(dòng)條有幾個(gè)特殊的屬性：Value屬性，當(dāng)滑塊挪動(dòng)后停在某一位置時(shí)，就改變了滾動(dòng)條的Value屬性。Max和Min屬性，用來設(shè)置滾動(dòng)條的最大值和最小值，譬如把Max設(shè)

3、為100，把Min設(shè)為0時(shí)，滾動(dòng)條的Value就在0到100之間移動(dòng)，當(dāng)Max和Min倒置時(shí)，滾動(dòng)條的方向也會(huì)相反，也就是說，當(dāng)Max<Min時(shí)，原來Value增加的方向就會(huì)變成相反的方向。Max和Min也可設(shè)為負(fù)值。SmallChange和LargeChange屬性，當(dāng)鼠標(biāo)在滾動(dòng)條兩頭的箭頭上單擊時(shí)，就會(huì)把滾動(dòng)條向相應(yīng)的方向挪動(dòng)一點(diǎn)，這時(shí)用到的就是SmallChange屬性，當(dāng)你把它設(shè)為1時(shí)，每點(diǎn)一下，滾動(dòng)條的Value就改變1；當(dāng)鼠標(biāo)在滾動(dòng)條上點(diǎn)擊時(shí)，用到的就是LargeChange，當(dāng)設(shè)為10時(shí)，每點(diǎn)擊一下滾動(dòng)條，Value就改變10。下面我們看一個(gè)實(shí)例。大家都知道，物體之所以會(huì)有

4、顏色是因?yàn)槲矬w表面的材料吸收了太陽光中的部分色光，而還有部分色光沒被吸收而被反射回來，它就成了我們看到的顏色，黑色就是物體吸收了所有的太陽光的所有色光，沒有反射顏色，所以在我們看來是黑的，而當(dāng)物體反射了所有的色光，我們看到的就是白色。在計(jì)算機(jī)中，顏色的表示就是象我們剛才描述的樣子，它把顏色分為紅（R）、綠（G）和藍(lán)（B）。眾所周知，計(jì)算機(jī)的機(jī)器語言是使用二進(jìn)制表示的，為了方便查閱我們看到的往往是十六進(jìn)制代碼，一個(gè)字節(jié)包括兩位十六進(jìn)制數(shù)字，從0255（十六進(jìn)制表示0FF），而一個(gè)字節(jié)是由八位二進(jìn)制數(shù)值表示（28，2的8次方），計(jì)算機(jī)中用分別用一個(gè)字節(jié)，也就是八位表示一種顏色，和在一起也就是三個(gè)字

5、節(jié)（24位）表示所有的顏色，這就是我們平時(shí)常說的24位真彩，它一共可以組成256×256×256（224）種顏色，對于我們的肉眼，是根本分辨不出來相鄰兩個(gè)不同的顏色的，比如用FFFFFF表示白色，就好象我們剛才說的物體反射了所有的色光，相反的可以用000000表示黑色，它吸收了所有的色光，還可以用FF0000表示紅色，在HTML語言中就是這樣表示顏色的。小知識(shí)：現(xiàn)在你可以根據(jù)你的顯卡的顯存來計(jì)算一下顯卡在24位真彩下可以以多大的分辨率顯示，計(jì)算是這樣的，用顯存的字節(jié)數(shù)÷3（24位色）顯示器寬的象素?cái)?shù)×顯示器高的象素?cái)?shù)，寬的象素?cái)?shù)：高的象素?cái)?shù)4：3，比如4

6、兆顯存，就應(yīng)該是4×1024×1024÷31365×1024。在下面的小程序中，我們通過三個(gè)滾動(dòng)條分別代表R、G、B，滾動(dòng)滾動(dòng)條，將在右邊的圖片框中顯示相應(yīng)的顏色，并且在下面的文本框中顯示顏色的十六進(jìn)制數(shù)值。現(xiàn)在，新建一個(gè)項(xiàng)目文件，在Form1中如圖612布局控件，各控件屬性如下表：為了把十進(jìn)制數(shù)值換成十六進(jìn)制數(shù)值，要使用一個(gè)叫做Hex（）的函數(shù)，它把十進(jìn)制數(shù)值轉(zhuǎn)化為十六進(jìn)制的字符，但對于只有一位的十六進(jìn)制字符，這個(gè)函數(shù)并不在高位補(bǔ)零，為了視覺上的正確，我設(shè)計(jì)了一個(gè)小函數(shù)幫助它給一位的十六進(jìn)制字符補(bǔ)零.程序代碼很簡單，見下：Dim RedStr, Gre

7、enStr, BlueStr As StringRGB的字符Dim RedNum, GreenNum, BlueNum As IntegerRGB的數(shù)值Function GetColorValue() As String獲得輸入值RedNum = HScroll1(0).ValueGreenNum = HScroll1(1).ValueBlueNum = HScroll1(2).ValueRedStr = Hex(RedNum)If Len(RedStr) < 2 Then RedStr = "0" + RedStr補(bǔ)零GreenStr = Hex(GreenNum)

8、If Len(GreenStr) < 2 Then GreenStr = "0" + GreenStrBlueStr = Hex(BlueNum)If Len(BlueStr) < 2 Then BlueStr = "0" + BlueStrGetColorValue = RedStr + GreenStr + BlueStr合并End FunctionPrivate Sub Form_Load()初始化程序Text1.Text = GetColorValuePicture1.BackColor = RGB(RedNum, GreenNum,

9、 BlueNum)'RGB函數(shù)返回顏色值End SubPrivate Sub HScroll1_Change(Index As Integer)當(dāng)滾動(dòng)條被改變時(shí)Text1.Text = GetColorValuePicture1.BackColor = RGB(RedNum, GreenNum, BlueNum)End Sub運(yùn)行如圖613。列表框（ListBox）和復(fù)合列表框（ComboBox）也是我們經(jīng)常見到的視窗元素，我們從它所列示的條目中選出所需的，兩種列表框只是在外觀上略有不同，但從本質(zhì)和操作方法來說它們是很相象的，它們也有一些特殊的屬性：List屬性，你可以利于該屬性象列表

10、框或復(fù)合列表框中添加條目，但也可以在程序設(shè)計(jì)中通過AddItem方法添加。ListCount屬性，返回列表框或復(fù)合列表框中條目的數(shù)目。ListIndex屬性，表示列表框或復(fù)合列表框的第幾項(xiàng)條目。（從0到ListCount-1）Sorted屬性，可以通過該屬性對列表框或復(fù)合列表框中的條目根據(jù)字母順序排序。MultiSelect屬性，0表示不能多選，1表示簡單多選，2表示寬展多選，僅限于列表框。Columns屬性，表示條目是以一列顯示還是兩列顯示，僅限于列表框。Style屬性：表示列表框或復(fù)合列表框以何種風(fēng)格顯示，二者參數(shù)不同。舉兩個(gè)簡單的例子。例子一，建立一個(gè)新項(xiàng)目文件，在Form1上添加一個(gè)L

11、ist控件，調(diào)整適當(dāng)?shù)某叽?，無需改變?nèi)魏螌傩?。填寫以下代碼。Private Sub Form_Load()With List1.AddItem "0-Default".AddItem "1-Arrow".AddItem "2-Cross".AddItem "3-I-Beam".AddItem "4-Icon".AddItem "5-Size".AddItem "6-Size NE SW".AddItem "7-Size NS".AddI

12、tem "8-Size NW SE".AddItem "9-Size WE".AddItem "10-Up Arrow".AddItem "11-Hourglass".AddItem "12-NoDrag".AddItem "13-Arrow And Hourglass".AddItem "14-Arrow And Question".AddItem "15-Size All"End WithEnd SubPrivate Sub Lis

13、t1_Click()MousePointer = List1.ListIndex這里的MousePointer是窗體全局內(nèi)的屬性End Sub當(dāng)你點(diǎn)在不同項(xiàng)上面鼠標(biāo)指針也會(huì)隨著改變，如圖614。AddItem方法語法如下：ListObject “字符串”,數(shù)值字符串后的數(shù)值可以指定條目加入在第幾個(gè)條目的位置上，如果沒有的話，添加項(xiàng)將逐次排下去。下面舉一個(gè)復(fù)合列表框的例子，例子通過選擇復(fù)合列表框中的選項(xiàng)來改變文本框的字體。請新建一個(gè)項(xiàng)目文件，在窗體中添加一個(gè)ComboBox（Combo1）和一個(gè)TextBox（Text1），添加如下代碼。Private Sub Combo1_Click()Text1.FontName = Combo1.List(Combo1.ListIndex)End SubPrivate Sub Form_Load()With Combo1.Ad