【正文】 多步驟。對(duì)用戶，Windows提供了一個(gè)圖形鼠標(biāo)的操作環(huán)境，該環(huán)境對(duì)所有的應(yīng)用程序都一樣；對(duì)于程序員，Windows提供了一組預(yù)定義工具稱之為Microsoft Windows 的軟件開(kāi)發(fā)工具箱（SDK），該工具能使程序員建立一個(gè)與Windows界面相同的應(yīng)用程序，而且，程序員不必關(guān)心最終用戶的硬件配置情況。如果運(yùn)用基于DOS下的編程語(yǔ)言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。　　Visual Basic（以下簡(jiǎn)稱VB）可以說(shuō)是可視化語(yǔ)言的先驅(qū)了，而且它也是可視化程度最高的一個(gè)，從幾年前VB誕生之日起到現(xiàn)在，它已經(jīng)經(jīng)歷了五個(gè)版本，、測(cè)試，這么高的更新率，不外乎說(shuō)明兩個(gè)問(wèn)題：用戶對(duì)VB的熱衷，微軟對(duì)VB的重視。因此一般情況下，程序員首先要掌握C程序設(shè)計(jì)技術(shù)，而后再開(kāi)始學(xué)習(xí)SDK?！?2第二章：事件、屬性及數(shù)據(jù)類型以后兩章可能會(huì)比較枯燥，但不可否認(rèn)也很重要，所以為了學(xué)好VB，我們一定要打好基礎(chǔ)才行。 GotFocus事件：當(dāng)光標(biāo)聚焦于該對(duì)象時(shí)發(fā)生事件。 Click事件：鼠標(biāo)單擊對(duì)象。 Change事件：當(dāng)對(duì)象的內(nèi)容發(fā)生改變時(shí)，觸發(fā)Change事件。 我將在以后的實(shí)例中具體介紹各個(gè)屬性的作用?！贝?，實(shí)型可以用“!”，雙精度實(shí)型可以用“”定義，如剛才的第一個(gè)例子可以寫(xiě)成：Dim Index% 等價(jià)于 Dim Index As Integer 條件語(yǔ)句 函數(shù)和過(guò)程 一、VB與Basic 使用數(shù)組，必須事先用Dim或Redim進(jìn)行定義。有時(shí)我們還會(huì)用到If 條件 Then ……Case 情況3C語(yǔ)言里有一個(gè)“for”循環(huán)語(yǔ)句，VB里也有“For”關(guān)鍵字，作用也差不多，只是VB的“For”語(yǔ)句更容易理解?！癉o …… Loop While ”與前兩者的區(qū)別在于，它不管條件的真假，都會(huì)先執(zhí)行“Do”后面的語(yǔ)句，也就是說(shuō)，它至少執(zhí)行語(yǔ)句一次。 －：加法運(yùn)算。 ^：冪運(yùn)算。下面就讓我們建立一個(gè)最簡(jiǎn)單的按鈕，雙擊工具箱的CommandButton，將在窗體上建立一個(gè)形如圖4－1的按鈕，它的缺省名（Name屬性）為Command1，我們可以把它改名為cmdExit，把Caption屬性設(shè)為“退出”，然后雙擊，按鈕填寫(xiě)代碼：Private Sub cmdExit_Click()Unload MeEnd Sub　　按下F5或者工具條上的播放按鈕，運(yùn)行程序。按下“清除”，文本框被清除，按下“復(fù)原”，文本有被恢復(fù)，許多程序中的Undo/Redo就是利用這個(gè)原理實(shí)現(xiàn)的，現(xiàn)在知道為什么內(nèi)存越多越好了吧。Text＝“0.” Command1 Index 0――16Index 0――9 Caption=Index 10 Caption=Index 11Caption=Index 12 Caption=Index 13 Caption=Index 14 Caption=Index 15 Caption=Index 16 Caption=“清除” 　　如果想改變一些其他的屬性，比如字體，可以自己定義一下Font屬性，如果相對(duì)多個(gè)控件的共同屬性進(jìn)行改變，可以在窗體上按下鼠標(biāo)，拖動(dòng)，把多個(gè)控件一起選定，然后對(duì)它們的共同屬性進(jìn)行修改。 　　了解了這些，我們一步一步實(shí)現(xiàn)。在Form_Load里進(jìn)行初賦值：PointFlag = False在Command的單擊事件里接著上面輸入新的代碼：Case 10If Not PointFlag Then’如果沒(méi)有小數(shù)點(diǎn)If FirstNum Then’如果是第一個(gè)字符StrNum1 = 0.FirstNum = FalseElseStrNum1 = StrNum1 + .End IfElse’已有小數(shù)點(diǎn)Exit Sub’則退出單擊事件End IfPointFlag = True = StrNum1 42第四章　按鈕（二）　　下面會(huì)復(fù)雜一些，我們先跳過(guò)等號(hào)，而來(lái)處理四則運(yùn)算：先在General里聲明新變量：Dim Runsign As Integer 39。判斷是否已有小數(shù)點(diǎn)Dim Runsign As Integer 39。其實(shí)很簡(jiǎn)單，在剛才的例子里在建立一個(gè)按鈕Command1，把它的Caption屬性設(shè)為Click amp。接著填寫(xiě)下一菜單項(xiàng)，Caption為“新文件”，Name為“mnuFileNew”，按下Next鍵。（按下向左的箭頭，可以使菜單上升一級(jí)，Level代表菜單的級(jí)別），根據(jù)下表添加新的菜單項(xiàng)：Caption 編輯Name mnuEditLevel 0 Caption 剪切Name mnuEditCutLevel 1ShortCut Ctrl+X Caption 復(fù)制Name mnuEditCopyLevel 1ShortCut Ctrl+C Caption 粘貼Name mnuEditPasteLevel 1ShortCut Ctrl+V Caption 關(guān)于Name mnuAboutLevel 0 　　　其中ShortCut就是平常我們說(shuō)的熱鍵，你可以在菜單設(shè)計(jì)窗口中找到，設(shè)置一個(gè)你需要的組合鍵，這樣不論窗口的焦點(diǎn)處于何處，菜單在第幾層，只要按下熱鍵，就相當(dāng)于調(diào)用了該項(xiàng)的Click事件?！　≡赩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字符，窗體上的提示部分。見(jiàn)圖6－1　　新建一個(gè)項(xiàng)目（project），在Form_load里填寫(xiě)一行代碼：a$ = InputBox(舉薦你最欣賞的網(wǎng)站, 最佳網(wǎng)站投票, VB小驛)’　　按下F5運(yùn)行程序，在Form1出現(xiàn)之前先會(huì)彈出一個(gè)輸入對(duì)話框，如圖6－2。 a$ amp。PasswordChart屬性，我們經(jīng)常在程序操作中遇到要填寫(xiě)密碼的部分，為了保密起見(jiàn)，在屏幕上顯示的字符一般“*”表示，并且這時(shí)是無(wú)法用剪貼板的，這在VB中非常容易做到，把PasswordChart中設(shè)一個(gè)用來(lái)代替字符串的字符即可，并不一定是“*”哦。H80000012amp。H00808080amp。由于中文是雙字節(jié)字符，也就是說(shuō)一個(gè)漢字占兩個(gè)ASC碼的位置，而VB顯然是為英語(yǔ)國(guó)家設(shè)計(jì)的用Len函數(shù)無(wú)法返回漢字字節(jié)，也就是說(shuō)一個(gè)漢字和和一個(gè)ASC字符在Len函數(shù)中得到的值是一樣的，這就需要特殊處理。 Str(30 StrLength) amp?！　∠旅嫖以贋槟憬忉寧讉€(gè)新的函數(shù)：Left(字符串，長(zhǎng)度)　　將返回字符型，從字符串的第一個(gè)字符向左取字符串，與之相對(duì)應(yīng)的是Right()，它將從字符串的最后一個(gè)字符向右取字符串。它因?yàn)楹芟鬅o(wú)線電收音機(jī)上的按鈕因而得名無(wú)線鈕。加星號(hào)后的字符串For charindex = 1 To Len(tempword)If Mid(tempword, charindex, 1) = Then 39。顯示刪除兩邊空格后的字符串End Sub最后結(jié)果如圖6－9?！　≡赩B中提供了兩個(gè)常規(guī)的滾動(dòng)條控件――Vscroll和Hscroll，分別代表垂直的和水平的滾動(dòng)條，它們只不過(guò)是方向不同而已，而它們的屬性，以及會(huì)發(fā)生的事件都是相同的。眾所周知，計(jì)算機(jī)的機(jī)器語(yǔ)言是使用二進(jìn)制表示的，為了方便查閱我們看到的往往是十六進(jìn)制代碼，一個(gè)字節(jié)包括兩位十六進(jìn)制數(shù)字，從0－255（十六進(jìn)制表示0－FF），而一個(gè)字節(jié)是由八位二進(jìn)制數(shù)值表示（2^8，2的8次方），計(jì)算機(jī)中用分別用一個(gè)字節(jié)，也就是八位表示一種顏色，和在一起也就是三個(gè)字節(jié)（24位）表示所有的顏色，這就是我們平時(shí)常說(shuō)的24位真彩，它一共可以組成256256256（2^24）種顏色，對(duì)于我們的肉眼，是根本分辨不出來(lái)相鄰兩個(gè)不同的顏色的，比如用FFFFFF表示白色，就好象我們剛才說(shuō)的物體反射了所有的色光，相反的可以用000000表示黑色，它吸收了所有的色光，還可以用FF0000表示紅色，在HTML語(yǔ)言中就是這樣表示顏色的。ListCount屬性，返回列表框或復(fù)合列表框中條目的數(shù)目。填寫(xiě)以下代碼。Columns屬性，表示條目是以一列顯示還是兩列顯示，僅限于列表框。在下面的小程序中，我們通過(guò)三個(gè)滾動(dòng)條分別代表R、G、B，滾動(dòng)滾動(dòng)條，將在右邊的圖片框中顯示相應(yīng)的顏色，并且在下面的文本框中顯示顏色的十六進(jìn)制數(shù)值。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?！　〕绦蚝芎?jiǎn)單，一共有兩個(gè)框架（Frame1和Frame2），它們的Caption分別為“選擇你的計(jì)算機(jī)擁有的配置”和“這是你的計(jì)算機(jī)系統(tǒng)”，在Frame1有四個(gè)檢查框（Check1到Check4），Caption分別為“網(wǎng)絡(luò)系統(tǒng)”、“鼠標(biāo)”、“密碼保護(hù)”和“電子郵件”，另把Check4的Enabled屬性改為False，使其無(wú)效；在Frame2中放置四個(gè)圖片框（Picture1到Picture4）與四個(gè)檢查框向?qū)?yīng)，請(qǐng)把所有圖片框的BorderStyle屬性設(shè)為0（無(wú)邊框），它們的Picture屬性請(qǐng)根據(jù)上圖，在存放圖標(biāo)的目錄中找到相對(duì)的圖標(biāo)。但焦點(diǎn)于Text139。因?yàn)榭崭裨谖覀冊(cè)谖谋究蛑袩o(wú)法看到空格，所以我們通過(guò)一個(gè)稱作AddStar的函數(shù)把原有字符串中的空格轉(zhuǎn)換為星號(hào)，使我們能夠看到函數(shù)的效果?！　∩厦娴暮瘮?shù)都是以后要經(jīng)常用到的，請(qǐng)將它們熟悉。 個(gè)字可以說(shuō)End IfCase Else = False = 你已經(jīng)沒(méi)有機(jī)會(huì)了！ = True = 交錢(qián)吧，肇事犯！End SelectEnd Sub中間有幾個(gè)函數(shù)需要解釋一下：Mid可以從字符串中取出一部分，返回字符型，格式:Mid(字符串,從第幾個(gè)字符開(kāi)始,取字符的長(zhǎng)度)Asc可以把字符轉(zhuǎn)換為ASCII碼，格式：Asc(字符串)Rnd，取得大于0但小于1 的數(shù)值，可以沒(méi)有參數(shù)。你還有 amp。下面我們來(lái)看代碼：首先初始化程序：Private Sub Form_Load()39。H00FF0000amp。下面就跟我來(lái)設(shè)計(jì)窗體吧?！　∈紫纫榻B的當(dāng)然是輸入用到最多的Text框。本例中用到了幾組控件數(shù)組，其創(chuàng)建方法是，在選定的點(diǎn)右鍵，選擇Copy，再在窗體其他部位單擊右鍵，選擇Paste即可，注意，若要使粘貼的對(duì)象在Frame1上，請(qǐng)?jiān)贔rame1上單擊右鍵選擇Paste。helpfile――字符串表達(dá)式，是幫助文件的完整路徑。下面在該事件里添加代碼（效果如圖5－6）：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub在上面的代碼中我們用到了PopupMenu方法，它的語(yǔ)法是： 菜單名，標(biāo)記，X坐標(biāo)，Y坐標(biāo)標(biāo)記是用來(lái)表明彈出菜單位于鼠標(biāo)指針位置的，它有三個(gè)值：vbPopupMenuLeftAlign 位于鼠標(biāo)左 vbPopupMenuRightAlign 位于鼠標(biāo)右 VbPopupMenuCenterAlign 位于鼠標(biāo)中部 　X、Y值可以用來(lái)制定菜單彈出的位置，可以省略。最后增加這個(gè)菜單條的最后一項(xiàng)，Caption為“退出”，Name為mnuFileExit。其中Name是必須的。還原標(biāo)記值If SignFlag ThenCall RunElseSignFlag = TrueStrNum2 = StrNum1StrNum1 = End IfRunsign = Index 11Case 11If Not SignFlag Then = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd If　Case 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ā)生。建立過(guò)程（Procedure），可以在General部分直接輸入，也可以通過(guò)菜單里的“Add Procedure”添加。判斷是否是數(shù)字開(kāi)頭　　因?yàn)門(mén)ext1里是存放字符串的，所以要把輸入的數(shù)據(jù)進(jìn)行運(yùn)算，必須把字符型變量轉(zhuǎn)變?yōu)閷?shí)型變量，分別用NumNum2和StrNumStrNum2進(jìn)行存放。 2. 第一次按下運(yùn)算鍵，再按下數(shù)字鍵，將重新輸入第二個(gè)數(shù)字，再次按下運(yùn)算鍵，將算出前兩個(gè)數(shù)的結(jié)果，然后按下數(shù)字鍵，將又重新輸入新的數(shù)字。 　　先建立一個(gè)新的項(xiàng)目文件