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