【正文】 舉兩個簡單的例子。RGB函數(shù)返回顏色值End Sub　Private Sub HScroll1_Change(Index As Integer)‘當滾動條被改變時 = GetColorValue = RGB(RedNum, GreenNum, BlueNum)End Sub運行如圖6－13?！　〈蠹叶贾?，物體之所以會有顏色是因為物體表面的材料吸收了太陽光中的部分色光，而還有部分色光沒被吸收而被反射回來，它就成了我們看到的顏色，黑色就是物體吸收了所有的太陽光的所有色光，沒有反射顏色，所以在我們看來是黑的，而當物體反射了所有的色光，我們看到的就是白色。 63VB入門教程之六第六章　輸入（三）　　滾動條（ScrollBar）在視窗中也是一個不可缺少的部分，由于面積所限，我們不得把屏幕上的內(nèi)容滾來滾去，以顯示大量的內(nèi)容，這就是我們經(jīng)常要用到的滾動條。顯示刪除左空格后的字符串End Sub　Private Sub Option2_Click() = RTrimmedword 39。刪除左邊空格和右邊空格后的字符串Dim LRTrimmedword$ 39?！　≥斎氩粌H僅是向文本框輸入字符，凡是從外界向程序傳遞數(shù)據(jù)都可以叫做輸入，我們一一說明白。Asc(字符型)　　返回數(shù)值，如果參數(shù)不是一個字符，而是字符串（多個字符），將返回參數(shù)的第一個字符ASCII值。 個字可以說Level = 1Case 10 To 19If Level = 1 ThenRandomNum = Rnd * 10’得到隨機數(shù)If RandomNum = 10 And RandomNum 9 Then = False = 很抱歉這是個誤會…… = True = 您可以離開了End IfLevel = 2Else = False = True = FalseStr1 = 怎么還沒說完！ = Str1 amp。重疊三個圖片框 = = = = End Sub　　下面我來講一講程序是怎樣運行的，我們將用到Text的Change事件，每當字符串改變一次就對它進行一次檢查，算出已經(jīng)說的字數(shù)，當字數(shù)超過10時，下面的紅綠燈會變成黃色，并且在這時隨機抽取一個數(shù)，它在一個范圍內(nèi)出現(xiàn)的可能是10%，如果在這個范圍內(nèi)就可以免交罰金，如果不在范圍則繼續(xù)，當文字超過20的時候，紅綠燈會變成紅色，再一次抽取隨機數(shù)字，步驟同上，如果30個字已滿，再進行一次檢查，如果你真的那么不幸就該罰款了。H00808080amp。H00808080amp。　　Text有幾個特殊的屬性，一是MultiLine（多行）屬性，MultiLine屬性為False的時候，不論文本有多長，它都會在一行里顯示下去，換行符無效，當它為True的時候，字符串顯示到Text框邊緣的時候就會自動換行。聲明全局變量（General）：Dim PosChk As Boolean 39。可能你看了上面的說明并不明白，那么下面我們就用Input語句完成一個最簡單的程序。 61第六章　輸入（一）　　我們?yōu)槭裁匆O計計算機程序呢，當然是為了計算機能為我們完成工作，但是要完成不同的任務，我們就必須對計算機下達命令，然后計算機在把信息返饋回來――任務是否完成?！　≡趺礃?，經(jīng)過幾章的學習，是不是覺得Windows世界也不是那么神秘？也對，也不對?！　∈紫仍贑aption添入“文件”，Name為“mnuFile”，按下Next按鈕，這樣就建立了第一級菜單，注意菜單設計窗口的左中有四個箭頭，按下向右的箭頭，出現(xiàn)了一排小點，如圖5－2，在VB里這叫縮排，這樣就可以開始建立第二級菜單。如圖4－8。 下面給出完整的程序代碼： Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean 39。在General里聲明新的變量：Dim PointFlag As Boolean 39。然后又重復第二、三步。各控件屬性如下表：Text1 BackColor＝amp。接著填寫以下代碼：Private Sub Command1_Click() = StoreString = FalseEnd Sub　Private Sub Command2_Click()StoreString = = 39。關(guān)于函數(shù)和過程將在以后的章中配合實例講解，請您繼續(xù)VB教程。 /：除法運算。 Print “a=Case ElseVB里的Select語句的格式是這樣的：Select Case 變量名Case 情況1在條件語句里，我們先來學習“If……Then……”語句。 數(shù)據(jù)定義與賦值 長語句的分行 也可以指定腳標的起始值，例如：Dim IntegerArray(2 to 10) As Integer這個數(shù)組含有九個元素，腳標從2到10。 定義變量最簡單的方法是用“Dim”關(guān)鍵字，它的語法： Dim 【變量名】As 【數(shù)據(jù)類型】如：Dim Index As Integer也可以在一行中定義多個變量，如：Dim Index As Integer , Dim Number As Long把多個變量定義成同一類型可以寫成：Dim Index , Number As Integer 更可以在定義時進行初賦值：Dim Index=有時為了簡便，也以符號進行簡單的定義，作用是和上面一樣的。 每個對象都有它的屬性，并且“Name”屬性是共有的，有了“Name”屬性才可以在程序中進行調(diào)用。 MouseDown、MouseUp屬性：按下/放開鼠標鍵事件。 在VB中引入了控件的概念，在Windows中控件的身影無處不在，各種各樣的按鈕、文本框、無線鈕，都是控件的種類，VB把這些控件模式化，并且每個控件都有若干屬性用來控制控件的外觀，工作方法。在這一開發(fā)環(huán)境中，程序員唯一困難的是Microsoft SDK提供了六百多個函數(shù)和與其一致的事件驅(qū)動（eventdriven）編程技術(shù)?！　【幊淌切枰熨x的，你必須在大腦中對整個程序有一個清晰的輪廓，一個高效的流程，這并不是每個人都能做到的，你必須思之慎之，這也使編程變成一件最枯燥無味的事情。但在第四代計算機語言（可視化編程）出現(xiàn)后，可以確切的說它開發(fā)了人們的更多天賦，并不局限于那些頭腦異常清晰的人，每一個人都可以發(fā)現(xiàn)自己也可以編出一些從前不敢問津的程序，想象力的充分發(fā)揮才是第四代語言的精粹。兩種新方法的交叉使眾多的程序員重新陷入困境，程序員不僅要掌握程序驅(qū)動編程技術(shù)和六百多個函數(shù)的功能，而且還得用C語言描述這些問題。這樣你就可以象在畫板上一樣，隨意點幾下鼠標，一個按鈕就完成了，這些在以前的編程語言下是要經(jīng)過相當復雜的工作的。 Resize事件：當對象的大小改變時觸發(fā)Resize事件。 （Focus）事件 DragOver事件：鼠標在拖放過程中就會產(chǎn)生DragOver事件。 PathChange事件：路徑改變事件，僅用于文件列表框（FileBox）對象。對于屬性，可以在窗體的布局操作中完成，也可以在程序運行中改變，這取決你的需要，但有些屬性是只讀的，它只能在控件布局時改變。整型可以用“%”代替，長整型可以用“amp。還可以定義多維數(shù)組：Dim ThreeD(4,2 to 5,3 to 6) As Integer上例定義了一個三維數(shù)組(444)。 VB在調(diào)用函數(shù)（Function）時，必須在函數(shù)名后跟一對括號。 它的一般語法是：If 條件 Then 語句語句………End If與C 語言不同，VB的條件語句更符合英語的語法，如果Then后面所跟的語句只有一條，可以寫成：If 條件 Then 語句而不用End If。 ……Case 情況2 Print “a does not equal to 1 or 2.”End Select五、循環(huán)語句循環(huán)結(jié)構(gòu)是計算機語言里一種重要的結(jié)構(gòu)，它的應用廣泛，最簡單的例子是累加器的作用，還可以用于窮舉法，更直觀的例子是把某件事重復指定的次數(shù)，這樣就不用把要重復的語句輸入多次，而通過循環(huán)結(jié)構(gòu)完成，非常方便。 Do …… Loop While While后面都跟邏輯條件判斷，“Do While …… Loop語句”和“While …… Wend 語句”作用相似，都是先判斷While后面的條件是否為“真”，如果為“真”則執(zhí)行里面的語句，如果為“假”，則退出循環(huán)，循環(huán)直至條件為“假”終止。 41第四章　按鈕（一）　　從本章開始我們將正式進入VB的編程世界，但這還僅僅是個開端，要編出功能強大的軟件，還要學很多東西，那就要看以后的VB高級教程了，我也得努力學??！　　按鈕是我們在Windows操作見到最多的控件，它們有著各種各樣的功能：“確認”、“取消”、“下一步”等等，這些都是按鈕的表現(xiàn)，另外還有很多圖形話的按鈕，其實它們并沒什么不同，所有的按鈕都是通過單擊（click）事件實現(xiàn)的，只不過是在外表不同罷了。清除 = TrueEnd Sub　　運行程序，如圖4－5。H00C0FFFFamp。 4. 按下“清除”，數(shù)據(jù)被全部清除。判斷是否已有小數(shù)點我們知道小數(shù)點只能輸入一次，一個數(shù)據(jù)中不能有多個小數(shù)點存在，所以需要一個布爾變量做判斷。判斷是否是數(shù)字開頭Dim PointFlag As Boolean 39。填寫代碼后運行：Private Sub cmdCancel_Click()MsgBox Cancel按鈕被按下, vbDefaultButton1, 提示End Sub　Private Sub cmdOK_Click()MsgBox OK按鈕被按下, vbDefaultButton1, 提示End Sub結(jié)果如圖4－4－10：快捷鍵大家一定都知道，在VB如何實現(xiàn)呢。小知識：實際上我們在生活就中經(jīng)常用到縮排，寫文章時開頭要空兩格就是一種縮排，在編寫程序時更需要縮排，這樣使程序結(jié)構(gòu)化，便于觀察，當然菜單設計里的縮排有更多的用處。的確，我們很輕易的實現(xiàn)了這么多的功能，但如果你仔細想想，我們的程序還什么也不會做呢！可以說是徒有其表，要實現(xiàn)強大的功能，恐怕要學很長很長時間，而現(xiàn)在僅僅是個開頭，并不是想入非非的時候，我們還要繼續(xù)努力！　　現(xiàn)在再次按下Ctrl+E，重回菜單設計窗口，接著添加菜單。以上就是所謂的人機對話或交互功能，尤其是在Windows操作里我們需要進行更多的輸入工作，我們需要填寫各種各樣的表格，設置程序的重要參數(shù)，把數(shù)據(jù)輸入給計算機，再又它完成既定的工作就是今天我們本章要重點討論的問題――在VB中如何建立完整的輸入機制?！⌒≈R：屏幕坐標在計算機的屏幕上也有一個類似于我們在中學里常用到的直角坐標系，之不過它的原點不在左下，而是在屏幕的右上角，屏幕的最右上方坐標為（0，0），它的橫坐標和我們的習慣是一致的，而縱坐標則是越向下越大，不僅是屏幕，所有的對象里都是一樣，需要記清。檢查X、Y坐標是否有效Check1_Click 事件：Private Sub Check1_Click()If = 1 ThenLabel1(3).Enabled = TrueLabel1(4).Enabled = TrueText1(3).Enabled = TrueText1(4).Enabled = TruePosChk = TrueElseLabel1(3).Enabled = FalseLabel1(4).Enabled = FalseText1(3).Enabled = FalseText1(4).Enabled = FalsePosChk = FalseEnd IfEnd Sub接著在按鈕中填寫代碼：Private Sub Command1_Click(Index As Integer)Dim Prompt, Title, Default As StringDim xPos, yPos As IntegerSelect Case IndexCase 0Prompt = Text1(0).TextTitle = Text1(1).TextDefault = Text1(2).TextIf PosChk ThenxPos = Val(Text1(3).Text)yPos = Val(Text1(4).Text)a$ = InputBox(Prompt, Title, Default, xPos, yPos)Elsea$ = InputBox(Prompt, Title, Default, xPos, yPos)End IfLabel1(5).Caption = 謝謝您的投票，您的選擇是 amp。另一個與之配合的屬性是ScrollBars屬性，它有4個值，0到3，分別是沒有滾動條，水平滾動條，垂直滾動條，和二者都有，它是一個只讀屬性，也就是說只有在程序設計過程中才能改變，而不能在程序運行中改變，但是我們可以通過API解決運行中改變的問題，我們放在以后再講。ForeColor amp。Visible True Picture2 Autosize TrueBackColor amp。　　程序的步驟清楚了，我們在來看看程序的要點。 你還有 amp。Len(字符型)　　返回字符串的長度。　　無線鈕，記得我們曾在第一章中完成過我們的第一個程序――“Hello World！”它就是一種輸入的方法，在設計VB程序時可以通過一組這樣的無線鈕，它們之間互相排斥，也