會(huì)計(jì)學(xué)1Ch1VB程序設(shè)計(jì)概述2開(kāi)篇在注冊(cè)界面輸入學(xué)號(hào)、姓名、性別，點(diǎn)擊“注冊(cè)”按鈕，出現(xiàn)成功注冊(cè)頁(yè)面。點(diǎn)擊“返回注冊(cè)界面”按鈕，即返回“注冊(cè)界面”窗口。第1頁(yè)/共59頁(yè)3學(xué)習(xí)的主要內(nèi)容第1章VisualBasic程序設(shè)計(jì)概述第2章VisualBasic語(yǔ)言基礎(chǔ)第3章基本控制結(jié)構(gòu)第4章數(shù)組第5章過(guò)程第6章常用控件第2頁(yè)/共59頁(yè)4本章的主要內(nèi)容VisualBasic的發(fā)展與特點(diǎn)VisualBasic的集成開(kāi)發(fā)環(huán)境可視化編程的基本概念控件編寫(xiě)簡(jiǎn)單的VisualBasic應(yīng)用程序第3頁(yè)/共59頁(yè)51.1VisualBasic的發(fā)展與特點(diǎn)VisualBasic的發(fā)展過(guò)程BASIC是英文Beginner`sAll-purposeSymbolicInstructionCode（初學(xué)者通用符號(hào)指令代碼）的縮寫(xiě)。1991年，微軟公司推出了VB1.01992年，VB2.01993年，VB3.01995年，VB4.01997年，Windows開(kāi)發(fā)工具套件MicrosoftVisualStudio1.0，其中包括VB5.01998年，MicrosoftVisualStudio98，包含了VB6.0最新版本VB.NETDOS和Windows3.XWindows95、NT或更高第4頁(yè)/共59頁(yè)61.1VisualBasic的發(fā)展與特點(diǎn)VisualBasic的特點(diǎn)可視化的設(shè)計(jì)平臺(tái)Visual：指開(kāi)發(fā)圖形用戶(hù)界面（GUI）的方法事件驅(qū)動(dòng)的編程機(jī)制采用面向?qū)ο蟮脑O(shè)計(jì)方法結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言友好的VB集成開(kāi)發(fā)環(huán)境開(kāi)放的數(shù)據(jù)庫(kù)功能網(wǎng)絡(luò)支持充分利用Windows資源第5頁(yè)/共59頁(yè)71.2VisualBasic的集成開(kāi)發(fā)環(huán)境啟動(dòng)VisualBasic通過(guò)[開(kāi)始]菜單，[開(kāi)始]→[程序]→[MicrosoftVisualStudio6.0]→[MicrosoftVisualBasic6.0]；在桌面上創(chuàng)建VB快捷方式后，雙擊快捷圖標(biāo)；直接單擊某工程文件名，可先打開(kāi)VB，再打開(kāi)該工程；退出VisualBasic單擊關(guān)閉按鈕；雙擊控制菜單按鈕；執(zhí)行[文件]菜單的[退出]項(xiàng)；第6頁(yè)/共59頁(yè)81.2VisualBasic的集成開(kāi)發(fā)環(huán)境標(biāo)題欄窗體設(shè)計(jì)器菜單欄工具欄工程資源管理窗口屬性窗口窗體布局窗口控件工具箱第7頁(yè)/共59頁(yè)91.2VisualBasic的集成開(kāi)發(fā)環(huán)境應(yīng)用程序主窗口標(biāo)題欄菜單欄工具欄B、菜單欄包括11個(gè)下拉菜單C、工具欄——快速訪(fǎng)問(wèn)菜單命令的方法

工具欄的顯示和隱藏方法：

a“視圖”菜單—“工具欄”

b標(biāo)準(zhǔn)工具欄的右擊菜單A、標(biāo)題欄

VB的三種工作模式：設(shè)計(jì)（Design）運(yùn)行（Run）中斷（Break）模式【標(biāo)題欄中顯示該環(huán)境所處的模式】第8頁(yè)/共59頁(yè)10VB的三種工作模式（圖示）第9頁(yè)/共59頁(yè)111.2VisualBasic的集成開(kāi)發(fā)環(huán)境窗體設(shè)計(jì)器窗口又稱(chēng)對(duì)象窗口或窗體（Form），是進(jìn)行界面設(shè)計(jì)的窗口。工程中的每個(gè)窗體都有自己的窗體設(shè)計(jì)器窗口顯示視圖→對(duì)象窗口工程資源管理器窗口中的“查看對(duì)象”按鈕“Shift+F7”組合鍵第10頁(yè)/共59頁(yè)121.2VisualBasic的集成開(kāi)發(fā)環(huán)境工程資源管理器窗口分類(lèi)Name屬性存盤(pán)文件名常見(jiàn)文件及文件類(lèi)型-------------------------工程文件*.vbp窗體文件*.frm標(biāo)準(zhǔn)模塊文件*.bas類(lèi)模塊文件*.cls資源文件*.res用戶(hù)控件文件*.ctl屬性頁(yè)文件*.pag右擊一個(gè)VB應(yīng)用程序是由若干個(gè)不同類(lèi)型的文件組成的。工程就是這些文件的集合。工程文件列出了在創(chuàng)建該工程時(shí)所建立的所有文件的相關(guān)信息添加模塊第11頁(yè)/共59頁(yè)131.2VisualBasic的集成開(kāi)發(fā)環(huán)境工具箱窗口圖形框命令按鈕單選按鈕文本框列表框垂直滾動(dòng)條數(shù)據(jù)控制驅(qū)動(dòng)器列表框文件列表框?qū)ο箧溄优c嵌入直線(xiàn)圖像形狀目錄列表框時(shí)鐘組合框水平滾動(dòng)條復(fù)選框框架指針標(biāo)簽第12頁(yè)/共59頁(yè)141.2VisualBasic的集成開(kāi)發(fā)環(huán)境屬性窗口對(duì)象列表框?qū)傩院x說(shuō)明屬性列表框?qū)傩燥@示方式說(shuō)明：1.對(duì)象的大部分屬性是由系統(tǒng)決定的；2.不同對(duì)象的屬性集是不同的第13頁(yè)/共59頁(yè)151.2VisualBasic的集成開(kāi)發(fā)環(huán)境代碼窗口組成對(duì)象列表框過(guò)程列表框代碼編輯區(qū)全模塊查看按鈕斷點(diǎn)設(shè)置區(qū)過(guò)程查看按鈕第14頁(yè)/共59頁(yè)161.2VisualBasic的集成開(kāi)發(fā)環(huán)境代碼窗口打開(kāi)方式通過(guò)雙擊窗體上的對(duì)象；點(diǎn)擊工程資源管理窗口中“查看代碼”按鈕；“視圖”菜單“代碼窗口”；在窗體中單擊鼠標(biāo)右鍵，在快捷菜單中選擇“查看代碼”。第15頁(yè)/共59頁(yè)17雙擊這里雙擊這里法一法二選中對(duì)象單擊這個(gè)按鈕法三法四單擊鼠標(biāo)左鍵第16頁(yè)/共59頁(yè)181.2VisualBasic的集成開(kāi)發(fā)環(huán)境窗體布局窗口指定一個(gè)窗體運(yùn)行時(shí)在屏幕中的位置移動(dòng)窗體位置的方法：用鼠標(biāo)拖動(dòng)窗體到目的位置可通過(guò)屬性窗口中窗體的“top”和“l(fā)eft”屬性來(lái)設(shè)置第17頁(yè)/共59頁(yè)191.2VisualBasic的集成開(kāi)發(fā)環(huán)境立即窗口在中斷模式下可輸出運(yùn)行結(jié)果或查詢(xún)對(duì)象的值顯示“視圖”菜單“立即窗口”第18頁(yè)/共59頁(yè)201.3可視化編程的基本概念類(lèi)和對(duì)象工程的組成第19頁(yè)/共59頁(yè)211.3.1類(lèi)和對(duì)象類(lèi)－Class是對(duì)同一種對(duì)象的抽象，是對(duì)既具有共性又具有個(gè)性的同種對(duì)象中共性的提取。如：球體類(lèi)：不同大小和不同使用范圍的球（足球、排球、網(wǎng)球、乒乓球等）。共性：球表面每一點(diǎn)到球心的距離均相等。第20頁(yè)/共59頁(yè)221.3.1類(lèi)和對(duì)象對(duì)象－Object具有特殊屬性（數(shù)據(jù)）和行為方式（方法）的實(shí)體。各種不同的物體都可以看作是不同的對(duì)象。當(dāng)在窗體上畫(huà)一個(gè)控件時(shí)，就將類(lèi)轉(zhuǎn)換為對(duì)象，即創(chuàng)建了一個(gè)控件對(duì)象。如：一個(gè)人、一個(gè)氣球、一臺(tái)電腦等。某個(gè)窗體、按鈕、標(biāo)簽等。第21頁(yè)/共59頁(yè)231.3.1類(lèi)和對(duì)象屬性－Property一個(gè)對(duì)象的某個(gè)方面的特征，通過(guò)數(shù)據(jù)來(lái)描述。如：學(xué)生：姓名、學(xué)號(hào)、年齡、籍貫、所學(xué)專(zhuān)業(yè)、成績(jī)及興趣愛(ài)好等屬性。標(biāo)簽：Name、Caption、Left、Top、Width、Height等屬性。第22頁(yè)/共59頁(yè)241.3.1類(lèi)和對(duì)象方法－Method對(duì)象要執(zhí)行的某些特定動(dòng)作。調(diào)用格式[對(duì)象名稱(chēng).]方法名稱(chēng)[參數(shù)表]如：Form1.Cls省略對(duì)象名稱(chēng)，指當(dāng)前對(duì)象，一般指當(dāng)前窗體如：Print“VB程序設(shè)計(jì)”第23頁(yè)/共59頁(yè)251.3.1類(lèi)和對(duì)象事件－Event對(duì)象所要完成的任務(wù)，即對(duì)象響應(yīng)的動(dòng)作稱(chēng)為事件。每個(gè)對(duì)象都有一系列預(yù)先設(shè)置好的、能被對(duì)象識(shí)別的事件，每一種對(duì)象能識(shí)別的事件是不同的。與事件相關(guān)的要素發(fā)生事件的對(duì)象－Command1引發(fā)事件的動(dòng)作－Click觸發(fā)事件后執(zhí)行的事件過(guò)程代碼第24頁(yè)/共59頁(yè)261.3.1類(lèi)和對(duì)象事件過(guò)程事件過(guò)程是指附在該對(duì)象上的程序代碼，是事件的處理過(guò)程。事件過(guò)程的語(yǔ)法格式Sub對(duì)象名_事件名()

處理事件的程序代碼EndSub

第25頁(yè)/共59頁(yè)271.3.1類(lèi)和對(duì)象例如：命令按鈕Command1的單擊(Click)事件過(guò)程為：PrivateSubCommand1_Click()Form1.Caption="在窗體上畫(huà)圓"Form1.Circle(1200,1500),800′以圓心(1200，1500)，半徑為800畫(huà)圓EndSub事件驅(qū)動(dòng)在VB中，程序執(zhí)行后系統(tǒng)等待某個(gè)事件的發(fā)生，然后去執(zhí)行處理此事件的事件過(guò)程，待事件過(guò)程執(zhí)行完后，系統(tǒng)又處于等待某事件發(fā)生的狀態(tài)，這就是事件驅(qū)動(dòng)程序設(shè)計(jì)方式。第26頁(yè)/共59頁(yè)28類(lèi)人氣球窗體對(duì)象名張三氣球1Form1屬性姓名性別年齡學(xué)歷色彩大小重量材料大小名稱(chēng)標(biāo)題顏色方法呼吸哭笑爆破飛顯示隱藏事件

挨打表?yè)P(yáng)針刺充氣單擊雙擊1.3.1類(lèi)和對(duì)象綜合舉例第27頁(yè)/共59頁(yè)291.3.2工程的組成VB把用來(lái)構(gòu)造一個(gè)應(yīng)用程序的所有相關(guān)文件稱(chēng)為一個(gè)工程(Project)。一個(gè)工程通常包括以下幾類(lèi)文件：工程文件(.vbp)一個(gè)工程只有一個(gè)工程文件，它管理著該工程的所有部件，是與該工程有關(guān)的全部文件和對(duì)象的清單。窗體模塊文件(.frm)

VB中，每個(gè)窗體對(duì)應(yīng)一個(gè)窗體模塊，窗體模塊保存在擴(kuò)展名為.frm的文件中。

二進(jìn)制窗體文件(.frx)如果一個(gè)窗體中包括了圖片等二進(jìn)制信息，則會(huì)產(chǎn)生一個(gè)與窗體.frm文件同文件名的.frx文件。第28頁(yè)/共59頁(yè)301.3.2工程的組成標(biāo)準(zhǔn)模塊文件(.bas)

可以包含全局或模塊級(jí)的變量、常數(shù)、類(lèi)型，外部過(guò)程和全局過(guò)程的全局聲明或模塊級(jí)聲明。類(lèi)模塊文件(.cls)用戶(hù)可以在類(lèi)模塊中編寫(xiě)代碼建立新對(duì)象。資源文件(.res)是可選的，包含有不必重新編輯代碼就可以改變的位圖、字符串和其他數(shù)據(jù)。

ActiveX控件的文件(.ocx)可以添加到工具箱并在窗體中使用第29頁(yè)/共59頁(yè)311.4控件控件的分類(lèi)控件的畫(huà)法和基本操作窗體和控件的基本屬性幾個(gè)基本控件第30頁(yè)/共59頁(yè)321.4.1控件的分類(lèi)標(biāo)準(zhǔn)控件又稱(chēng)為內(nèi)部控件，由VB的可執(zhí)行文件提供，啟動(dòng)后出現(xiàn)在工具箱中，既不能添加，也不能刪除。標(biāo)簽，按鈕，文本框等。Active控件擴(kuò)展名為.ocx的獨(dú)立文件，又稱(chēng)為OLE控件或定制控件。在工具箱上單擊鼠標(biāo)右鍵，選擇“部件”命令?？刹迦雽?duì)象可添加到工具箱中的對(duì)象，當(dāng)作控件使用。第31頁(yè)/共59頁(yè)331.4.2控件的畫(huà)法和基本操作控件的畫(huà)法單擊工具箱中要添加的控件，把光標(biāo)稱(chēng)到窗體上，光標(biāo)變成“+”將其定位，按下鼠標(biāo)左鍵并向右下角拖動(dòng)鼠標(biāo)。若要畫(huà)多個(gè)相同類(lèi)型的控件，可按著Ctrl鍵同時(shí)單擊工具箱中控件。直接雙擊工具箱中要添加控件圖標(biāo)，在窗體中央出現(xiàn)位置和大小固定的控件。第32頁(yè)/共59頁(yè)341.4.2控件的畫(huà)法和基本操作控件的基本操作控件的移動(dòng)和縮放移動(dòng)：移動(dòng)鼠標(biāo)到控件上，按住鼠標(biāo)左鍵同時(shí)拖動(dòng)鼠標(biāo)到目標(biāo)位置?？s放：選中控件后，用鼠標(biāo)拖動(dòng)8個(gè)小黑方塊中相應(yīng)一塊控件的復(fù)制和刪除把控件變?yōu)榛顒?dòng)控件執(zhí)行“編輯”菜單中的“復(fù)制”、“粘貼”命令按Del鍵第33頁(yè)/共59頁(yè)351.4.2控件的畫(huà)法和基本操作通過(guò)屬性窗口改變控件的位置和大小有4種屬性與窗體及控件的大小和位置有關(guān)，即Width、Height、Top、Left。窗體左上角為坐標(biāo)原點(diǎn)TopLeftHeightWidth第34頁(yè)/共59頁(yè)361.4.2控件的畫(huà)法和基本操作控件的選擇單個(gè)控件：直接用鼠標(biāo)單擊該控件多個(gè)控件按住Shift鍵同時(shí)用鼠標(biāo)分別單擊要選中的控件用鼠標(biāo)左鍵在窗體中拖動(dòng)出一個(gè)虛線(xiàn)的矩形區(qū)域第35頁(yè)/共59頁(yè)371.4.3窗體和控件的基本屬性Name(名稱(chēng))屬性該屬性是所有控件都具有的屬性，Name屬性只能通過(guò)屬性窗口更改。Name屬性必須以字母開(kāi)頭，可以包含字母、數(shù)字和下劃線(xiàn)，但不能包含標(biāo)點(diǎn)符號(hào)和空格。

Caption（標(biāo)題）屬性該屬性的值決定了控件上顯示的內(nèi)容。

Enabled屬性該屬性決定程序運(yùn)行時(shí)，控件是否響應(yīng)用戶(hù)的鼠標(biāo)或鍵盤(pán)操作。

第36頁(yè)/共59頁(yè)381.4.3窗體和控件的基本屬性Visible屬性該屬性決定程序運(yùn)行時(shí)控件是否可見(jiàn)。

Left屬性、Top屬性這兩個(gè)屬性決定了窗體在屏幕上的位置。Width屬性、Height屬性這兩個(gè)屬性值表示控件的大小。Font屬性該屬性用來(lái)改變文本的外觀。FontName(字體)；FontSize(字體大小)FontBold、FontItalic、FontStrikethru、FontUnderline。第37頁(yè)/共59頁(yè)391.4.3窗體和控件的基本屬性Alignment屬性該屬性用于確定控件上對(duì)齊方式。其屬性值有：0——LeftJustify：顯示的文本信息左對(duì)齊，缺省設(shè)置。1——RightJustify：顯示的文本信息右對(duì)齊。2——Center：顯示的文本信息居中。AutoSize屬性-Label該屬性決定控件是否能夠自動(dòng)調(diào)整大小。

WordWrap屬性-Label只有當(dāng)AutoSize屬性設(shè)置為T(mén)rue時(shí)，該屬性才有效。其屬性值有：True：表示垂直擴(kuò)展，顯示正文換行。False：表示水平擴(kuò)展，顯示文字不換行，缺省設(shè)置。第38頁(yè)/共59頁(yè)401.4.3窗體和控件的基本屬性TabIndex屬性該屬性用來(lái)決定在按Tab鍵時(shí)，焦點(diǎn)在各個(gè)控件移動(dòng)的順序。焦點(diǎn)表示在任何時(shí)間控件接收用戶(hù)鼠標(biāo)單擊或鍵盤(pán)輸入的能力。只有當(dāng)控件具有焦點(diǎn)時(shí)，才具有接收鼠標(biāo)單擊或鍵盤(pán)輸入的能力。默認(rèn)第一個(gè)建立的控件的TabIndex值為0，第二個(gè)為1，依次類(lèi)推。控件默認(rèn)屬性VB中把反映某個(gè)控件最重要的屬性稱(chēng)為該控件屬性的值或默認(rèn)屬性。第39頁(yè)/共59頁(yè)411.4.3窗體和控件的基本屬性控件值控件值文本框Text單選框Value標(biāo)簽Caption復(fù)選框Value圖形、圖像框Picture例如：有某標(biāo)簽Name屬性為L(zhǎng)abel1，其Caption屬性值為L(zhǎng)abel1，若要改變Caption的屬性值為“area”，下面兩條語(yǔ)句是等價(jià)的：Label1="area"Label1.Caption="area"表1.2部分控件默認(rèn)屬性第40頁(yè)/共59頁(yè)421.4.4幾個(gè)基本控件標(biāo)簽主要用來(lái)顯示或輸出文本信息，但不能用來(lái)輸入信息。標(biāo)簽的屬性標(biāo)簽最主要的屬性有：Caption、Font、Left、Top、BorderStyle、BackStyle等。標(biāo)簽的方法與事件標(biāo)簽具有Move方法，也能夠響應(yīng)Click（單擊）或DblClick（雙擊）事件。第41頁(yè)/共59頁(yè)431.4.4幾個(gè)基本控件文本框文本框(Text)是一個(gè)文本編輯區(qū)域，可在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。(1)文本框的屬性基本屬性Name、Enable、Visible、Left、Top、Height、Width、Alignment、ForeColor、BackColor、Font等。Text屬性正文內(nèi)容存放在Text屬性中。程序執(zhí)行時(shí)，通過(guò)鍵盤(pán)輸入、編輯正文。第42頁(yè)/共59頁(yè)441.4.4幾個(gè)基本控件MaxLength屬性該屬性指明文本框中能夠輸入的正文內(nèi)容的最大長(zhǎng)度。說(shuō)明：在VisualBasic中字符長(zhǎng)度以字為單位，也就是一個(gè)西文字符與一個(gè)中文字符都是一個(gè)字，長(zhǎng)度為1，占兩個(gè)字節(jié)。MultiLine屬性該屬性決定是否支持文本框的多行顯示。

ScrollBars屬性該屬性決定文本框是否有垂直或水平滾動(dòng)條。第43頁(yè)/共59頁(yè)451.4.4幾個(gè)基本控件PasswordChar屬性用來(lái)設(shè)置密碼，如“*”，MultiLine值為False起作用。Locked屬性指定文本框是否允許被編輯。TabStop屬性用來(lái)決定控件是否允許焦點(diǎn)停留。第44頁(yè)/共59頁(yè)461.4.4幾個(gè)基本控件SelStart、SelLength、SelText屬性SelStart：確定選定正文的開(kāi)始位置，第一個(gè)字符的位置為0，依此類(lèi)推。SelLength：確定選定的正文長(zhǎng)度。SelText：確定選定的正文內(nèi)容。Text1.SetFocus‘將焦點(diǎn)定位在文本框中Text1.SelStart=0‘設(shè)置選擇文本的起點(diǎn)為第1個(gè)字符Text1.SelLength=3‘設(shè)置選擇文本的長(zhǎng)度為3個(gè)字符PrintText1.SetText‘將選擇文本打印在窗體上第45頁(yè)/共59頁(yè)471.4.4幾個(gè)基本控件(2)文本框的方法文本框最有用的方法是SetFocus格式：[Object.]SetFocus例如：Text1.SetFocus第46頁(yè)/共59頁(yè)482.1文本框控件-TextBox(3)常用事件Change：文本框中內(nèi)容發(fā)生改變時(shí)觸發(fā)。該事件中應(yīng)避免修改自身內(nèi)容。GotFocus、LostFocusKeyPress：在鍵盤(pán)上按下某個(gè)可打印字符鍵時(shí)觸發(fā)。返回一個(gè)參數(shù)KeyAscii，整型，表示按下鍵的ASCII碼值。PrivateSubText1_Change()PrintText1.TextEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)PrintKeyAscii,Chr(KeyAscii)EndSubAABABCABCD115（列）65A66B67C68D第47頁(yè)/共59頁(yè)491.4.4幾個(gè)基本控件命令按鈕命令按鈕的基本屬性Name、Enable、Visible、Left、Top、Height、Width、Picture、BackColor、ForeColor、Font、TabIndex和TabStop。Caption：命令按鈕的標(biāo)題。在字符前加一個(gè)“&”符號(hào)，該字符就會(huì)帶有一個(gè)下劃線(xiàn)，成為訪(fǎng)問(wèn)鍵。運(yùn)行時(shí)，同時(shí)按下Alt鍵和帶下劃線(xiàn)的字符相當(dāng)于單擊該按鈕。第48頁(yè)/共59頁(yè)501.4.4幾個(gè)基本控件Value：該屬性只能在程序運(yùn)行期間使用。設(shè)置為T(mén)rue表示該命令按鈕被按下。Default：指定該命令按鈕是否為窗體的缺省按鈕。設(shè)置為T(mén)rue，按Enter鍵相當(dāng)于單擊該按鈕。Cancel：指定該命令按鈕是否為窗體的缺省取消按鈕。設(shè)置為T(mén)rue，按Esc鍵相當(dāng)于單擊該按鈕。說(shuō)明：確實(shí)有“確定”或“取消”意義的命令按鈕，才應(yīng)該設(shè)置Default和Cancel屬性。第49頁(yè)/共59頁(yè)511.4.4幾個(gè)基本控件Style：命令按鈕樣式。0-Standard(缺省值)—不能顯示圖形或設(shè)置顏色1-Graphical—可以顯示圖形或設(shè)置顏色ToolTipText：設(shè)置按鈕的提示信息。與Picture屬性配合使用。若命令按鈕僅有圖形顯示時(shí)，可設(shè)置該屬性以較少文字說(shuō)明該命令按鈕作用。第50頁(yè)/共59頁(yè)521.5編寫(xiě)簡(jiǎn)單VisualBasic應(yīng)用程序設(shè)計(jì)VB應(yīng)用程序的步驟簡(jiǎn)單VB應(yīng)用程序舉例編碼規(guī)則第51頁(yè)/共59頁(yè)531.5.1設(shè)計(jì)VB應(yīng)用程序的步驟