VB基礎(chǔ)入門(mén)教程

1、VB最簡(jiǎn)單入門(mén)教程目 錄提示：按Ctrl,并單擊鼠標(biāo),可以跳到相應(yīng)頁(yè)1.1 1 我們需要什么31.2 2 第二章：事件、屬性及數(shù)據(jù)類(lèi)型 31.3 3 第三章：VB語(yǔ)言 61.4 4-1第四章 按鈕一 121.5 4-第四章按鈕二 2091.6 5 第五章菜單271.7 6-1第六章輸入一 341.8 6-2第六章輸入二 421.9 6-3第六章輸入三521.10 7第七章輸出591.11 632.1 VB 教程631.1 1我們需要什么我們需要什么？當(dāng)我們?cè)谝粋€(gè)精彩的游戲世界中游歷了一番之后,或是驚嘆于某一工具軟件的小巧精致 之余,多少總會(huì)產(chǎn)生些許編程的沖動(dòng).編程嗎,在以前如果你對(duì)電腦還是一個(gè)

2、門(mén)外漢,那實(shí)在是一件可望而 不可及的事情.如果運(yùn)用基于DOST的編程語(yǔ)言,譬如 C、Qbasic、Pascal等等,真不知何年何月才能有所成就.編程是需要天賦的,你必須在大腦中對(duì)整個(gè)程序有一個(gè)清楚的輪廓,一個(gè)高效的流程,這并不是每個(gè)人 都能做到的,你必須思之慎之,這也使編程變成一件最枯燥無(wú)味的事情.但在第四代計(jì)算機(jī)語(yǔ)言可視化編 程出現(xiàn)后,可以確切的說(shuō)它開(kāi)發(fā)了人們的更多天賦,并不局限于那些頭腦異常清楚的人,每一個(gè)人都可以 發(fā)現(xiàn)自己也可以編出一些從前不敢問(wèn)津的程序,想象力的充分發(fā)揮才是第四代語(yǔ)言的精粹.Visual Basic 以下簡(jiǎn)稱(chēng)VB可以說(shuō)是可視化語(yǔ)言的先驅(qū)了,而且它也是可視化程度最高的一個(gè)

3、,從幾 年前VB誕生之日起到現(xiàn)在,它已經(jīng)經(jīng)歷了五個(gè)版本,而且現(xiàn)在微軟正在緊張的進(jìn)行著VB6.0的研制、測(cè)試,這么高的更新率,不外乎說(shuō)明兩個(gè)問(wèn)題：用戶對(duì)VB的熱衷,微軟對(duì) VB的重視.不可否認(rèn)微軟對(duì)市場(chǎng)的預(yù)測(cè)水平是極為高明的,而它強(qiáng)大的技術(shù)、財(cái)力支持也使它在許多以前未進(jìn)入的領(lǐng)域,在不長(zhǎng)的時(shí)間內(nèi)有成為最 有力的競(jìng)爭(zhēng)對(duì)手,如IE之于瀏覽器領(lǐng)域,?帝國(guó)時(shí)代?之于游戲都是最好的例證.對(duì)于VB現(xiàn)在也有一個(gè)很強(qiáng)的競(jìng)爭(zhēng)又手一一Delphi ,有人把它稱(chēng)作 VB殺手,這顯然有偏激之處,VB確實(shí)有它的缺乏之處,但 Delphi又何嘗不是呢,而且以微軟對(duì)VB的傾心,VB的功能必然會(huì)越來(lái)越強(qiáng)大.VB的誕生VB的出現(xiàn)可

4、以說(shuō)是 Microsoft Windows 的日漸成熟的必然產(chǎn)物.Microsoft Windows 為程序員和最終用戶提供了一個(gè)共同的人機(jī)界面.對(duì)用戶,Windows提供了一個(gè)圖形鼠標(biāo)的操作環(huán)境,該環(huán)境對(duì)所有的應(yīng)用程序都一樣；對(duì)于程序員,Windows提供了一組預(yù)定義工具-稱(chēng)之為Microsoft Windows的軟件開(kāi)發(fā)工具箱SDK ,該工具能使程序員建立一個(gè)與Windows界面相同的應(yīng)用程序, 而且,程序員不必關(guān)心最終用戶的硬件配置情況.在這一開(kāi)發(fā)環(huán)境中,程序員唯一困難的是 Microsoft SDK 提供了六百多個(gè)函數(shù)和與其一致的事 件驅(qū)動(dòng)event-driven 編程技術(shù).兩種新方法

5、的交叉使眾多的程序員重新陷入困境,程序員不僅要掌握程 序驅(qū)動(dòng)編程技術(shù)和六百多個(gè)函數(shù)的功能,而且還得用C語(yǔ)言描述這些問(wèn)題.因此一般情況下,程序員首先要掌握C程序設(shè)計(jì)技術(shù),而后再開(kāi)始學(xué)習(xí)SDK這樣的條件下就要求在 Microsoft多任務(wù)環(huán)境下出現(xiàn)一種操作方便,使用簡(jiǎn)單的新工具Visual Basic由此誕生.何為可視英文Visual的意思是“視覺(jué)的,“可視的Baisc這個(gè)名字可能抽象了點(diǎn),但實(shí)際上它卻是最直觀的編程方法,之所以叫做“可視,你只要看到VB的界面就會(huì)明白,實(shí)際上你無(wú)需編程,就可以完成許多步驟.在VB中引入了控件的概念,在 Windows中控件的身影無(wú)處不在,各種各樣的按鈕、文本框、無(wú)

6、線鈕, 都是控件的種類(lèi),VB把這些控件模式化,并且每個(gè)控件都有假設(shè)干屬性用來(lái)限制控件的外觀,工作方法.這樣 你就可以象在畫(huà)板上一樣,隨意點(diǎn)幾下鼠標(biāo),一個(gè)按鈕就完成了,這些在以前的編程語(yǔ)言下是要經(jīng)過(guò)相當(dāng)復(fù) 雜的工作的.1.2 2第二章：事件、屬性及數(shù)據(jù)類(lèi)型以后兩章可能會(huì)比擬枯燥,但不可否認(rèn)也很重要,所以為了學(xué)好VB,我們一定要打好根底才行.一、事件通過(guò)上一章的例子,你可能對(duì)“面向?qū)ο蟮木幊桃呀?jīng)有了一定了解,它是由事件驅(qū)動(dòng)的,對(duì)于不同的對(duì)象,所能感應(yīng)到的事件也會(huì)不同,譬如說(shuō)當(dāng)你把鼠標(biāo)移進(jìn)某一區(qū)域時(shí)就會(huì)觸發(fā)MouseMove事件,這很直觀,也容易理解,但也有些事件比擬抽象,下面我來(lái)對(duì)一般的事件進(jìn)行一

7、下解釋.1 .窗體和圖象框類(lèi)事件? Paint事件：當(dāng)某一對(duì)象在屏幕中被移動(dòng),改變尺寸或去除后,程序會(huì)自動(dòng)調(diào)用Paint事件.注意：當(dāng)對(duì)象的AutoDraw屬性為T(mén)rue (1)時(shí),程序不會(huì)調(diào)用Paint事件.? Resize事件：當(dāng)對(duì)象的大小改變時(shí)觸發(fā) Resize事件.? Load事件：僅適用于窗體對(duì)象,當(dāng)窗體被裝載時(shí)運(yùn)行.? Unload事件：僅適用于窗體對(duì)象,當(dāng)窗體被卸載時(shí)運(yùn)行.2 .當(dāng)前光標(biāo)(Focus)事件? GotFocus事件：當(dāng)光標(biāo)聚焦于該對(duì)象時(shí)發(fā)生事件.? LostFocus事件：當(dāng)光標(biāo)離開(kāi)該對(duì)象時(shí)發(fā)生事件.注意：Focus英文為“焦點(diǎn)、“聚焦之意,最直觀的例子是,比方有兩

8、個(gè)窗 體,互相有一局部遮蓋,當(dāng)你點(diǎn)下面的窗體時(shí),它就會(huì)全部顯示出來(lái),這時(shí)它處 在被激活的狀態(tài),并且標(biāo)題條變成藍(lán)色,這就是 GotFocus事件,而相反,另外一 個(gè)窗體被遮蓋,并且標(biāo)題條變灰,稱(chēng)為 LostFocus事件.上面所說(shuō)的“光標(biāo)并 非指鼠標(biāo)指針.3 .鼠標(biāo)操作事件? Click事件：鼠標(biāo)單擊對(duì)象.? DbClick事件：鼠標(biāo)雙擊事件.? MouseDown、MouseUp屬性：按下/放開(kāi)鼠標(biāo)鍵事件.? MouseMove事件：鼠標(biāo)移動(dòng)事件.? DragDrop事件：拖放事件,相當(dāng)于 MouseDown、MouseMove和MouseUp的組合.? DragOver事件：鼠標(biāo)在拖放過(guò)程中

9、就會(huì)產(chǎn)生 DragOver事件.4 .鍵盤(pán)操作屬性KeyDown、KeyUp事件：按鍵的按下/放開(kāi)事件.KeyPress事件：按鍵事件.5 .改變限制項(xiàng)事件? Change事件：當(dāng)對(duì)象的內(nèi)容發(fā)生改變時(shí),觸發(fā) Change事件.最典型的例子是文本框TextBox? DropDown事件：下彈事件,僅用于組合框 ComboBox 對(duì)象.?PathChange事件：路徑改變事件,僅用于文件列表框 FileBox 對(duì)象.6 .其他事件Timer事件：僅用于計(jì)時(shí)器,每隔一段時(shí)間被觸發(fā)一次、屬性每個(gè)對(duì)象都有它的屬性,并且“ Name屬性是共有的,有了 “ Name屬性才可以在程序中進(jìn)行調(diào) 用.對(duì)于屬性,可

10、以在窗體的布局操作中完成,也可以在程序運(yùn)行中改變,這取決你的需要,但有些屬性是 只讀的,它只能在控件布局時(shí)改變.我將在以后的實(shí)例中具體介紹各個(gè)屬性的作用.、數(shù)據(jù)類(lèi)型學(xué)過(guò)編程的人都知道大多數(shù)的計(jì)算機(jī)語(yǔ)言都規(guī)定了各自的數(shù)據(jù)類(lèi)型,VB也不例外.其實(shí),在一個(gè)最簡(jiǎn)單的程序中數(shù)據(jù)類(lèi)型是可以不作規(guī)定的,也就是說(shuō),變量可以使用各種類(lèi)型,但是在一個(gè)復(fù)雜的程序里,這樣做就很危險(xiǎn),由于很可能給同一個(gè)變量賦予了不同的類(lèi)型,而導(dǎo)致程序出錯(cuò).所以,為了程序的嚴(yán)謹(jǐn)和便于查看,正確的定義數(shù)據(jù)類(lèi)型是必要的.定義數(shù)據(jù)的另一個(gè)原因是,不同的數(shù)據(jù)占用不同的內(nèi)存數(shù)量,譬如整型Interger 數(shù)據(jù)占2字節(jié),而長(zhǎng)整型數(shù)據(jù)占4個(gè)字節(jié),定義

11、適宜的數(shù)據(jù)類(lèi)型,不管你相信不相信,它可以節(jié)省內(nèi)存！1 . VB常用的數(shù)據(jù)類(lèi)型有：整型Integer,表示-32768至32767之間的整數(shù)、長(zhǎng)整型Long,表示 -2,147,483,648 至 2,147,483,647 之間的整數(shù)、實(shí)型Single,表示-3.37E+38 至 3.37E+38 之間的實(shí) 數(shù)、雙精度實(shí)型Double ,表示-1.67E+308至1.67E+308之間的實(shí)數(shù),字符String,每個(gè)字符占 一字節(jié),可以?xún)?chǔ)存 065,535個(gè)字符,布爾Boolean ,只有兩個(gè)值 True/-1 ,或 False/0.2 .數(shù)據(jù)類(lèi)型的定義方法：? 定義變量最簡(jiǎn)單的方法是用“ Di

12、m關(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)單的定義,作用是和上面一樣的.整型可以用“%代替,長(zhǎng)整型可以用“ &代替,實(shí)型可以用“ ！,雙精度實(shí)型可以用“ #定義,如剛剛的第一個(gè)例子可以寫(xiě)成：Dim Index% 等價(jià)于 Dim Index As Intege

13、r? 對(duì)于常量的定義用 Const定義,如：Const COLOR=.為了在程序中便于查閱,我們對(duì)變量和常量的寫(xiě)法進(jìn)行規(guī)定,變量一般用小寫(xiě)方式,常量那么全部大寫(xiě).注意：使用常量的好處,對(duì)于程序中經(jīng)常出現(xiàn)的數(shù)值,應(yīng)設(shè)常量等于它,這樣一是書(shū)寫(xiě)方便,其二,如果要改變?cè)摂?shù)值,只需改變定義常量的語(yǔ)句值,而不需改變每個(gè)語(yǔ)句,提升了效率.? 數(shù)組的定義類(lèi)似于變量定義,所不同的是數(shù)組需要指定數(shù)組中的元素個(gè)數(shù),例如：Dim IntegerArray(99) As Integer這個(gè)數(shù)組中包含100個(gè)元素,腳標(biāo)從0到99.也可以指定腳標(biāo)的起始值,例如：Dim IntegerArray(2 to 10) As In

14、teger這個(gè)數(shù)組含有九個(gè)元素,腳標(biāo)從 2到10.還可以定義多維數(shù)組：Dim ThreeD(4,2 to 5,3 to 6) As Integer上例定義了一個(gè)三維數(shù)組(4 X4X4) o? 記錄的定義記錄定義是把限制權(quán)交給用戶的方法,它讓用戶可以定義自己的數(shù)據(jù)類(lèi)型,它使用關(guān)鍵字“Type,方法是：Type【數(shù)據(jù)類(lèi)型標(biāo)識(shí)符】M名 As 數(shù)據(jù)類(lèi)型M名 As 數(shù)據(jù)類(lèi)型M名 As 數(shù)據(jù)類(lèi)型End Type例如,定義一個(gè)地址數(shù)據(jù)：Type AddressStreet As StringZipCode As StringPhone As StringEnd Type這個(gè)地址數(shù)據(jù)里包括三個(gè)屬性,街區(qū)、郵政

15、編碼和 ,可以把某數(shù)據(jù)定義成此類(lèi)型:Dim MyHome As Address要調(diào)用或改變"MyHome的值時(shí),類(lèi)似于對(duì)對(duì)象的屬性的操作：變量名.域名="為了簡(jiǎn)化書(shū)寫(xiě)重復(fù)的局部,可以用關(guān)鍵字“ With ：With MyHome.Street=阜成路.ZipCode=.Phone=End With1.3 3第三章：VB語(yǔ)言本章提要：? VB語(yǔ)法與Basic的異同? 注釋語(yǔ)句? 長(zhǎng)語(yǔ)句的分行? 條件語(yǔ)句? 循環(huán)語(yǔ)句? 運(yùn)算操作?數(shù)據(jù)定義與賦值?函數(shù)和過(guò)程、VB與 Basic? VB之所以叫做“Visual Basic就是由于它使用了 Basic語(yǔ)言作為代碼,所以它們之間有著千

16、絲萬(wàn)縷 的關(guān)系,如果學(xué)過(guò) Basic的話,看到VB的程序結(jié)構(gòu)會(huì)感到很親切.但 VB作為新生物,也超越了 Basic的限制,有了許多自己的特點(diǎn)：? VB建立了一種新的變量類(lèi)型一一貨幣型變量,通過(guò)使用僅帶有二位小數(shù)的貨幣變量,就能防止因 使用實(shí)型變量而帶來(lái)的數(shù)值積累誤差問(wèn)題.? VB在調(diào)用函數(shù)Function 時(shí),必須在函數(shù)名后跟一對(duì)括號(hào).? VB對(duì)白蘭地使用范圍重新做了標(biāo)準(zhǔn),在Basic里把隱含變量都當(dāng)作全局變量,而在VB里對(duì)隱含變量都當(dāng)作局部變量.? VB里的說(shuō)明語(yǔ)句Declare,僅支持動(dòng)態(tài)鏈結(jié)庫(kù)DLL 的子程序和無(wú)變量函數(shù).? 使用數(shù)組,必須事先用 Dim或Redim進(jìn)行定義.、注釋語(yǔ)句在

17、使用注釋語(yǔ)句之前必須先了解注釋的作用,注釋不僅僅是對(duì)程序的解釋,有時(shí)它對(duì)于程序的調(diào)試 也非常有用,譬如說(shuō)可以利用注釋屏蔽一條語(yǔ)句以觀察變化,發(fā)現(xiàn)問(wèn)題和錯(cuò)誤.以后注釋語(yǔ)句將是 我們?cè)诰幊汤镒罱?jīng)常用到的語(yǔ)句之一.在VB里,注釋語(yǔ)句有兩種,一種是用“ Rem關(guān)鍵字,這跟 DOS!的批處理文件的用法一樣,還有 一種是利用單引號(hào),例如：'Dim a As String 與Rem Dim a As String的作用是一致的.三、長(zhǎng)語(yǔ)句的分行在比擬早的版本中,由于沒(méi)有象C等語(yǔ)言用“；隔開(kāi)語(yǔ)句與語(yǔ)句,VB的語(yǔ)句是必須寫(xiě)在一行里的, 不過(guò)后來(lái)版本的VB里如許用分行符“ 把一個(gè)長(zhǎng)語(yǔ)句分成假設(shè)干行來(lái)存放.

18、四、條件語(yǔ)句如果你學(xué)過(guò)任何一種編程的話,都會(huì)知道在程序里限制其流程的有兩種語(yǔ)句,條件與循環(huán),VB自然也不例外,其實(shí)不管哪種語(yǔ)言,條件和循環(huán)的樣子都差不多,只不過(guò)各有各的規(guī)矩罷了.IfThen語(yǔ)句在條件語(yǔ)句里,我們先來(lái)學(xué)習(xí) 它的一般語(yǔ)法是:If < 條件 > Then印句句 End If與C語(yǔ)言不同,VB的條件語(yǔ)句更符合英語(yǔ)的語(yǔ)法,如果Then后面所跟的語(yǔ)句只有一條,可以寫(xiě)成:If 條件 Then 語(yǔ)句而不用End If .有時(shí)我們還會(huì)用到If 條件 Then語(yǔ)句Else語(yǔ)句End If更可以在Else里在嵌套If語(yǔ)句,如：If 條件 Then語(yǔ)句Else If語(yǔ)句Else語(yǔ)句End

19、 If所有這些可以用一個(gè)表格表示：條件1TrueFalse語(yǔ)條件2TrueFalse句1語(yǔ)句2條彳3TrueFalse1 條件NTrueFalse語(yǔ)句N(xiāo)語(yǔ)句N(xiāo)+ 1用了過(guò)多的Else后你會(huì)感到很不方便,而且程序結(jié)構(gòu)也不清楚,所以大多數(shù)的語(yǔ)言還有Select語(yǔ)句幫助解決這個(gè)問(wèn)題.VB里的Select語(yǔ)句的格式是這樣的：Select Case < 變量名 >Case < 情況 1>Case < 情況 2>Case < 情況 3>Case Else End Select例如：Select Case a%Case 1Print"a=Case 2

20、Print"a=PrintCase Elsea 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)完成,非常方便.C語(yǔ)言里有一個(gè)“ for 循環(huán)語(yǔ)句,VB里也有“For關(guān)鍵字,作用也差不多,只是 VB的“For語(yǔ)句更容易 理解.它的格式是：For 循環(huán)變量 =初賦值 To 終值 Step 步長(zhǎng)Next 循環(huán)變量在默認(rèn)情況下,Step被設(shè)為“ 1,可以省略,Step也可以設(shè)

21、為負(fù)值,例如：Dim a=For I=1 To 10 a=Next I這是一個(gè)最簡(jiǎn)單的累加器的例子,把 1到10累加在一起,然后賦值給“ a這樣的效果和上面是一樣的,只 不過(guò)是倒著加罷了,請(qǐng)看：Dim a=For I=10 To 1 Step 1 a=Next IWhile語(yǔ)句也是一個(gè)很常用的循環(huán)語(yǔ)句,它的形式很多.? Do While Loop 語(yǔ)句? WhileWend語(yǔ)句? Do LoopWhileWhile后面都跟邏輯條件判斷,"Do While Loop語(yǔ)句"和"While Wend語(yǔ)句作用相似,都是先判斷While后面的條件是否為“真,如果為“真那么執(zhí)

22、行里面的語(yǔ)句,如果為“假,那么退出循環(huán),循 環(huán)直至條件為“假終止." DoLoop While 與前兩者的區(qū)別在于,它不管條件的真假,都會(huì)先執(zhí)行 “Do后面的語(yǔ)句,也就是說(shuō),它至少執(zhí)行語(yǔ)句一次.與While用法相似的還有 Until語(yǔ)句,它是直至條件為真那么終止循環(huán),句式把 While上述三個(gè)語(yǔ)句的 While 換成Until即可,但是由于容易記混,所以我建議只用While即可.Until < 條件 >可以相當(dāng)于 While Not <條件>.For循環(huán)和Whlie循環(huán)應(yīng)當(dāng)根據(jù)適當(dāng)?shù)沫h(huán)境使用,它們有時(shí)也可替換.六、運(yùn)算操作1 .數(shù)學(xué)運(yùn)算?+：加法運(yùn)算,也適合于

23、字符串的之間的合并運(yùn)算.?-：加法運(yùn)算.?*：乘法運(yùn)算.? I：除法運(yùn)算.?:整除運(yùn)算.? Mod ：求余運(yùn)算.例如：a Mod b表示a被b整除以后的余數(shù).?人：嘉運(yùn)算.AAB表示以A為底的B次方.2 .關(guān)系運(yùn)算關(guān)系運(yùn)算也稱(chēng)比擬運(yùn)算,它表示不等式的真或假,VB共提供六種運(yùn)算符,分別是 =3 .邏輯運(yùn)算邏輯運(yùn)算是對(duì)真或假的運(yùn)算,我將列表說(shuō)明：ABNot A非And與Or或Xor異或Eqv相等Imp蘊(yùn)含TTFTTFTTTFFFTTFFFTTFTTFTFFTFFFTTTTrue FFalse七、數(shù)據(jù)與定義本標(biāo)題的內(nèi)容已經(jīng)在上一章向大家詳述過(guò),在這里就不再重復(fù).八、函數(shù)與過(guò)程函數(shù)與過(guò)程有許多相似的地

24、方,它們之間最大也是最本質(zhì)的區(qū)別就在于,函數(shù)有一個(gè)返回值,而過(guò)程只是執(zhí)行一系列動(dòng)作,所以可以簡(jiǎn)單的把函數(shù)理解成為一個(gè)變量,而VB中的每個(gè)事件都是一個(gè)過(guò)程,比方Command1_Click就是一個(gè)過(guò)程.由于在程序設(shè)計(jì)中經(jīng)常會(huì)有重復(fù)的地方,所以把它做成一個(gè)函數(shù)或一個(gè)過(guò)程,在使用時(shí)進(jìn)行調(diào)用,可以節(jié)省 大量的輸入代碼的時(shí)間,而且使用函數(shù)和過(guò)程也便于程序的結(jié)構(gòu)化和修改查看.函數(shù)和過(guò)程都可以有參數(shù), 也可以沒(méi)有參數(shù).關(guān)于函數(shù)和過(guò)程將在以后的章中配合實(shí)例講解,請(qǐng)您繼續(xù)VB教程.1.4 4-1第四章按鈕一從本章開(kāi)始我們將正式進(jìn)入 VB的編程世界,但這還僅僅是個(gè)開(kāi)端,要編出功 能強(qiáng)大的軟件,還要學(xué)很多東西,那就

25、要看以后的 VB高級(jí)教程了,我也得努力學(xué) ?。“粹o是我們?cè)?Windows操作見(jiàn)到最多的控件,它們有著各種各樣的功能：“確 認(rèn)、“取消、“下一步等等,這些都是按鈕的表現(xiàn),另外還有很多圖形話 的按鈕,其實(shí)它們并沒(méi)什么不同,所有的按鈕都是通過(guò)單擊click 事件實(shí)現(xiàn)的, 只不過(guò)是在外表不同罷了.下面就讓我們建立一個(gè)最簡(jiǎn)單的按鈕,雙擊工具箱的 CommandButton將在窗體上建立一個(gè)形如圖 41的按鈕,它的缺省名(NameH性)為Command 1我們可以把它改名為cmdExit,把Caption屬性設(shè)為“退出,然后雙 擊,按鈕填寫(xiě)代碼：Private Sub cmdExit_Click()Un

26、load MeEnd Sub按下F5或者工具條上的播放按鈕,運(yùn)行程序.圖 4-2當(dāng)你按下退出按鈕的 時(shí)候,就會(huì)自動(dòng)退出程序,原因是當(dāng)你單擊按鈕時(shí)激活了它的 Click事件,執(zhí)行 “Unload Me語(yǔ)句,使得窗體被卸載.上面舉了一個(gè)比擬簡(jiǎn)單的例子,下面的例子稍微復(fù)雜些:新建窗體,控件布局如圖4 3所示,包括一個(gè)List控件,一個(gè)Text控件和 兩個(gè)按鈕Command和Command2 ,比擬簡(jiǎn)單的程序我們都采用缺省名,對(duì)它們屬性做如下修改：List1Caption = "請(qǐng)輸入你的名字Text1Text = "" 空字符串Button1Caption ="

27、;復(fù)原"Enabled = FalseButton2Caption="去除"把使用Buttonl的Enabled屬性設(shè)為False 假,是使程序在初始時(shí),無(wú)法 單擊Command 1按F5,運(yùn)行程序,圖4- 4,復(fù)原按鈕成為灰色,不可選.當(dāng)然現(xiàn)在程序還什么也不能做,下面我們?cè)诔绦蛑刑砑哟a：首先在General里聲明全局變量：Dim StoreString As String '用來(lái)儲(chǔ)存字符串注意：為什么用全局變量？VB里每一個(gè)小過(guò)程都相當(dāng)于一個(gè)程序,程序里的變量稱(chēng)為局部變量,是只能在程 序內(nèi)部使用的,而當(dāng)程序調(diào)用結(jié)束后,由于從內(nèi)存中被去除,所以變量?jī)?chǔ)存的

28、值 也就消失了,這里的全局變量是用來(lái)在過(guò)程中傳遞字符串.接著填寫(xiě)以下代碼：Private Sub Command1_Click()Textl.Text = StoreStringCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()StoreString = Text1.TextText1.Text =消除Command1.Enabled = TrueEnd Sub運(yùn)行程序,如圖4 5.按下“去除,文本框被去除,按下“復(fù)原,文本 有被恢復(fù),許多程序中的Undo/Redo就是利用這個(gè)原理實(shí)現(xiàn)的,現(xiàn)在知道為什么 內(nèi)存越多越好了吧.我們

29、在把程序修改一下,把Button2刪除,Buttonl的Enabled屬性改為T(mén)rue, Caption改為“去除,填寫(xiě)代碼：Private Sub Command1_Click()If Command1.Caption =" 去除"ThenStoreString = Text1.TextText1.Text =消除Command1.Caption ="復(fù)原"ElseText1.Text = StoreStringCommand1.Caption ="去除"End IfEnd Sub同樣可以上面的功能,但是卻少用了一個(gè)控件,控件使用少

30、的程序啟動(dòng)會(huì)快 些.下面的例子要更加復(fù)雜些,大家一定都用過(guò) Windows附件中的計(jì)算器,它是 一個(gè)標(biāo)準(zhǔn)的科學(xué)計(jì)算器,利用 VB我們也可以做到,只是沒(méi)有那么復(fù)雜,四那么運(yùn)算 而已.先建立一個(gè)新的工程文件,里面包含一個(gè) Forml的窗體.然后,添加控件,包括一個(gè)Text框Textl ,和17個(gè)按鈕,這17個(gè)按鈕使用的名稱(chēng)都是 Command 1 只是Index屬性不同,就好象一個(gè)數(shù)組,創(chuàng)立一組按鈕的方法是,先在窗體上建 立一個(gè)按鈕Command 1 ,然后在Commandl擊鼠標(biāo)右鍵,選擇復(fù)制Copy, 然后在窗體上任意部位擊右鍵,選擇粘貼Paste,系統(tǒng)會(huì)提示是否創(chuàng)立控件組, 選擇“是,重復(fù)上

31、面步驟,直至創(chuàng)立 17個(gè)按鈕為止.各控件屬性如下表：Text1BackColor = &H00C0FFFF&Text = " 0. Command1Index 016Index 09 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)行改變,可以在窗

32、體上按下鼠標(biāo),拖動(dòng),把多個(gè)控件 一起選定,然后對(duì)它們的共同屬性進(jìn)行修改.別看這個(gè)東西小,還費(fèi)了近我兩個(gè)小時(shí)呢,不覺(jué)大嘆手生,里面也有些地方 很繞彎子,我盡量解釋清楚.在編寫(xiě)程序之前,我們先往返憶一下計(jì)算器的使用.1 .按下數(shù)字鍵在液晶屏上會(huì)出現(xiàn)數(shù)字,這是最根本的功能.2 .第一次按下運(yùn)算鍵,再按下數(shù)字鍵,將重新輸入第二個(gè)數(shù)字,再次按下運(yùn)算鍵,將算 出前兩個(gè)數(shù)的結(jié)果,然后按下數(shù)字鍵,將又重新輸入新的數(shù)字.3 .輸入數(shù)字后,按下 等于鍵將仍輸出原來(lái)的數(shù)字,輸入運(yùn)算符和第二個(gè)數(shù)字后在按下 等于,將得到二者的結(jié)果.然后又重復(fù)第二、三步.4 .按下 去除,數(shù)據(jù)被全部去除.了解了這些,我們一步一步實(shí)現(xiàn).先

33、實(shí)現(xiàn)數(shù)據(jù)的輸入,請(qǐng)看代碼.與未創(chuàng)立組的控件相比,它的事件里多了 Index參數(shù),組里所有的對(duì)象都使 用同一個(gè)事件.先在General里聲明窗體級(jí)全局變量：Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判斷是否是數(shù)字開(kāi)頭由于Text1里是存放字符串的,所以要把輸入的數(shù)據(jù)進(jìn)行運(yùn)算,必須把字符型變量轉(zhuǎn)變?yōu)閷?shí)型變量,分別用 Num1 Num2f口 StrNum1、StrNum2進(jìn)行存放.在Form_Load事件里給變量初賦值：Num1 = 0Num2 = 0StrNum1 =&quo

34、t;"StrNum2 ="" FirstNum = True由于17個(gè)按鈕使用的是同一事件,所以我們用一個(gè) Select Case語(yǔ)句區(qū)分各 個(gè)按鈕,雙擊任意按鈕輸入代碼：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNuml = Str(Index)'實(shí)型轉(zhuǎn)字符型FirstNum = False '初賦值為假Else'非初賦值StrNum1 = StrNum1 + Str(Index)End IfText

35、1.Text = StrNum1 '顯示還有其他語(yǔ)句,等待插入End SelectEnd Sub運(yùn)行程序的話已經(jīng)可以輸入數(shù)據(jù),下面我們來(lái)處理小數(shù)點(diǎn).在General里聲明新的變量：Dim PointFlag As Boolean '判斷是否已有小數(shù)點(diǎn)我們知道小數(shù)點(diǎn)只能輸入一次,一個(gè)數(shù)據(jù)中不能有多個(gè)小數(shù)點(diǎn)存在,所以需要 個(gè)布爾變量做判斷.在Form Load里進(jìn)行初賦值：PointFlag = False在Comman的單擊事件里接著上面輸入新的代碼:Case 10If Not PointFlag Then '如果沒(méi)有小數(shù)點(diǎn)If FirstNum Then '如果

36、是第一個(gè)字符StrNum1 = "0."FirstNum = FalseElseStrNuml = StrNuml +End IfElse'已有小數(shù)點(diǎn)Exit Sub '那么退出單擊事件End IfPointFlag = TrueTextl.Text = StrNum11.5 4-2第四章按鈕二下面會(huì)復(fù)雜一些,我們先跳過(guò)等號(hào),而來(lái)處理四那么運(yùn)算:先在General里聲明新變量：Dim Runsign As Integer '儲(chǔ)存運(yùn)算符號(hào)Dim SignFlag As Boolean '判斷是否已有運(yùn)算符號(hào)然后在Form_Load中進(jìn)行初賦值：

37、Runsign = 0SignFlag = False在接下的Command1_Click中繼續(xù)輸入代碼：Case 12 To 15FirstNum = True '使下一次可以輸入新數(shù)據(jù)PointFlag = False'復(fù)原標(biāo)記值If SignFlag Then '前面已有運(yùn)算符未運(yùn)算Call RunElseSignFlag = TrueStrNum2 = StrNuml'把字符用1復(fù)制給字符串2StrNuml =""字符串1清空End IfRunsign = Index - 11'儲(chǔ)存鍵入的運(yùn)算符里面運(yùn)算的局部我用了一個(gè)過(guò)程,是

38、由于在按下等號(hào)時(shí)還會(huì)調(diào)用到運(yùn)算過(guò)程, 這樣可以減少代碼的輸入,也使程序便于瀏覽.建立過(guò)程( Procedure),可以在 General局部直接輸入,也可以通過(guò)菜單里的“ Add Procedure添加.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 / Nu

39、m2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2Text1.Text = StrNum2End Sub卜面是其余的代碼：在Command1_Click事件里,接著寫(xiě)Case 11If Not SignFlag ThenTextl.Text = StrNuml equal = Val(StrNum1) FirstNum = True PointFlag = FalseElseCall RunSignFlag = FalseEnd IfCase Else '去除按鈕Call ClearData里面又用到了一個(gè)ClearData過(guò)程,實(shí)際上就

40、是Form_Load里的變量初賦值,代 碼如下：Sub ClearData()Num1 = 0 Num2 = 0StrNum1 ="" StrNum2 ="" FirstNum = True PointFlag = False Runsign = 0 SignFlag = False Text1.Text = "0."End Sub這樣完整的程序就完成了,本章介紹了 VB的第一個(gè)控件一一按鈕,并且舉例,希 望你繼續(xù)看下一章一一菜單.下面給出完整的程序代碼：Dim Num1, Num2 As SingleDim StrNuml, Str

41、Num2 As StringDim FirstNum As BooleanDim PointFlag As BooleanDim Runsign As Integer 'Dim SignFlag As Boolean判斷是否是數(shù)字開(kāi)頭判斷是否已有小數(shù)點(diǎn)儲(chǔ)存運(yùn)算符號(hào)判斷是否已有運(yùn)算符號(hào)Sub ClearData()Num1 = 0Num2 = 0StrNum1 =""StrNum2 =""FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = FalseTextl.Text = "0.&

42、quot;End SubSub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1equal = Num1 + Num2Case 2equal = Num1 - Num2Case 3equal = Num1 * Num2Case 4equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2Text1.Text = StrNum2End SubPrivate Sub about_Click()MsgBox "Create by

43、周曉陽(yáng).1998/7/27", vbDefaultButtonl, "VB教程第四章范 例End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)FirstNum = FalseElseStrNum1 = StrNum1 + Str(Index)End IfText1.Text = StrNum1Case 10If Not PointFlag ThenIf FirstNum ThenStrNum1 =

44、"0."FirstNum = FalseElseStrNum1 = StrNum1 + "."End IfElseExit SubEnd IfPointFlag = True Textl.Text = StrNuml Case 12 To 15 FirstNum = True PointFlag = False '復(fù)原標(biāo)記值 If SignFlag Then Call RunElseSignFlag = TrueStrNum2 = StrNum1StrNum1 =""End IfRunsign = Index - 11 Cas

45、e 11If Not SignFlag Then Text1.Text = StrNum1 equal = Val(StrNum1) FirstNum = True PointFlag = False ElseCall RunSignFlag = FalseEnd IfCase ElseCall ClearDataEnd SelectEnd SubPrivate Sub Form_LoadCall ClearDataEnd Sub補(bǔ)充說(shuō)明按鈕還有兩個(gè)重要的屬性 Default 默認(rèn)屬性和Cancel 取消屬性,兩個(gè)屬性都以布爾賦值,把 Default 設(shè)為T(mén)rue,那么在按下回車(chē)鍵時(shí),不管焦點(diǎn)

46、處于何處,都會(huì)觸發(fā)該按鈕的Click事件,而當(dāng)Cancel屬性被設(shè)為T(mén)rue,在按下ESC鍵時(shí),該按鈕的Click屬性發(fā)生.下面舉個(gè)例子：建立一個(gè)新窗體和兩個(gè)按鈕,NameW性分別為cmdO窿口 cmdCancel,把前者的Default設(shè)為T(mén)rue ,后者的Cancel 設(shè)為T(mén)rue, Caption屬性分別為.0口 Cancel.如圖48.填寫(xiě)代碼后運(yùn)行：Private Sub cmdCancel_Click()MsgBox "Cancel 按鈕被按下",vbDefaultButtonl," 提示"End SubPrivate Sub cmdOK_C

47、lick()MsgBox "OK按鈕被按下", vbDefaultButton1," 提示"End Sub結(jié)果如圖4 9、4 10：快捷鍵大家一定都知道,在 VB如何實(shí)現(xiàn)呢.其實(shí)很簡(jiǎn)單,在剛剛的例子里在建立一個(gè)按鈕Command1把它的Caption屬性設(shè)為Click &ME如圖4-11,在M的下面有一條下劃線,運(yùn)行程序,當(dāng)你按下 Alt+M的時(shí)候就觸發(fā)了 Command1_Click 事件：Private Sub Command1_Click()MsgBox "Click ME 按鈕被按下", vbDefaultButton

48、1," 提示"End Sub據(jù)我所知,有許多用戶有使用快捷鍵的習(xí)慣,注意細(xì)節(jié)上的問(wèn)題能夠使將來(lái)你的程序得到更多人的欣賞,不 是嗎？1.6 5第五章菜單我們經(jīng)常在 Windows操作里遇到各種各樣的菜單,菜單的操作把各種命令結(jié)構(gòu)化、分分類(lèi)化,也節(jié)省了 命令所占的空間,從作用上來(lái)講,菜單類(lèi)似于按鈕,但它只有一個(gè)事件一一Click.VB作為Windows下的可視編程工具,菜單的設(shè)計(jì)當(dāng)然很容易實(shí)現(xiàn),VB3.0按下Ctrl+M , VB4.0以上的版本請(qǐng)按下Ctrl+E ,便可呼叫出菜設(shè)計(jì)的窗口,無(wú)論VB的版本,這個(gè)窗口的樣式是大同小異的,請(qǐng)見(jiàn)圖5-1前面說(shuō)過(guò),菜單相當(dāng)于簡(jiǎn)單的按鈕,

49、它有幾個(gè)屬性,其中的大局部我們都曾經(jīng)見(jiàn)過(guò),包括Name Caption、Index、Checked、Enabled> Visible、快捷鍵和熱鍵等等.其中 Name!必須的.下面請(qǐng)跟我一起設(shè)計(jì)第一個(gè) 菜單.首先在Caption添入"文件",NameJ “ mnuFile ",按下Next按鈕,這樣就建立了第一級(jí)菜單,注意 菜單設(shè)計(jì)窗口的左中有四個(gè)箭頭,按下向右的箭頭,出現(xiàn)了一排小點(diǎn),如圖5 2,在VB里這叫縮排,這樣就可以開(kāi)始建立第二級(jí)菜單.小知識(shí)：實(shí)際上我們?cè)谏罹椭薪?jīng)常用到縮排,寫(xiě)文章時(shí)開(kāi)頭要空兩格就是一種縮排,在編寫(xiě)程 序時(shí)更需要縮排,這樣使程序結(jié)構(gòu)

50、化,便于觀察,當(dāng)然菜單設(shè)計(jì)里的縮排有更多的用處.接著填寫(xiě)下一菜單項(xiàng),Caption為"新文件", Name為"mnuFileNeW ,按下 Next鍵.小知識(shí)：VB一共如許建立6級(jí)子菜單,如圖5-3,盡量不要建立這樣的菜單,要知道藏在越深處的菜單項(xiàng)越 難以被人發(fā)現(xiàn),一個(gè)友好的程序界面應(yīng)該讓用戶馬上找到需要的命令.接著重復(fù)以上步驟,創(chuàng)立以下三個(gè)菜單項(xiàng):Caption 保存Name mnuFileSaveLevel 1Caption 另存為Name mnuFileSaveAsLevel 1Caption 載入Name mnuFileLoadLevel 1我們?cè)诓藛卫镞€

51、經(jīng)?？吹桨巡煌?xiàng)分開(kāi)的分隔條,在VB里也很容易做到,把Caption設(shè)為“-"減號(hào),NameJ mnuBarK最后增加這個(gè)菜單條的最后一項(xiàng),Caption為"退出",NameJ mnuFileExit.現(xiàn)在可以退出菜單設(shè)計(jì)窗口,菜單如圖5 4.怎么樣,經(jīng)過(guò)幾章的學(xué)習(xí),是不是覺(jué)得Windows世界也不是那么神秘？也對(duì),也不對(duì).確實(shí),我們很輕易的實(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ì)

52、窗口,接著添加菜單.按下向左的箭頭,可以使菜單上升一級(jí), Level代表菜單的級(jí)別,根據(jù)下表添加新的菜單項(xiàng)：Caption 編輯Name mnuEditLevel 0Caption 剪切Name mnuEditCutLevel 1Short-Cut Ctrl+XCaption 復(fù)制Name mnuEditCopyLevel 1Short-Cut Ctrl+CCaption 粘貼Name mnuEditPasteLevel 1Short-Cut Ctrl+VCaption 關(guān)于Name mnuAboutLevel 0其中Short-Cut就是平常我們說(shuō)的熱鍵,你可以在菜單設(shè)計(jì)窗口中找到,設(shè)置一個(gè)

53、你需要的組合鍵,這樣不管窗口的焦點(diǎn)處于何處,菜單在第幾層,只要按下熱鍵,就相當(dāng)于調(diào)用了該項(xiàng)的Click事件.結(jié)果如圖5 5.從Win95以來(lái)程序里引入了鼠標(biāo)右鍵功能,使鼠標(biāo)有了更大的用處,在VB里我們也很容易實(shí)現(xiàn).翻開(kāi)Form_MouseDowri件,該事件有兩個(gè)參數(shù)：Button ,當(dāng)按下左鍵時(shí) Button返回1,當(dāng)按下右鍵時(shí)Button返回2, ; Shift ,是指在點(diǎn)擊鼠標(biāo)時(shí)按下的鍵盤(pán)鍵,如 Shift、Ctrl、Alt ,這些我們將在以后討論, 但很難防止在一章中不涉及到不該涉及的內(nèi)容,學(xué)習(xí)時(shí)有個(gè)大概的理解即可.下面在該事件里添加代碼效 果如圖56:Private Sub Form

54、_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub在上面的代碼中我們用到了PopupMenu方法,它的語(yǔ)法是：object.PopupMenu 菜單名,標(biāo)記,X坐標(biāo),丫坐標(biāo)標(biāo)記是用來(lái)說(shuō)明彈出菜單位于鼠標(biāo)指針位置的,它有三個(gè)值：vbPopupMenuLeftAlign位于鼠標(biāo)左vbPopupMenuRightAlign位于鼠標(biāo)右VbPopu

55、pMenuCenterAlign位于鼠標(biāo)中部X Y值可以用來(lái)制定菜單彈出的位置,可以省略.關(guān)于菜單的 Visible 、 Enabled等屬性請(qǐng)自己嘗試1.7 6-1第六章輸入一我們?yōu)槭裁匆O(shè)計(jì)計(jì)算機(jī)程序呢,當(dāng)然是為了計(jì)算機(jī)能為我們完成工作,但是要完成不同的任務(wù),我們 就必須對(duì)計(jì)算機(jī)下達(dá)命令,然后計(jì)算機(jī)在把信息返饋回來(lái)一一任務(wù)是否完成.以上就是所謂的人機(jī)對(duì)話或交 互功能,尤其是在 Windows操作里我們需要進(jìn)行更多的輸入工作,我們需要填寫(xiě)各種各樣的表格,設(shè)置程序 的重要參數(shù),把數(shù)據(jù)輸入給計(jì)算機(jī),再又它完成既定的工作就是今天我們本章要重點(diǎn)討論的問(wèn)題一一在VB中如何建立完整的輸入機(jī)制.在VB中提

56、供了一個(gè)函數(shù)InputBox能幫助我們建立一個(gè)最簡(jiǎn)單的輸入窗體,語(yǔ)法如下：InputBox prompt,title,default兒xpos兒ypos兒helpfile,context該函數(shù)返回一個(gè)字符串表達(dá)式,其參數(shù)含義為：“ 口表示可缺省prompt字符串表達(dá)式,最大長(zhǎng)度為1024字符,窗體上的提示局部.Title 字符串表達(dá)式,顯示標(biāo)題欄里的文本.Default 字符串表達(dá)式,窗體中文本框的缺省值.xpos, ypos數(shù)值表達(dá)式,以Twips為單位指定窗體出現(xiàn)在屏幕上的位置.helpfile 字符串表達(dá)式,是幫助文件的完整路徑.Context數(shù)值表達(dá)式,指定適合的幫助主題.可能你看了上面的說(shuō)明并不明白,那么下面我們就用Input語(yǔ)句完成一個(gè)最簡(jiǎn)單的程序.小知識(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ì)象里都是