【正文】 就是說(shuō)，只能有一個(gè)按鈕被選中。刪除兩邊空格后的字符串　　然后，我們通過(guò)一個(gè)叫做addstar的函數(shù)為字符串加上星號(hào)，以前曾說(shuō)過(guò)函數(shù)與過(guò)程的分別，函數(shù)會(huì)返回一個(gè)函數(shù)值，所以addstar也就相當(dāng)于一個(gè)變量，其實(shí)這很好理解，就象中學(xué)代數(shù)中的函數(shù)，函數(shù)就相當(dāng)于變量Y，而函數(shù)中的參數(shù)則相當(dāng)于自變量X，當(dāng)然可能有很多自變量XX2……請(qǐng)?jiān)?，我并不想在這里上數(shù)學(xué)課，因?yàn)槲覅拹耗峭嬉鈨海貏e是上了大學(xué)之后，好在大二以后就再也不會(huì)有數(shù)學(xué)課了，哈哈……Function addstar(tempword As String) As StringDim charindex%Dim pasteword$ 39。顯示刪除右空格后的字符串End Sub　Private Sub Option3_Click() = LRTrimmedword 39。但滾動(dòng)條除去滾動(dòng)窗口，還有一個(gè)很重要的作用――輸入，想想你經(jīng)常用到的一些家用電器上調(diào)節(jié)聲音或別的什么東西的滑塊，你把它滑向大的一方音量就會(huì)增大，而你把它滑向小的一方音量就會(huì)減小，或者一個(gè)控制左右兩個(gè)音箱的均衡器，當(dāng)滑塊在正中央的時(shí)候，兩個(gè)音箱的音量是相同的，當(dāng)你把滑塊偏向一方時(shí)，音箱的音量有了大小之分，在Windows操作中，我們也經(jīng)常要用到類(lèi)似的效果。在計(jì)算機(jī)中，顏色的表示就是象我們剛才描述的樣子，它把顏色分為紅（R）、綠（G）和藍(lán)（B）。列表框（ListBox）和復(fù)合列表框（ComboBox）也是我們經(jīng)常見(jiàn)到的視窗元素，我們從它所列示的條目中選出所需的，兩種列表框只是在外觀上略有不同，但從本質(zhì)和操作方法來(lái)說(shuō)它們是很相象的，它們也有一些特殊的屬性：List屬性，你可以利于該屬性象列表框或復(fù)合列表框中添加條目，但也可以在程序設(shè)計(jì)中通過(guò)AddItem方法添加。例子一，建立一個(gè)新項(xiàng)目文件，在Form1上添加一個(gè)List控件，調(diào)整適當(dāng)?shù)某叽?，無(wú)需改變?nèi)魏螌傩?。Style屬性：表示列表框或復(fù)合列表框以何種風(fēng)格顯示，二者參數(shù)不同。現(xiàn)在，新建一個(gè)項(xiàng)目文件，在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ù)值，要使用一個(gè)叫做Hex（）的函數(shù)，它把十進(jìn)制數(shù)值轉(zhuǎn)化為十六進(jìn)制的字符，但對(duì)于只有一位的十六進(jìn)制字符，這個(gè)函數(shù)并不在高位補(bǔ)零，為了視覺(jué)上的正確，我設(shè)計(jì)了一個(gè)小函數(shù)幫助它給一位的十六進(jìn)制字符補(bǔ)零.程序代碼很簡(jiǎn)單，見(jià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’補(bǔ)零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。下面我們看一個(gè)實(shí)例。下面是程序代碼：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這個(gè)程序比我們見(jiàn)過(guò)的任何程序都簡(jiǎn)單，就不再做說(shuō)明。清除所有文本框中的字符 = = = 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。下面在程序中添加代碼，首先在General中聲明窗體級(jí)變量：Dim LTrimmedword$, RTrimmedword$ 39?！　∩洗沃v到文本框的用處，還有意思嗎？你是否能把上次的程序稍稍變動(dòng)一下，來(lái)計(jì)算出輸入的單詞數(shù)，提示一下，單詞與單詞之間是用空格分隔開(kāi)的?！　≡趺礃?，十分簡(jiǎn)單吧，我們將在下一次繼續(xù)討論VB的輸入機(jī)制！　　在繼續(xù)上面的內(nèi)容時(shí)，我想再回顧和強(qiáng)調(diào)幾個(gè)在字符串操作中經(jīng)常函數(shù)：　　先是幾個(gè)已經(jīng)接觸過(guò)的，Mid()，Asc()，Len()，它們的語(yǔ)法分別是：Mid(字符型，起始字符，長(zhǎng)度)　　返回子字符串，如果從字符串的第一個(gè)字符取起，起始字符為1，依此類(lèi)推。 Str(30 StrLength) amp。把Command1放在水平的中央 = ＋200 = ( ) / 239。 Text1 MultiLink TrueText “” Picture1 Autosize TrueBackColor amp。（如圖6－6）Form1 Icon Stop圖標(biāo)Caption 停車(chē)檢查BorderStyle 3 Label1 Caption 警官，我超速是有原因的,請(qǐng)聽(tīng)我說(shuō)：BackColor amp。Text沒(méi)有Click事件，它的缺省事件是Change，也就是當(dāng)Text框里的一旦內(nèi)容改變就會(huì)激發(fā)該事件發(fā)生，還是讓我們用實(shí)例說(shuō)話(huà)吧?！　∥覀兺ㄟ^(guò)這個(gè)窗體，對(duì)輸入框進(jìn)行完整的控制，原理是這樣的：當(dāng)我們把窗體中要填寫(xiě)的對(duì)輸入框的參數(shù)完成后按下OK按鈕，就會(huì)出現(xiàn)我們?cè)O(shè)計(jì)的那個(gè)輸入框，我們從輸入框退出時(shí)則返回我們投票的結(jié)果，代碼如下.　　窗體初次被裝入時(shí)，Label1(3)、Label(4)和Text1(3)、Text1(4)的Enabled屬性都是False，我們需要通過(guò)改變Check1的Value（1，被選中，0，未選中）是他們有效或無(wú)效。Context――數(shù)值表達(dá)式，指定適合的幫助主題。關(guān)于菜單的Visible、Enabled等屬性請(qǐng)自己嘗試。現(xiàn)在可以退出菜單設(shè)計(jì)窗口，菜單如圖5－4。下面請(qǐng)跟我一起設(shè)計(jì)第一個(gè)菜單。下面舉個(gè)例子： 建立一個(gè)新窗體和兩個(gè)按鈕，Name屬性分別為cmdOK和cmdCancel，把前者的Default設(shè)為T(mén)rue，后者的Cancel設(shè)為T(mén)rue，Caption屬性分別為OK和Cancel。Run的代碼如下：Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1’加equal = Num1 + Num2Case 2’減equal = Num1 Num2Case 3’乘equal = Num1 * Num2Case 4’除equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2 = StrNum2End Sub 下面是其余的代碼：（在Command1_Click事件里，接著寫(xiě)) Case 11If Not SignFlag Then = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd IfCase Else’清除按鈕Call ClearData里面又用到了一個(gè)ClearData過(guò)程，實(shí)際上就是Form_Load里的變量初賦值，代碼如下：Sub ClearData()Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = False = 0.End Sub這樣完整的程序就完成了，本章介紹了VB的第一個(gè)控件――按鈕，并且舉例，希望你繼續(xù)看下一章――菜單?！　≡贔orm_Load事件里給變量初賦值：Num1 = 0Num2 = 0StrNum1 = StrNum2 = FirstNum = True　　因?yàn)?7個(gè)按鈕使用的是同一事件，所以我們用一個(gè)Select Case語(yǔ)句區(qū)分各個(gè)按鈕，雙擊任意按鈕輸入代碼：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)’實(shí)型轉(zhuǎn)字符型FirstNum = False’初賦值為假Else’非初賦值StrNum1 = StrNum1 + Str(Index)End If = StrNum1’顯示還有其他語(yǔ)句，等待插入End SelectEnd Sub運(yùn)行程序的話(huà)已經(jīng)可以輸入數(shù)據(jù)，下面我們來(lái)處理小數(shù)點(diǎn)。 3. 輸入數(shù)字后，按下“等于鍵”將仍輸出原來(lái)的數(shù)字，輸入運(yùn)算符和第二個(gè)數(shù)字后在按下“等于”，將得到二者的結(jié)果。然后，添加控件，包括一個(gè)Text框（Text1），和17個(gè)按鈕，這17個(gè)按鈕使用的名稱(chēng)都是Command1，只是Index屬性不同，就好象一個(gè)數(shù)組，創(chuàng)立一組按鈕的方法是，先在窗體上建立一個(gè)按鈕（Command1），然后在Command1上擊鼠標(biāo)右鍵，選擇復(fù)制（Copy），然后在窗體上任意部位擊右鍵，選擇粘貼（Paste），系統(tǒng)會(huì)提示是否創(chuàng)建控件組，選擇“是”，重復(fù)上面步驟，直至創(chuàng)立17個(gè)按鈕為止。用來(lái)儲(chǔ)存字符串※注意：為什么用全局變量？VB里每一個(gè)小過(guò)程都相當(dāng)于一個(gè)程序，程序里的變量稱(chēng)為局部變量，是只能在程序內(nèi)部使用的，而當(dāng)程序調(diào)用結(jié)束后，由于從內(nèi)存中被清除，所以變量?jī)?chǔ)存的值也就消失了，這里的全局變量是用來(lái)在過(guò)程中傳遞字符串。函數(shù)和過(guò)程都可以有參數(shù)，也可以沒(méi)有參數(shù)。例如：a Mod b表示a被b整除以后的余數(shù)。 ＋：加法運(yùn)算，也適合于字符串的之間的合并運(yùn)算。 While …… Wend 語(yǔ)句 Print “a=Case 2 語(yǔ)句End If所有這些可以用一個(gè)表格表示：條件1 True False 語(yǔ)句1 條件2 True False 語(yǔ)句2 條件3 True False ……… ……………………… 條件N True False 語(yǔ)句N(xiāo) 語(yǔ)句N(xiāo)＋1 　　用了過(guò)多的Else后你會(huì)感到很不方便，而且程序結(jié)構(gòu)也不清晰，所以大多數(shù)的語(yǔ)言還有Select語(yǔ)句幫助解決這個(gè)問(wèn)題。四、條件語(yǔ)句如果你學(xué)過(guò)任何一種編程的話(huà)，都會(huì)知道在程序里控制其流程的有兩種語(yǔ)句，條件與循環(huán)，VB自然也不例外，其實(shí)不管哪種語(yǔ)言，條件和循環(huán)的樣子都差不多，只不過(guò)各有各的規(guī)矩罷了。 VB里的說(shuō)明語(yǔ)句（Declare），僅支持動(dòng)態(tài)鏈結(jié)庫(kù)（DLL）的子程序和無(wú)變量函數(shù)。 數(shù)組的定義類(lèi)似于變量定義，所不同的是數(shù)組需要指定數(shù)組中的元素個(gè)數(shù)，例如： Dim IntegerArray(99) As Integer這個(gè)數(shù)組中包含100個(gè)元素，腳標(biāo)從0到99。 2. 數(shù)據(jù)類(lèi)型的定義方法： KeyPress事件：按鍵事件。 上面所說(shuō)的“光標(biāo)”并非指鼠標(biāo)指針。 Unload事件：僅適用于窗體對(duì)象，當(dāng)窗體被卸載時(shí)運(yùn)行。 英文Visual的意思是“視覺(jué)的”，“可視的Baisc”這個(gè)名字可能抽象了點(diǎn)，但實(shí)際上它卻是最直觀的編程方法，之所以叫做“可視”，你只要看到VB的界面就會(huì)明白，實(shí)際上你無(wú)需編程，就可以完成許