【正文】 e ElseCall ClearData　End SelectEnd Sub　Private Sub Form_Load()Call ClearDataEnd Sub 補(bǔ)充說(shuō)明 按鈕還有兩個(gè)重要的屬性Default（默認(rèn)屬性）和Cancel（取消屬性），兩個(gè)屬性都以布爾賦值，把Default設(shè)為T(mén)rue，則在按下回車(chē)鍵時(shí)，不論焦點(diǎn)處于何處，都會(huì)觸發(fā)該按鈕的Click事件，而當(dāng)Cancel屬性被設(shè)為T(mén)rue，在按下ESC鍵時(shí)，該按鈕的Click屬性發(fā)生。最后增加這個(gè)菜單條的最后一項(xiàng)，Caption為“退出”，Name為mnuFileExit。helpfile――字符串表達(dá)式，是幫助文件的完整路徑。　　首先要介紹的當(dāng)然是輸入用到最多的Text框。H00FF0000amp。你還有 amp。　　上面的函數(shù)都是以后要經(jīng)常用到的，請(qǐng)將它們熟悉。但焦點(diǎn)于Text139。SmallChange和LargeChange屬性，當(dāng)鼠標(biāo)在滾動(dòng)條兩頭的箭頭上單擊時(shí)，就會(huì)把滾動(dòng)條向相應(yīng)的方向挪動(dòng)一點(diǎn)，這時(shí)用到的就是SmallChange屬性，當(dāng)你把它設(shè)為1時(shí)，每點(diǎn)一下，滾動(dòng)條的Value就改變1；當(dāng)鼠標(biāo)在滾動(dòng)條上點(diǎn)擊時(shí)，用到的就是LargeChange，當(dāng)設(shè)為10時(shí)，每點(diǎn)擊一下滾動(dòng)條，Value就改變10。Columns屬性，表示條目是以一列顯示還是兩列顯示，僅限于列表框。ListCount屬性，返回列表框或復(fù)合列表框中條目的數(shù)目?！　≡赩B中提供了兩個(gè)常規(guī)的滾動(dòng)條控件――Vscroll和Hscroll，分別代表垂直的和水平的滾動(dòng)條，它們只不過(guò)是方向不同而已，而它們的屬性，以及會(huì)發(fā)生的事件都是相同的。加星號(hào)后的字符串For charindex = 1 To Len(tempword)If Mid(tempword, charindex, 1) = Then 39?！　∠旅嫖以贋槟憬忉寧讉€(gè)新的函數(shù)：Left(字符串，長(zhǎng)度)　　將返回字符型，從字符串的第一個(gè)字符向左取字符串，與之相對(duì)應(yīng)的是Right()，它將從字符串的最后一個(gè)字符向右取字符串。由于中文是雙字節(jié)字符，也就是說(shuō)一個(gè)漢字占兩個(gè)ASC碼的位置，而VB顯然是為英語(yǔ)國(guó)家設(shè)計(jì)的用Len函數(shù)無(wú)法返回漢字字節(jié)，也就是說(shuō)一個(gè)漢字和和一個(gè)ASC字符在Len函數(shù)中得到的值是一樣的，這就需要特殊處理。H80000012amp。 a$ amp?！　≡赩B中提供了一個(gè)函數(shù)InputBox能幫助我們建立一個(gè)最簡(jiǎn)單的輸入窗體，語(yǔ)法如下：InputBox（prompt[,title][,default][,xpos][,ypos][,helpfile,context]）該函數(shù)返回一個(gè)字符串表達(dá)式，其參數(shù)含義為：（“[]”表示可缺省）prompt――字符串表達(dá)式，最大長(zhǎng)度為1024字符，窗體上的提示部分。接著填寫(xiě)下一菜單項(xiàng)，Caption為“新文件”，Name為“mnuFileNew”，按下Next鍵。判斷是否已有小數(shù)點(diǎn)Dim Runsign As Integer 39。 　　了解了這些，我們一步一步實(shí)現(xiàn)。按下“清除”，文本框被清除，按下“復(fù)原”，文本有被恢復(fù)，許多程序中的Undo/Redo就是利用這個(gè)原理實(shí)現(xiàn)的，現(xiàn)在知道為什么內(nèi)存越多越好了吧。 ^：冪運(yùn)算。 －：加法運(yùn)算。C語(yǔ)言里有一個(gè)“for”循環(huán)語(yǔ)句，VB里也有“For”關(guān)鍵字，作用也差不多，只是VB的“For”語(yǔ)句更容易理解。有時(shí)我們還會(huì)用到If 條件 Then 條件語(yǔ)句 ”代替，實(shí)型可以用“!”，雙精度實(shí)型可以用“”定義，如剛才的第一個(gè)例子可以寫(xiě)成：Dim Index% 等價(jià)于 Dim Index As Integer Click事件：鼠標(biāo)單擊對(duì)象。 因此一般情況下，程序員首先要掌握C程序設(shè)計(jì)技術(shù)，而后再開(kāi)始學(xué)習(xí)SDK。如果運(yùn)用基于DOS下的編程語(yǔ)言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 英文Visual的意思是“視覺(jué)的”，“可視的Baisc”這個(gè)名字可能抽象了點(diǎn)，但實(shí)際上它卻是最直觀的編程方法，之所以叫做“可視”，你只要看到VB的界面就會(huì)明白，實(shí)際上你無(wú)需編程，就可以完成許多步驟。 Unload事件：僅適用于窗體對(duì)象，當(dāng)窗體被卸載時(shí)運(yùn)行。 KeyPress事件：按鍵事件。 數(shù)組的定義類(lèi)似于變量定義，所不同的是數(shù)組需要指定數(shù)組中的元素個(gè)數(shù)，例如： Dim IntegerArray(99) As Integer這個(gè)數(shù)組中包含100個(gè)元素，腳標(biāo)從0到99。 VB里的說(shuō)明語(yǔ)句（Declare），僅支持動(dòng)態(tài)鏈結(jié)庫(kù)（DLL）的子程序和無(wú)變量函數(shù)。 語(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)題。 While …… Wend 語(yǔ)句 函數(shù)和過(guò)程都可以有參數(shù)，也可以沒(méi)有參數(shù)。然后，添加控件，包括一個(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è)按鈕為止?！　≡贔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)行程序的話已經(jīng)可以輸入數(shù)據(jù)，下面我們來(lái)處理小數(shù)點(diǎn)。下面舉個(gè)例子： 建立一個(gè)新窗體和兩個(gè)按鈕，Name屬性分別為cmdOK和cmdCancel，把前者的Default設(shè)為T(mén)rue，后者的Cancel設(shè)為T(mén)rue，Caption屬性分別為OK和Cancel。現(xiàn)在可以退出菜單設(shè)計(jì)窗口，菜單如圖5－4。Context――數(shù)值表達(dá)式，指定適合的幫助主題。Text沒(méi)有Click事件，它的缺省事件是Change，也就是當(dāng)Text框里的一旦內(nèi)容改變就會(huì)激發(fā)該事件發(fā)生，還是讓我們用實(shí)例說(shuō)話吧。 Text1 MultiLink TrueText “” Picture1 Autosize TrueBackColor amp。 Str(30 StrLength) amp?！　∩洗沃v到文本框的用處，還有意思嗎？你是否能把上次的程序稍稍變動(dòng)一下，來(lái)計(jì)算出輸入的單詞數(shù)，提示一下，單詞與單詞之間是用空格分隔開(kāi)的。清除所有文本框中的字符 = = = 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。下面我們看一個(gè)實(shí)例。Style屬性：表示列表框或復(fù)合列表框以何種風(fēng)格顯示，二者參數(shù)不同。列表框（ListBox）和復(fù)合列表框（ComboBox）也是我們經(jīng)常見(jiàn)到的視窗元素，我們從它所列示的條目中選出所需的，兩種列表框只是在外觀上略有不同，但從本質(zhì)和操作方法來(lái)說(shuō)它們是很相象的，它們也有一些特殊的屬性：List屬性，你可以利于該屬性象列表框或復(fù)合列表框中添加條目，但也可以在程序設(shè)計(jì)中通過(guò)AddItem方法添加。但滾動(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)似的效果。刪除兩邊空格后的字符串　　然后，我們通過(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)槲覅拹耗峭嬉鈨?，特別是上了大學(xué)之后，好在大二以后就再也不會(huì)有數(shù)學(xué)課了，哈哈……Function addstar(tempword As String) As StringDim charindex%Dim pasteword$ 39。Len(字符型)　　返回字符串的長(zhǎng)度?！　〕绦虻牟襟E清楚了，我們?cè)趤?lái)看看程序的要點(diǎn)。ForeColor amp。檢查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。以上就是所謂的人機(jī)對(duì)話或交互功能，尤其是在Windows操作里我們需要進(jìn)行更多的輸入工作，我們需要填寫(xiě)各種各樣的表格，設(shè)置程序的重要參數(shù)，把數(shù)據(jù)輸入給計(jì)算機(jī)，再又它完成既定的工作就是今天我們本章要重點(diǎn)討論的問(wèn)題――在VB中如何建立完整的輸入機(jī)制。小知識(shí)：實(shí)際上我們?cè)谏罹椭薪?jīng)常用到縮排，寫(xiě)文章時(shí)開(kāi)頭要空兩格就是一種縮排，在編寫(xiě)程序時(shí)更需要縮排，這樣使程序結(jié)構(gòu)化，便于觀察，當(dāng)然菜單設(shè)計(jì)里的縮排有更多的用處。判斷是否是數(shù)字開(kāi)頭Dim PointFlag As Boolean 39。 4. 按下“清除”，數(shù)據(jù)被全部清除。清除 = TrueEnd Sub　　運(yùn)行程序，如圖4－5。 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)完成，非常方便。它的一般語(yǔ)法是：If 條件 Then 語(yǔ)句語(yǔ)句………End If與C 語(yǔ)言不同，VB的條件語(yǔ)句更符合英語(yǔ)的語(yǔ)法，如果Then后面所跟的語(yǔ)句只有一條，可以寫(xiě)成：If 條件 Then 語(yǔ)句而不用End If。 VB在調(diào)用函數(shù)（Function）時(shí)，必須在函數(shù)名后跟一對(duì)括號(hào)。 整型可以用“%”代替，長(zhǎng)整型可以用“amp。 PathChange事件：路徑改變事件，僅用于文件列表框（FileBox）對(duì)象。 DragOver事件：鼠標(biāo)在拖放過(guò)程中就會(huì)產(chǎn)生DragOver事件。 Resize事件：當(dāng)對(duì)象的大小改變時(shí)觸發(fā)Resize事件。兩種新方法的交叉使眾多的程序員重新陷入困境，程序員不僅要掌握程序驅(qū)動(dòng)編程技術(shù)和六百多個(gè)函數(shù)的功能，而且還得用C語(yǔ)言描述這些問(wèn)題?！　【幊淌切枰熨x的，你必須在大