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