VB教程：第六章(3)-輸入(3)

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

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

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

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

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

6、兆顯存，就應該是4×1024×1024÷31365×1024。在下面的小程序中，我們通過三個滾動條分別代表R、G、B，滾動滾動條，將在右邊的圖片框中顯示相應的顏色，并且在下面的文本框中顯示顏色的十六進制數(shù)值?，F(xiàn)在，新建一個項目文件，在Form1中如圖612布局控件，各控件屬性如下表：為了把十進制數(shù)值換成十六進制數(shù)值，要使用一個叫做Hex（）的函數(shù)，它把十進制數(shù)值轉化為十六進制的字符，但對于只有一位的十六進制字符，這個函數(shù)并不在高位補零，為了視覺上的正確，我設計了一個小函數(shù)幫助它給一位的十六進制字符補零.程序代碼很簡單，見下：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補零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)當滾動條被改變時Text1.Text = GetColorValuePicture1.BackColor = RGB(RedNum, GreenNum, BlueNum)End Sub運行如圖613。列表框（ListBox）和復合列表框（ComboBox）也是我們經(jīng)常見到的視窗元素，我們從它所列示的條目中選出所需的，兩種列表框只是在外觀上略有不同，但從本質和操作方法來說它們是很相象的，它們也有一些特殊的屬性：List屬性，你可以利于該屬性象列表

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

11、ist控件，調(diào)整適當?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當你點在不同項上面鼠標指針也會隨著改變，如圖614。AddItem方法語法如下：ListObject “字符串”,數(shù)值字符串后的數(shù)值可以指定條目加入在第幾個條目的位置上，如果沒有的話，添加項將逐次排下去。下面舉一個復合列表框的例子，例子通過選擇復合列表框中的選項來改變文本框的字體。請新建一個項目文件，在窗體中添加一個ComboBox（Combo1）和一個TextBox（Text1），添加如下代碼。Private Sub Combo1_Click()Text1.FontName = Combo1.List(Combo1.ListIndex)End SubPrivate Sub Form_Load()With Combo1.Ad