visualbasic語(yǔ)言程序設(shè)計(jì) - 1

1、VisualBasic 程序設(shè)計(jì),主 講：洪　慧　華 Email: Hong_qz_zj@163.com Tel: 3026218,學(xué)習(xí)資源：1. 中央電大在線( http://www.open.edu.cn )2. 浙江電大( http://www.zjtvu.edu.cn )(1) 計(jì)算機(jī)科學(xué)與技術(shù)系－＞動(dòng)態(tài)教學(xué)資源(2) 開(kāi)放教育學(xué)院－＞ 網(wǎng)上學(xué)習(xí) 3. 衢州電大( ht

2、tp://www.qzdd.com )　課程主頁(yè)作業(yè)要求：  12月19日前交。 手寫(xiě) (復(fù)印無(wú)效)。,教學(xué)內(nèi)容進(jìn)度安排,第一章 可視化編程理論概述,教學(xué)內(nèi)容 1．可視化編程方法實(shí)例　　2．VB集成開(kāi)發(fā)環(huán)境介紹　　3．幾種流行的可視化編程工具比較　　4．面向?qū)ο蟮母拍?1．可視化編程方法實(shí)例,加法應(yīng)用程序演示　標(biāo)簽的標(biāo)題屬性 ( Caption )　文本框的標(biāo)題屬性 ( Text )可視化(

3、 Visual )編程語(yǔ)言特點(diǎn)：基于面向?qū)ο蟮乃枷?，引入控件的概念和事件?qū)動(dòng)程序開(kāi)發(fā)一般步驟：　界面繪制－>設(shè)置屬性－>編寫(xiě)代碼－>運(yùn)行,2．VB集成開(kāi)發(fā)環(huán)境介紹,VB應(yīng)用程序( 工程 )文件類(lèi)型,工程文件( .vbp )窗體文件( .frm )窗體二進(jìn)制數(shù)據(jù)文件( .frx )類(lèi)模塊文件( .cls )標(biāo)準(zhǔn)模塊文件( .bas )ActiveX控件文件( .ocx )資源文件( .res ),3．幾

4、種流行的可視化編程工具比較,基于控件開(kāi)發(fā)開(kāi)發(fā)能力數(shù)據(jù)庫(kù)支持,4．面向?qū)ο蟮母拍?面向?qū)ο笈c結(jié)構(gòu)化程序設(shè)計(jì)比較　最大區(qū)別:　　面向?qū)ο箨P(guān)于處理數(shù)據(jù)　　結(jié)構(gòu)化程序設(shè)計(jì)關(guān)于功能面向?qū)ο笾饕拍睿≒15）　類(lèi)　對(duì)象　消息　合作面向?qū)ο缶幊谭椒ㄋ膫€(gè)基本機(jī)制抽象: 只考慮主要部分，不關(guān)心細(xì)節(jié)的思維方式繼承: 聯(lián)結(jié)類(lèi)的層次模型，類(lèi)的繼承分基類(lèi)、派生類(lèi)封裝: 把過(guò)程和數(shù)據(jù)包圍起來(lái)多態(tài)性: 不同類(lèi)的對(duì)象對(duì)同一消息可能作出不同的

5、響應(yīng),第二章　VB可視化編程初步,教學(xué)內(nèi)容　　1．創(chuàng)建一個(gè)應(yīng)用程序：時(shí)鐘程序　　2．窗體及基本控件　　3．事件以及事件過(guò)程　　4．時(shí)鐘程序的拓展應(yīng)用,1．時(shí)鐘程序,Label的AutoSize屬性 (標(biāo)題內(nèi)容自動(dòng)調(diào)整尺寸)Text的Aligment屬性 (對(duì)齊方式)Timer的Interval屬性 (設(shè)置計(jì)時(shí)事件－Timer事件發(fā)生的時(shí)間間隔，以毫秒為單位)Enabled屬性 (可用性)Visible屬性 (可見(jiàn)性)

6、MsgBox消息框,VB應(yīng)用程序開(kāi)發(fā)的一般步驟,設(shè)計(jì)應(yīng)用程序界面設(shè)置對(duì)象屬性編寫(xiě)代碼保存和運(yùn)行工程編譯與打包安裝運(yùn)行,VB 變量的定義(Dim),dim 變量[類(lèi)型說(shuō)明符] [as 類(lèi)型名稱(chēng)] 定義的變量屬局部區(qū)域(模塊或過(guò)程)中 變量的類(lèi)型取決于緊跟其后的as子句或類(lèi)型說(shuō)明符 如：dim x as Integer 與 dim x% 等價(jià)，都是將x定義為整型 dim x 是將x定義

7、為可變類(lèi)型 dim i，j，k as Integer 是將k定義為整型，i，j定義為可變類(lèi)型,VB 變量的定義(Private/Static/Public),private 變量[類(lèi)型說(shuō)明符] [as 類(lèi)型名稱(chēng)]定義的變量屬模塊級(jí)，不能在過(guò)程范圍內(nèi)聲明static 變量[類(lèi)型說(shuō)明符] [as 類(lèi)型名稱(chēng)] 定義的變量屬靜態(tài)變量，只能在過(guò)程范圍內(nèi)聲明，在運(yùn)行期間一直存在public/global 變量[類(lèi)型說(shuō)明符] [

8、as 類(lèi)型名稱(chēng)] 定義的變量屬全局變量，只能在標(biāo)準(zhǔn)模塊中聲明）,,賦值語(yǔ)句,變量名＝表達(dá)式對(duì)象名.屬性名＝表達(dá)式,消息對(duì)話框: MsgBox,函數(shù) 變量=MsgBox(提示信息，對(duì)話框類(lèi)型，對(duì)話框標(biāo)題)命令 MsgBox 提示信息，對(duì)話框類(lèi)型，對(duì)話框標(biāo)題,按紐類(lèi)型＋圖標(biāo)類(lèi)型＋默認(rèn)按紐位置,MsgBox 示例,msgbox "你確定要退出嗎？",vbYesNo +vbQuestion ,"退

9、出系統(tǒng)",msgbox “系統(tǒng)發(fā)生故障”, 2+16+512 ,"錯(cuò)誤",msgbox "用戶身份確定失?。≌?qǐng)退出。",vbExclamation ,"警告",2．窗體及基本控件－對(duì)象/屬性,對(duì)象:代碼和數(shù)據(jù)的封裝體。VB對(duì)象包括窗體和基本控件兩大類(lèi)。屬性:對(duì)象的基本特性。VB對(duì)象常用屬性有： Name(名稱(chēng))、Caption(標(biāo)題)、Text(文本框標(biāo)題)

10、; Visible(可見(jiàn)性)、Enabled(可用性); Height(高度)、Width(寬度); Top(距頂端)、Left(距左邊);Backcolor(背景色)、Forecolor(前景色);Font(字體)屬性設(shè)置： 界面設(shè)計(jì)階段：在屬性窗口中設(shè)置代碼設(shè)計(jì)階段：對(duì)象名.屬性名＝屬性值,2．窗體及基本控件－方法/事件,方法: 要執(zhí)行的動(dòng)作，在對(duì)象上實(shí)施的操作功能。如:　　　　Move、Show、Print、Cls

11、…… 調(diào)用格式: 對(duì)象名.方法事件:在對(duì)象上所發(fā)生的事情。如: Click、DblClick、Load、Change、MouseDown……　　調(diào)用格式:　　Private Sub 控件名＿事件名（） … End Sub Private Sub Form＿事件名（） … End Sub,,控件事件過(guò)程格式

12、,窗體事件過(guò)程格式,,,2．窗體及基本控件－窗體( Form ),基本屬性: MaxButton/MinButton 、BorderStyle(0—5)、Picture 、Icon 、WindowsState、Moveable 常用方法: Show、 Hide、 Print、 Cls、 Move、Line ( 畫(huà)線 ) 、Circle ( 畫(huà)圓 )　　line (x1,y1)－(x2,y2) , 顏色值 , BF

13、circle (圓心坐標(biāo)) , 半徑 , 顏色值 , 起始弧度 , 終止弧度常用事件: 　　Click 、 DblClick 、 Load 、 Unload 、Activate 、DeActivate 、MouseDown ( 對(duì)窗體按下鼠標(biāo)時(shí)觸發(fā) ) 、MouseUp ( 對(duì)窗體按下鼠標(biāo)彈起時(shí)觸發(fā) )、Paint ( 當(dāng)窗體移動(dòng)、放大或遮蓋窗體的窗口移走時(shí)觸發(fā) ) 、DragOver ( 拖動(dòng)窗體時(shí)觸發(fā) ) 、Resize (

14、改變窗體大小時(shí)觸發(fā) ),2．窗體及基本控件 － 命令按紐 (Command ),基本屬性: Default /Cancel(True-False)、Style(0-1)/Picture 常用方法: SetFocus常用事件: Click 、DblClick,2．窗體及基本控件 －標(biāo)簽 ( Label ),基本

15、屬性: AutoSize (True-False) 、Alignment(0-2)、BorderStyle(0-1)、BackStyle(0-1)、 WordWrap (True-False)常用方法: 標(biāo)簽名.Move Left,Top,Width,Height常用事件: Click 、DblClick,2．窗體及基本控件

16、 －文本框 ( Text ),基本屬性: Text、PasswordChar、ScrollBars(0-3)、Locked、 Multiline、ToolTipText、常用方法: SetFocus常用事件: Change 、KeyPress、LostFocus、GotFocus　　　Keypress事件：用于截獲在文本框/ 組合框中輸入的按鍵；　　　Sub 控

17、件名_KeyPress ([index as integer,] keyascii as integer ) 　　　參數(shù)：　　　　index: 當(dāng)控件是控件數(shù)組中的一個(gè)元素時(shí)，index代表在數(shù)組是索引值，即下標(biāo)　　　　keyascii: 返回標(biāo)準(zhǔn)的ASCII鍵碼,標(biāo)簽與文本框的區(qū)別,標(biāo)簽不能編輯、不具備焦點(diǎn)，而文本框有；標(biāo)簽特有BackStyle屬性（背景是否透明），而文本框無(wú)；標(biāo)簽一般用來(lái)顯示提示信息，而文本框常用于接受信

18、息(當(dāng)然也可用于顯示)；文本框特有Text屬性，而標(biāo)簽等控件對(duì)應(yīng)的屬性為Caption。,2．窗體及基本控件 －計(jì)時(shí)器 (Timer),基本屬性: Interval（毫秒）、Enabled　　關(guān)閉計(jì)時(shí)器　　 Interval＝0　或　Enabled＝False常用事件: Timer,3．事件以及事件過(guò)程,事件驅(qū)動(dòng)程序設(shè)計(jì): 程序的執(zhí)行是在響應(yīng)不同的事

19、件時(shí)執(zhí)行不同的代碼片段。VB通過(guò)讓對(duì)象響應(yīng)事件時(shí)，由事件驅(qū)動(dòng)程序執(zhí)行VB代碼。事件驅(qū)動(dòng)的工作過(guò)程: 運(yùn)行程序－＞系統(tǒng)等待－＞發(fā)生事件－＞驅(qū)動(dòng)執(zhí)行程序代碼－＞等待下一個(gè)事件發(fā)生……,4．時(shí)鐘程序的拓展應(yīng)用,,Formate : 格式化函數(shù),第三章  應(yīng)用程序接口設(shè)計(jì)及代碼編寫(xiě),教學(xué)內(nèi)容1. “簡(jiǎn)單的計(jì)算器”應(yīng)用程序任務(wù)描述2. 可視化界面設(shè)計(jì)3. 變量4. 運(yùn)算符5. 常用

20、函數(shù)6. 流程控制語(yǔ)句7. 工程化思想,1. “簡(jiǎn)單的計(jì)算器”應(yīng)用程序,,,下拉菜單,,,圖標(biāo),2. 可視化界面設(shè)計(jì),VB程序窗體設(shè)計(jì)可分為:　 單窗體 多窗體:多個(gè)窗體間沒(méi)有從屬關(guān)系 MDI窗體:一個(gè)父窗體和多個(gè)子窗體,2. 可視化界面設(shè)計(jì)－多窗體設(shè)計(jì),多窗體設(shè)計(jì) (1) 添加窗體模塊　 (2) 設(shè)置啟動(dòng)窗體 (3) 代碼設(shè)計(jì)多窗體間的調(diào)用關(guān)系　　　窗體裝載 —

21、Load　卸載 — Unload (4) 分別設(shè)計(jì)每個(gè)窗體,2. 可視化界面設(shè)計(jì)－ MDI窗體,MDI窗體　(1) 一個(gè)VB工程只能有一個(gè)MDI父窗體 ActiveForm屬性:　　返回具有焦點(diǎn)或最后被激活的子窗體　 ActiveControl屬性: 返回活動(dòng)子窗體上擁有焦點(diǎn)的控件　(2) MDI子窗體　 MDIChild屬性設(shè)置為T(mén)rue (3) MDI子窗體顯示方法: 靜態(tài)和動(dòng)態(tài)顯示

22、方法,2. 可視化界面設(shè)計(jì)－ 窗體運(yùn)行模式,模態(tài)顯示窗體:　　　此窗體占用控制整個(gè)應(yīng)用程序　　　窗體名.Show 1 或 窗體名.Show vbModel非模態(tài)顯示窗體:　　　此窗體在使用時(shí)可切換到其它窗體　　　 窗體名.Show 0 或 窗體名.Show vbModeless最前端顯示窗體: 此窗體永遠(yuǎn)顯示在所有窗體之上ToolWindows窗體,2. 可視化界面設(shè)計(jì)－ 菜單設(shè)計(jì),菜

23、單分為: 下拉式和彈出式兩種。菜單的常用屬性: Caption、Name、Index、 Enabled、 Visible 、Ckecked、ShortCut菜單的常用事件：Click菜單制作分隔條鍵盤(pán)訪問(wèn)鍵(Alt+字母)鍵盤(pán)快捷鍵(Ctrl+字母)彈出菜單:運(yùn)用菜單編輯器建立一頂層不可見(jiàn)菜單，在對(duì)象的ButtonClick或MouseDown事件中使用PopupMenu方法,2. 可視化界面設(shè)計(jì)－ 框架 (

24、 Frame ),功能: 將控件分組，屬容器控件。　　frame1.visable = false/true　　　　使框架上一組控件消失/出現(xiàn)常用屬性: Caption、Name制作要點(diǎn): 先繪制框架再繪制框架上的控件,可視化界面設(shè)計(jì)－ 單選紐(OptionButton)和復(fù)選框(CheckBox),常用屬性: Value ( 判斷控件的選中狀態(tài) ) 單選紐取值為T(mén)rue/False

25、 復(fù)選框取值為 0(未選)/1(選中)/2(禁用)常用事件: Click,可視化界面設(shè)計(jì)　　　　?。?列表框(ListBox),功能: 通過(guò)鼠標(biāo)選擇輸入已有信息。常用屬性: List(Index)、ListIndex、Text、ListCount常用方法: AddItem 、RemoveItem、Clear常用事件: Click,可視化界面設(shè)計(jì)　　?。?組合框(ComboBox),功能:

26、文本框和列表框的結(jié)合。常用屬性: List(Index)、ListIndex、Text、ListCount、　　 Style (樣式－設(shè)置組合顯示類(lèi)型 ) 0 - 文本框＋下拉列表 1 - 文本框＋非下拉列表 2 - 下拉列表常用方法: AddItem 、RemoveItem、Clear常用事件: Click,可視化界面設(shè)計(jì)－ 工具欄(T

27、oolBar)、狀態(tài)欄(StatusBar) 、圖標(biāo)列表(ImageList),工具欄常用屬性: ShowTips: 鼠標(biāo)移到按紐上能否顯示提示 ToolTipText: 鼠標(biāo)移到工具欄上出現(xiàn)文本提示 Style: 設(shè)置繪制工具欄按紐的方式，1--當(dāng)鼠標(biāo)移到按紐會(huì)突出顯示(懸浮式效果)設(shè)計(jì)工具欄按紐的屬性索引值Index(必選屬性):按紐的標(biāo)識(shí)依次排序(取值為整數(shù))標(biāo)題Caption(必選屬性):按紐上顯示的文本

28、樣式Style: 0--標(biāo)準(zhǔn)風(fēng)格；1--復(fù)選風(fēng)格；2--單選風(fēng)格；3--當(dāng)前按紐消失,產(chǎn)生將兩旁按紐分隔效果；4--當(dāng)前按紐消失，產(chǎn)生將兩旁按紐分隔效果且可設(shè)置寬度；5--產(chǎn)生右側(cè)的插入按紐4. 關(guān)鍵字Key:按紐的標(biāo)識(shí)(取值為字符串),可視化界面設(shè)計(jì)－ 工具欄(ToolBar)、狀態(tài)欄(StatusBar) 、圖標(biāo)列表(ImageList),制作步驟添加控件: [工程]->[部件]->[Microso

29、ftCommonControl6.0]設(shè)置ImageList控件: 右擊 ImageList 控件->屬性->屬性頁(yè)->圖像->插入圖片(選擇圖片)->確定設(shè)置ToolBar控件: 右擊 ToolBar控件->屬性->屬性頁(yè)->通用 ->圖像列表->ImageList1->按紐->圖像 ->輸入圖像索引值設(shè)置StatusBar控件: 右擊

30、 StatusBar 控件->屬性->窗格->插入窗格->自動(dòng)調(diào)整大小添加事件代碼: 當(dāng)單擊工具欄某按紐將觸發(fā)Click和ButtonClick事件,可視化界面設(shè)計(jì) － 通用對(duì)話框,添加控件: [工程]->[部件]-> [Microsoft Common Dialog Control 6.0]常用屬性: Dialog

31、Title、Filter、FilterIndex、Filename、Flags、Color常用方法: ShowOpen、ShowSave、ShowColor、ShowFont、ShowPrint、ShowHelp,可視化界面設(shè)計(jì) － 其他控件,TabStrip : 將控件分組布置ProgressBar : 顯示安裝進(jìn)度、程序執(zhí)行進(jìn)度TreeView : 制作類(lèi)似“

32、資源管理器”的菜單HScrollBar : 水平滾動(dòng)條VScrollBar : 垂直滾動(dòng)條,3. 變量?。∽兞柯暶?變量聲明 顯式聲明 : 　隱式聲明 : 變量為變體類(lèi)型(Variant) 強(qiáng)制聲明 : 方法1: 代碼中添加 Option Explicit 方法2: [工具]->[選項(xiàng)]->[編輯器]->[要求變量聲明]變量初值: 數(shù)值型0，字符型“”

33、，變體型Null,,3. 變量　－　數(shù)據(jù)類(lèi)型,3. 變量?。∽兞孔饔糜?變量作用域: 變量在程序中的使用范圍。過(guò)程級(jí)變量:在過(guò)程內(nèi)部聲明用Dim聲明窗體級(jí)和模塊級(jí)變量: 在窗體或模塊的代碼聲明段用Dim或Private 聲明全局變量: 在模塊代碼頂部用Public聲明，在整個(gè)應(yīng)用程序中有效,3. 變量　－　變量生命周期,變量的生命周期: 能夠保存變量值的時(shí)間過(guò)程級(jí)變量: 用Dim聲明在過(guò)程執(zhí)行期存在，用Static

34、聲明在程序整個(gè)運(yùn)行期存在窗體級(jí)、模塊級(jí)和全局變量: 在程序整個(gè)運(yùn)行期存在,常量,符號(hào)常量 用 Const 定義:　[Public|Prvite]Const 常量名 AS 數(shù)據(jù)類(lèi)型[=表達(dá)式] 文字常量,4. 運(yùn)算符,算術(shù)運(yùn)算符: ^ - * / \ Mod + -關(guān)系運(yùn)算符: > >= F , Not F=>TAnd (與): T And T =>T , 其它為F

35、Or (或): F Or F =>F , 其它為T(mén)Xor (異或): 是否相異Eqr (等價(jià)): 是否相同Imp(蘊(yùn)含)　字符連接符: + & “12”＋34=>46 , “12” & 34=>1234,5. 常用函數(shù)－數(shù)值型函數(shù),數(shù)值型函數(shù): Abs(絕對(duì)值)Sqr(平方根)Exp(ex )　e≈2.71828Hex(16進(jìn)制)、Oct(8進(jìn)制)Fix(取整

36、-截取)、Cint(四舍五入取整)、Int(取整-較小截取) Rnd(隨機(jī))Sin(正弦)、Cos(余弦)、Tan(正切)、Atn(反正切),5. 常用函數(shù)－字符串型函數(shù),字符串型函數(shù): Len(求長(zhǎng)度)Trim(截去前空格)Left(左取子串)、Right(右取子串)、Mid(中取子串)Str(數(shù)值=>字符串)、Val(字符串=>數(shù)值)Chr(獲取ASCII碼值對(duì)應(yīng)字符)、Asc(獲取字符ASCII碼值)

37、Ucase(=>大寫(xiě))、Lcase(=>小寫(xiě)),5. 常用函數(shù)－日期函數(shù),日期函數(shù)Date(返回系統(tǒng)日期)Time(返回系統(tǒng)時(shí)間)Year、Month、WeekDay(返回年份、月份、星期),5. 常用函數(shù)－格式化函數(shù),格式化函數(shù)　Format函數(shù)對(duì)數(shù)字、日期時(shí)間、字符串進(jìn)行格式化,6. 流程控制語(yǔ)句,順序結(jié)構(gòu)選擇（分支）結(jié)構(gòu)循環(huán)結(jié)構(gòu),6. 流程控制語(yǔ)句 －選擇（分支）結(jié)構(gòu),If/Then

38、/Else/EndIf 五種格式多重分支（Select Case）,6. 流程控制語(yǔ)句－循環(huán)結(jié)構(gòu),For…Next （計(jì)數(shù)型）Do…Loop1. Do While… Loop （當(dāng)型：先判斷后循環(huán)）2. Do … Loop While （當(dāng)條件成立繼續(xù)循環(huán)）3. Do … Loop Until （當(dāng)條件不成立繼續(xù)循環(huán)） （直到型：先循環(huán)后判斷）退出循環(huán): Exit For / E

39、xit Do,7. 工程化思想,高質(zhì)量的應(yīng)用程序應(yīng)：能實(shí)現(xiàn)業(yè)務(wù)功能、易理解、易維護(hù)、具良好結(jié)構(gòu)命名規(guī)則編程風(fēng)格: 注釋、多重語(yǔ)句、長(zhǎng)語(yǔ)句、縮進(jìn),第四章　 VB高級(jí)語(yǔ)言技巧,教學(xué)內(nèi)容1．“多功能計(jì)算器”應(yīng)用程序任務(wù)描述2．?dāng)?shù)組的使用3．枚舉及自定義數(shù)據(jù)類(lèi)型4．過(guò)程和函數(shù)的定義和調(diào)用5．鍵盤(pán)使用技巧6．鼠標(biāo)使用技巧,1．“多功能計(jì)算器”應(yīng)用程序,0--9控件數(shù)組,,禁止鍵盤(pán)輸入顯示提示,1．“多功能計(jì)算

40、器”應(yīng)用程序,界面設(shè)計(jì)要點(diǎn)：　創(chuàng)建控件數(shù)組方法－－Index屬性　提示信息設(shè)置－－ToolTipText屬性代碼設(shè)計(jì)要點(diǎn)：用API函數(shù)實(shí)現(xiàn)“前端窗體”－－SetWindowPos函數(shù)命令按紐控件數(shù)組的Click事件－－Index參數(shù)文本框禁止用戶鍵盤(pán)輸入－－ KeyDown事件(KeyCode參數(shù))　 KeyPress事件(KeyAscii參數(shù)),2．?dāng)?shù)組的使用,數(shù)組：一組相同類(lèi)型的變量組合聲明數(shù)組1. 靜態(tài)

41、數(shù)組　Dim 數(shù)組名(上界) As 數(shù)據(jù)類(lèi)型　Dim 數(shù)組名(下界 to 上界) As 數(shù)據(jù)類(lèi)型2. 動(dòng)態(tài)數(shù)組　 Dim 數(shù)組名(　) As 數(shù)據(jù)類(lèi)型　用ReDim修改數(shù)組大小或上下界,默認(rèn)下界從0開(kāi)始；Option Base n 定義下界,2．?dāng)?shù)組的使用,控件數(shù)組：數(shù)據(jù)類(lèi)型為控件類(lèi)型，各控件元素用Index屬性表示數(shù)組下標(biāo)。 　　當(dāng)一個(gè)應(yīng)用程序存在多個(gè)相同的控件，并且對(duì)某種事件和處理方法非常類(lèi)似時(shí)，為

42、共享代碼，可采用控件數(shù)組技術(shù)。,3．枚舉及自定義數(shù)據(jù)類(lèi)型,枚舉型( Enum … End Enum): 枚舉變量只可能取幾個(gè)固定值枚舉類(lèi)型中元素只能表示長(zhǎng)整型常數(shù)枚舉類(lèi)型應(yīng)在模塊級(jí)別中定義系統(tǒng)能自動(dòng)為第一個(gè)成員賦值0自定義類(lèi)型( Type … End Type),4．過(guò)程和函數(shù)的定義和調(diào)用　?。a分塊技術(shù),Sub過(guò)程( 子過(guò)程 ) :沒(méi)有返回值。可按名稱(chēng)調(diào)用子過(guò)程。一般用于接收或處理輸入數(shù)據(jù)、顯示輸出或者設(shè)置屬性。

43、 格式: Sub … End Sub 調(diào)用:　過(guò)程名(實(shí)參表)　　　　　　 過(guò)程名 實(shí)參表 　　　　　 call 過(guò)程名(實(shí)參表)Function過(guò)程( 函數(shù)過(guò)程) :用來(lái)完成特定的功能并返回相應(yīng)的結(jié)果。可按名稱(chēng)調(diào)用函數(shù)，總是以該函數(shù)名返回一個(gè)值(即函數(shù)名=表達(dá)式)，一般用于完成計(jì)算任務(wù),一般位于標(biāo)準(zhǔn)模塊中。 　格式: Function … End Function,4．過(guò)程和函數(shù)的定義和調(diào)用　　－－參數(shù)傳遞機(jī)制

44、,引用傳遞參數(shù)( 默認(rèn) ) : 在形參前不加關(guān)鍵字或加ByRef，傳遞參數(shù)變量的內(nèi)存地址。按值傳遞參數(shù): 在形參前加ByVal，傳遞參數(shù)的數(shù)值。,5．鍵盤(pán)使用技巧,常用鍵盤(pán)事件: KeyPress/KeyUp/KeyDown焦點(diǎn)處理SetFocus方法: 控件名. SetFocusTabIndex屬性(按[Tab]響應(yīng)次序)將TabStop或Visible或Enabled屬性False，控件無(wú)焦點(diǎn)。窗體鍵盤(pán)事件:先設(shè)置Key

45、Preview屬性為T(mén)rue,5．鍵盤(pán)使用技巧,KeyDown/KeyUp事件KeyCode參數(shù): 鍵碼Shift參數(shù): 判斷是否按下[Shift]、[Ctrl]、[Alt]鍵。KeyPress事件: 發(fā)生于上兩事件之間?！eyAscii參數(shù): 按鍵的Ascii碼值，當(dāng)設(shè)置KeyAscii=0時(shí)按鍵不顯示?！⒁?jiàn)：P113表4.1SendKeys過(guò)程: 將一個(gè)或多個(gè)健演算發(fā)送到活動(dòng)窗口。,6．鼠標(biāo)使用技巧,改變鼠標(biāo)形狀:

46、16種　設(shè)置MousePoint屬性使用自定義鼠標(biāo)形狀: （1）MousePoint＝99 （2）MouseIcon屬性MouseDown/MouseUp 事件Button參數(shù): 0—左鍵 1—中鍵 2—右鍵Shift參數(shù): 區(qū)別鼠標(biāo)與鍵盤(pán)的組合X，Y參數(shù): 鼠標(biāo)指針當(dāng)前位置，計(jì)量單位由ScaleMode決定,第五章 文件處理應(yīng)用程序設(shè)計(jì)方法,教學(xué)內(nèi)容 1．“磁盤(pán)管理器”應(yīng)用程序任務(wù)描述　　2

47、．相關(guān)的語(yǔ)句和函數(shù)介紹　　3．文件系統(tǒng)控件介紹　　4．文件讀寫(xiě)的基本方法,1．“磁盤(pán)管理器”應(yīng)用程序任務(wù)描述,2．相關(guān)的語(yǔ)句和函數(shù)介紹,改變當(dāng)前驅(qū)動(dòng)器: ChDrive 改變當(dāng)前目錄: ChDir刪除文件: Kill拷貝文件: FileCopy文件重命名: Name創(chuàng)建文件夾: MkDir刪除文件: RmDir獲得當(dāng)前路徑: CurDir設(shè)置文件屬性: SetAttr獲得文件屬性: GetAttr,3．文件系統(tǒng)控件

48、介紹,驅(qū)動(dòng)器列表框（DriveListBox） Drive屬性:運(yùn)行時(shí)設(shè)置或返回選定的驅(qū)動(dòng)器目錄列表框（DirListBox） Path屬性: 設(shè)置或返回當(dāng)前目錄的完整路徑文件列表框（FileListBox）　 Path屬性: 同上 Pattern屬性: 設(shè)置顯示文件的類(lèi)型 FileName屬性: 設(shè)置或返回選定的文件名常用事件: Change,4．文件讀寫(xiě)的基本方法,文件分類(lèi)按內(nèi)容: 程序

49、文件、數(shù)據(jù)文件按編碼: 文本文件、二進(jìn)制文件按存取方式: 順序文件、隨機(jī)文件、二進(jìn)制文件 文件操作一般步驟: 打開(kāi)文件－>讀/寫(xiě)文件－>關(guān)閉文件,順序文件的操作,打開(kāi): Open 文件名 For 模式 As #文件號(hào)模式: Input/OutPut/Append關(guān)閉: Close #文件號(hào)寫(xiě)操作(以O(shè)utput或Append方式打開(kāi)):　 Write#語(yǔ)句　　　Print #語(yǔ)句讀操作(以Input方

50、式打開(kāi)):　Input#語(yǔ)句—與Write#配合，讀一項(xiàng)　Line Input#語(yǔ)句—與Print#配合，讀一行　函數(shù)Input　字符個(gè)數(shù)，#文件號(hào),隨機(jī)文件的操作,打開(kāi): 　Open 文件名 For Random As #文件號(hào) Len=記錄長(zhǎng)度關(guān)閉: Close #文件號(hào)寫(xiě)操作:　 Put#文件號(hào)，記錄號(hào)，變量讀操作：　Get#文件號(hào)，記錄號(hào)，變量　函數(shù)Input(字節(jié)數(shù)，#文件號(hào)),二進(jìn)制文件的操作,打開(kāi):

51、Open 文件名 For Binary As #文件號(hào)關(guān)閉: Close #文件號(hào)寫(xiě)操作:　 Put#文件號(hào)，位置，變量讀操作:　Get#文件號(hào)，位置，變量,第六章 圖形圖像和多媒體應(yīng)用程序設(shè)計(jì)方法,教學(xué)內(nèi)容 1．“指針式時(shí)鐘”和“VCD播放器” 程序任務(wù)　2．VB坐標(biāo)系統(tǒng)和顏色　3．相關(guān)控件介紹　4．作畫(huà)的基本方法　5．圖像處理的基本方法　6．播放多媒體信息的基本方法,1．“指針式時(shí)鐘” 程序任務(wù),“VC

52、D播放器” 程序任務(wù),2．VB坐標(biāo)系統(tǒng)和顏色,坐標(biāo)系統(tǒng)三要素: 坐標(biāo)原點(diǎn)、坐標(biāo)軸度量單位、坐標(biāo)軸方向,,,X軸,Y軸,窗體對(duì)象的坐標(biāo)系,Scale Width,ScaleTop,ScaleLeft,Scale Height,,,X軸,Y軸,窗體在屏幕上的位置,Width,Height,Top,Left,,屏幕原點(diǎn),,,,,,,,,,,控件在窗體中的坐標(biāo),控件在窗體中的坐標(biāo)用TOP/Left定義，控件大小用Height/Width表示。

53、,Width,Height,Top , Left,,,,,,,其他控件容器的坐標(biāo)系,控件的TOP/Left屬性是查對(duì)于容器控件的坐標(biāo)系而言的，控件大小用Height/Width表示。,,,X軸,Y軸,圖片框坐標(biāo)系原點(diǎn),坐標(biāo)系的度量,度量單位由對(duì)象的ScaleMode屬性決定，缺省為T(mén)wip(緹)。(參見(jiàn)P148表6.1)ScaleMode只改變對(duì)象的度量單位，不改變對(duì)象大小，不改變坐標(biāo)系的原點(diǎn)和坐標(biāo)軸方向。,幾個(gè)窗體位置尺寸屬性的區(qū)別

54、,窗體的Top、Left、Width、Height屬性：　是相對(duì)于屏幕坐標(biāo)而言的，總是以Twip為單位(屏幕坐標(biāo)總是以Twip為單位)，不因窗體的ScaleMode屬性改變而改變。窗體的ScaleTop、ScaleLeft、ScaleWidth、ScaleHeight屬性：　是相對(duì)于窗體坐標(biāo)而言的。當(dāng)窗體的ScaleMode屬性改變度量單位時(shí)，這4個(gè)也隨之改變；窗體中控件的Top、Left、Width、Height屬性也將改變但在

55、窗體中的位置和尺寸不會(huì)變。窗體的ScaleWidth、ScaleHeight屬性指窗體的內(nèi)部尺寸，而Width、Height 屬性指窗體的外部尺寸。,當(dāng)前坐標(biāo)、自定義坐標(biāo),CurrentX和CurrentY屬性: 設(shè)置返回當(dāng)前坐標(biāo)的水平坐標(biāo)和垂直坐標(biāo)。自定義坐標(biāo)系統(tǒng)方法1:容器對(duì)象　左上角坐標(biāo)(ScaleLeft ，ScaleTop)　凈寬度和凈高度:ScaleWidth、ScaleHeight　右下角坐標(biāo): (Sca

56、leLeft+ ScaleWidth ，ScaleTop+ ScaleHeight)　坐標(biāo)軸方向: 當(dāng)ScaleWidth、ScaleHeight取負(fù)時(shí)反向。方法2: 容器對(duì)象名.Scale(x1,y1)－(x2,y2) 左上角－右下角,使用VB顏色,顏色屬性: 　BackColor(背景)　ForeColor(前景)顏色函數(shù): 　QBColor(0－15

57、)　RGB(R,G,B): R、G、B取值0－255,3．相關(guān)控件介紹,Line (線條控件): 兩端點(diǎn)坐標(biāo): (x1,y1)－(x2,y2) 直線粗線: BorderWidth屬性 直線顏色: BorderColor屬性 直線類(lèi)型: BoderStyle屬性(當(dāng)BorderWidth＝1時(shí)有效)Sharp (形狀控件)　幾何圖形的類(lèi)型: Shape屬性 邊框?qū)挾? BorderWidth屬性

58、 填充格式: FillStyle屬性 填充顏色: FillColor屬性　(當(dāng)FillStyle＝1時(shí)有效)　邊框顏色: BorderColor屬性,3．相關(guān)控件介紹,Image (圖像框控件)和PictureBox (圖片框控件) Picture屬性: 顯示圖像 Image的Stretch屬性為T(mén)rue時(shí):圖形自動(dòng)縮放以適應(yīng)圖像框的大小。 Picture的AutoSize屬性為T(mén)rue時(shí): 圖片框自動(dòng)縮放以適應(yīng)圖形的大

59、小 。,3．相關(guān)控件介紹－－ MMControl(Multimedia) (多媒體控件),功能: 專(zhuān)門(mén)用于管理多媒體控制接口MCI設(shè)備(聲卡、MIDI發(fā)生器、CD-ROM、播放器等)的ActiveX控件。主要屬性AutoEnable: 是否自動(dòng)檢測(cè)MMControl各按紐的狀態(tài)PlayEnabled: 決定MMControl各按紐是否有效 PlayVisible: 決定MMControl各按紐是否可視Command:

60、 指定要執(zhí)行的MCI命令 DeviceType屬性: 設(shè)置多媒體設(shè)備的類(lèi)型Length屬性: 多媒體文件長(zhǎng)度 Frames屬性: 指定Back或Step命令后退或前進(jìn)的幀數(shù)Notify屬性: 決定MMControl控件的下一條命令執(zhí)行完后是否產(chǎn)生回調(diào)事件Mode屬性: 返回一個(gè)已打開(kāi)的多媒體設(shè)備的狀態(tài) Notify

61、Value屬性: 返回控制命令的執(zhí)行結(jié)果(1,2,4,8)主要事件　Click事件: 　Done事件: 當(dāng)Notify=True后，所遇第一個(gè)MCI命令結(jié)束時(shí)觸發(fā)Done事件　StatusUpdate事件: 按UpdateInterval屬性所給定的時(shí)間間隔自動(dòng)發(fā)生,4．作畫(huà)的基本方法,Pset方法畫(huà)點(diǎn) 對(duì)象名.Pset [Step](x,y)[Color] Step:相對(duì)于當(dāng)前點(diǎn)(CurrentX,CurrentY)的

62、坐標(biāo) Line方法畫(huà)線與矩形 對(duì)象名.Line[Step](x1,y1)-[Step](x2,y2) [, Color][,BF]Circle方法畫(huà)圓與橢圓 對(duì)象名.Circle[Step](x,y),Radius[,Color][,Start,End,Aspet]清除繪圖區(qū)內(nèi)容 對(duì)象名.Cls 清除圖片框圖形文件: Picture1.Picture=LoadPicture( ),5．圖像處理的基本

63、方法,相關(guān)屬性：容器控件的DrawWidth屬性(繪圖控件的BorderWidth屬性): 線寬(1－32767)容器控件的DrawStyle屬性(繪圖控件的BorderStyle屬性): 線型(0－6)，(當(dāng)DrawWidth＝1時(shí)有效)FillStyle屬性: 圖形填充樣式FillColor屬性:圖形填充顏色,5．圖像處理的基本方法,在設(shè)計(jì)時(shí)添加圖片：在屬性窗口利用Picture屬性裝入圖形文件使用剪貼板裝入圖形文件運(yùn)

64、行時(shí)添加圖片：　對(duì)象名.Picture=LoadPicture(“圖形文件名”)　Picture2.Picture= Picture1.Picture移動(dòng)圖片: 對(duì)象名.Move Left,Top,Width,Height改變圖片尺寸: 使用PaintPicture方法。,6．播放多媒體信息的基本方法,用DeviceType屬性指定多媒體設(shè)備的類(lèi)型用FileName屬性指定要播放的文件用Command屬性的Open命令打開(kāi)媒

65、體設(shè)備用Command屬性的Play命令進(jìn)行播放用Command屬性的其他命令控制媒體設(shè)備在MMControl_StatusUpdate過(guò)程中編寫(xiě)代碼，實(shí)現(xiàn)用Slider控件顯示文件的播放進(jìn)度。,第七章　數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)方法,教學(xué)內(nèi)容 1．“成績(jī)查詢”程序設(shè)計(jì)任務(wù)描述　　2．VB數(shù)據(jù)庫(kù)應(yīng)用程序的基本框架 3．VB數(shù)據(jù)對(duì)象及數(shù)據(jù)庫(kù)訪問(wèn)機(jī)制概述　　4．使用數(shù)據(jù)綁定控件的方法　　5．使用可視化數(shù)據(jù)

66、管理器的方法　　6．使用VB數(shù)據(jù)庫(kù)引擎的方法　　7．使用SQL的方法　　8．事務(wù)處理機(jī)制　　9．報(bào)表設(shè)計(jì),1．“成績(jī)查詢”程序設(shè)計(jì)任務(wù)描述,,2．VB數(shù)據(jù)庫(kù)應(yīng)用程序的基本框架,聲明一全局?jǐn)?shù)據(jù)庫(kù)連接對(duì)象創(chuàng)建Main子過(guò)程，并設(shè)置為啟動(dòng)對(duì)象以非模態(tài)方式顯示飛濺窗創(chuàng)建全局?jǐn)?shù)據(jù)庫(kù)連接對(duì)象，連接Access 或SQLServer以模態(tài)方式顯示登錄窗登錄成功后，以非模態(tài)方式顯示主窗體，否則退出程序主窗體一般提供對(duì)數(shù)據(jù)庫(kù)的管理功能

67、:增加(Insert)、刪除(Delete)、修改(Update)、查詢(Select)、其他(備份、恢復(fù)、用戶權(quán)限等),3．VB數(shù)據(jù)對(duì)象及數(shù)據(jù)庫(kù)訪問(wèn)機(jī)制概述,數(shù)據(jù)庫(kù)引擎:前臺(tái)(VB)和后臺(tái)(SQLServer /Access)之間進(jìn)行通信的主要機(jī)制1. 三種數(shù)據(jù)庫(kù)類(lèi)型 (1) 本地?cái)?shù)據(jù)庫(kù)(Access) (2) 外部數(shù)據(jù)庫(kù)(Foxpro、Excel…) (3) 遠(yuǎn)程數(shù)據(jù)庫(kù)(SQLServer、Oracle、DB2…)2. 三

68、種數(shù)據(jù)庫(kù)引擎 (1) Jet引擎(聯(lián)合數(shù)據(jù)庫(kù)引擎):用于本地、外部的數(shù)據(jù)庫(kù)引擎，也可訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)(必須通過(guò)ODBC轉(zhuǎn)換) (2) ODBC引擎(開(kāi)放式數(shù)據(jù)庫(kù)連接): 所有DBMS都支持 (3) OLE DB引擎,3．VB數(shù)據(jù)對(duì)象及數(shù)據(jù)庫(kù)訪問(wèn)機(jī)制概述,數(shù)據(jù)對(duì)象:VB采用面向?qū)ο蠹夹g(shù)，將三種數(shù)據(jù)庫(kù)引擎封裝成三種訪問(wèn)數(shù)據(jù)庫(kù)的對(duì)象。DAO對(duì)象(Data Access Objects):數(shù)據(jù)訪問(wèn)對(duì)象RDO對(duì)象(Remote Data

69、 Objects):遠(yuǎn)程數(shù)據(jù)對(duì)象ADO對(duì)象(ActiveX Data Objects): ActiveX數(shù)據(jù)對(duì)象 把OLE DB封裝在一個(gè)數(shù)據(jù)對(duì)象中，使得VB程序可以方便地實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)。 非層次結(jié)構(gòu) 包含七個(gè)對(duì)象,ADO常用對(duì)象,Connection:建立與數(shù)據(jù)庫(kù)的連接聲明: Dim ADOcn As Connection創(chuàng)建對(duì)象: Set ADOcn =New Connection建立數(shù)據(jù)庫(kù)