【正文】 的結(jié)果，代碼如下.　　窗體初次被裝入時，Label1(3)、Label(4)和Text1(3)、Text1(4)的Enabled屬性都是False，我們需要通過改變Check1的Value（1，被選中，0，未選中）是他們有效或無效。 ！Case 1Unload MeEnd SelectEnd Sub按下F5運行程序，你會看到這樣的結(jié)果。Text沒有Click事件，它的缺省事件是Change，也就是當(dāng)Text框里的一旦內(nèi)容改變就會激發(fā)該事件發(fā)生，還是讓我們用實例說話吧?！　∠旅嫖覀兺瓿梢粋€有趣的小程序，是我以前遇到過的一個程序，我對其進(jìn)行了部分修改。（如圖6－6）Form1 Icon Stop圖標(biāo)Caption 停車檢查BorderStyle 3 Label1 Caption 警官，我超速是有原因的,請聽我說：BackColor amp。 Label2 Caption 你必須在30字之內(nèi)完成你理由的申訴，否則將受到罰款！BackColor amp。 Text1 MultiLink TrueText “” Picture1 Autosize TrueBackColor amp。Visible False Picture3 Autosize TrueBackColor amp。把Command1放在水平的中央 = ＋200 = ( ) / 239。用Asc（）函數(shù)，在括號內(nèi)放入一個ASC字符或字符串，它會把第一個ASC碼轉(zhuǎn)化為0－255的數(shù)值，而把一個漢字放入，它的值必然不在0－255，這也就可以作為判定漢字的基礎(chǔ)。 Str(30 StrLength) amp。 個字可以說End IfCase 20 To 29If Level = 2 ThenRandomNum = Rnd * 10If RandomNum = 10 And RandomNum 9 Then = False = 很抱歉這是個誤會…… = True = 您可以離開了End IfLevel = 3Else = False = False = TrueStr1 = 我已經(jīng)不耐煩了！ = Str1 amp?！　≡趺礃樱趾唵伟?，我們將在下一次繼續(xù)討論VB的輸入機制！　　在繼續(xù)上面的內(nèi)容時，我想再回顧和強調(diào)幾個在字符串操作中經(jīng)常函數(shù)：　　先是幾個已經(jīng)接觸過的，Mid()，Asc()，Len()，它們的語法分別是：Mid(字符型，起始字符，長度)　　返回子字符串，如果從字符串的第一個字符取起，起始字符為1，依此類推。Chr(數(shù)值型)　　該數(shù)值范圍從0－255，返回字符型，如Chr(65)可返回字符“A”，這樣可以輸入一些用鍵盤無法輸入的字符。　　上次講到文本框的用處，還有意思嗎？你是否能把上次的程序稍稍變動一下，來計算出輸入的單詞數(shù)，提示一下，單詞與單詞之間是用空格分隔開的。如果要在一個窗體內(nèi)放置多組無線鈕必須用Frame控件把它們區(qū)分開來。下面在程序中添加代碼，首先在General中聲明窗體級變量：Dim LTrimmedword$, RTrimmedword$ 39。如果字符為空格pasteword = pasteword + *Else: pasteword = pasteword + Mid(tempword, charindex, 1)End IfNextaddstar = pasteword 39。清除所有文本框中的字符 = = = End Sub　Private Sub Text1_LostFocus()Dim Origionword As StringOrigionword = = addstar(Origionword)LTrimmedword = addstar(LTrim(Origionword))RTrimmedword = addstar(RTrim(Origionword))LRTrimmedword = LTrim(RTrim(Origionword))End Sub　Private Sub Option1_Click() = LTrimmedword 39?！　∨c無線鈕相對的是檢查框，在同一范圍內(nèi)一組無線鈕只能有一個被選中，而檢查框則可以有多個選擇，就象在添表時，性別那項只能有一個選擇，而在描述你以前的職業(yè)時可以有學(xué)生、程序員、家庭教師或者什么，總之有很多選擇，下面我們舉一個簡單的例子加以說明。下面是程序代碼：Private Sub Check1_Click()If Then = 1 = 1Else: = 0 = 0 = 0 = 0End IfEnd Sub　Private Sub Check2_Click()If Then = 1Else: = 0End IfEnd Sub　Private Sub Check3_Click()If Then = 1Else: = 0End IfEnd Sub　Private Sub Check4_Click()If Then = 1Else: = 0End IfEnd Sub這個程序比我們見過的任何程序都簡單，就不再做說明。滾動條有幾個特殊的屬性：Value屬性，當(dāng)滑塊挪動后停在某一位置時，就改變了滾動條的Value屬性。下面我們看一個實例。小知識：現(xiàn)在你可以根據(jù)你的顯卡的顯存來計算一下顯卡在24位真彩下可以以多大的分辨率顯示，計算是這樣的，用顯存的字節(jié)數(shù)247?，F(xiàn)在，新建一個項目文件，在Form1中如圖6－12布局控件，各控件屬性如下表：HsrollBar Name Hscroll1Index 0、2（共同屬性）Max 255Min 0LargeChange 10SmallChange 1 Label Name Label1Index 0、2Index 0 Caption “紅：” Index 1 Caption “綠：”Index 2 Caption “藍(lán)：” Label Name Label2Caption “顏色值” TextBox Name Text1Text “” PictureBox Name Picuture1 　為了把十進(jìn)制數(shù)值換成十六進(jìn)制數(shù)值，要使用一個叫做Hex（）的函數(shù)，它把十進(jìn)制數(shù)值轉(zhuǎn)化為十六進(jìn)制的字符，但對于只有一位的十六進(jìn)制字符，這個函數(shù)并不在高位補零，為了視覺上的正確，我設(shè)計了一個小函數(shù)幫助它給一位的十六進(jìn)制字符補零.程序代碼很簡單，見下：Dim RedStr, GreenStr, BlueStr As String’RGB的字符Dim RedNum, GreenNum, BlueNum As Integer’RGB的數(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)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()‘初始化程序 = GetColorValue = RGB(RedNum, GreenNum, BlueNum)39。ListIndex屬性，表示列表框或復(fù)合列表框的第幾項條目。Style屬性：表示列表框或復(fù)合列表框以何種風(fēng)格顯示，二者參數(shù)不同。Private Sub Form_Load()With List1。例子一，建立一個新項目文件，在Form1上添加一個List控件，調(diào)整適當(dāng)?shù)某叽?，無需改變?nèi)魏螌傩?。MultiSelect屬性，0表示不能多選，1表示簡單多選，2表示寬展多選，僅限于列表框。列表框（ListBox）和復(fù)合列表框（ComboBox）也是我們經(jīng)常見到的視窗元素，我們從它所列示的條目中選出所需的，兩種列表框只是在外觀上略有不同，但從本質(zhì)和操作方法來說它們是很相象的，它們也有一些特殊的屬性：List屬性，你可以利于該屬性象列表框或復(fù)合列表框中添加條目，但也可以在程序設(shè)計中通過AddItem方法添加。3＝13651024。在計算機中，顏色的表示就是象我們剛才描述的樣子，它把顏色分為紅（R）、綠（G）和藍(lán)（B）。Max和Min也可設(shè)為負(fù)值。但滾動條除去滾動窗口，還有一個很重要的作用――輸入，想想你經(jīng)常用到的一些家用電器上調(diào)節(jié)聲音或別的什么東西的滑塊，你把它滑向大的一方音量就會增大，而你把它滑向小的一方音量就會減小，或者一個控制左右兩個音箱的均衡器，當(dāng)滑塊在正中央的時候，兩個音箱的音量是相同的，當(dāng)你把滑塊偏向一方時，音箱的音量有了大小之分，在Windows操作中，我們也經(jīng)常要用到類似的效果。新建一個項目文件，窗體布局如圖6－10。顯示刪除右空格后的字符串End Sub　Private Sub Option3_Click() = LRTrimmedword 39。Private Sub Text1_GotFocus() 39。刪除兩邊空格后的字符串　　然后，我們通過一個叫做addstar的函數(shù)為字符串加上星號，以前曾說過函數(shù)與過程的分別，函數(shù)會返回一個函數(shù)值，所以addstar也就相當(dāng)于一個變量，其實這很好理解，就象中學(xué)代數(shù)中的函數(shù)，函數(shù)就相當(dāng)于變量Y，而函數(shù)中的參數(shù)則相當(dāng)于自變量X，當(dāng)然可能有很多自變量XX2……請原諒，我并不想在這里上數(shù)學(xué)課，因為我厭惡那玩意兒，特別是上了大學(xué)之后，好在大二以后就再也不會有數(shù)學(xué)課了，哈哈……Function addstar(tempword As String) As StringDim charindex%Dim pasteword$ 39。　　程序窗體如圖6－8，由于窗體比較簡單，無需修改更多的屬性，一共有三個文本框（Text1到3），分別用來顯示輸入字符，顯示把空格換成星號的字符，和經(jīng)過處理的字符，還有三個無線鈕（Option1到3），要修改的只有Caption屬性，分別是“刪除左邊的空格”、“刪除右邊的空格”和“刪除兩邊的空格”?！　o線鈕，記得我們曾在第一章中完成過我們的第一個程序――“Hello World！”它就是一種輸入的方法，在設(shè)計VB程序時可以通過一組這樣的無線鈕，它們之間互相排斥，也就是說，只能有一個按鈕被選中。與之向?qū)?yīng)的是Val(數(shù)值型)，它把數(shù)值型轉(zhuǎn)換為字符型。Len(字符型)　　返回字符串的長度。 Str(30 StrLength) amp。 你還有 amp。 第六章第二部分 62第六章　輸入（二）　　下面我們來看看代碼：在General 里聲明窗體級變量：Dim Level As Integer　Private Sub Command1_Click()Unload MeEnd Sub　Private Sub Text1_Change()Dim StrLength As Integer’字符串長度Dim RandomNum As Single’隨機數(shù)Dim Str1 As StringDim a As StringDim i, TempStrLength = 0’每次開始時把字符串長度還原為0a = For i = 1 To Len(a)’Len(a)代表字符串的長度Temp = Asc(Mid$(a, i, 1))’挨個取字符If Temp 255 Or Temp 0 Then’不是ASC碼StrLength = StrLength + 2ElseStrLength = StrLength + 1End IfNext i　StrLength = StrLength / 2Select Case StrLengthCase 0 To 9 = True = False = False = 慢慢說。　　程序的步驟清楚了，我們在來看看程序的要點。Visible False Command1 Visible False 　　　　三個圖片框Picture1－3的Picture屬性分別為綠燈，黃燈和紅燈，這些圖標(biāo)在VB目錄下的Graphics\Icons\Traffic下（VB5），或是VB目錄下的Icons\Traffic下（VBVB3），你還可以為Label1在Font屬性里選一個合適的字體和字重。Visible True Picture2 Autosize TrueBackColor amp。ForeColor amp。ForeColor amp。J 　　這個程序比原來的英文程序有了幾點不同，第一，由于用到的是雙字節(jié)中文的中文，所以對于檢測中文字符和英文有很大不同，第二，原來的英文程序不管你說多少，警察依然是依法從事，本例中給了犯規(guī)者10%的免罰機會（有點無聊……L ，不過也是為了學(xué)一些東東嘛）。