visualbasic語言程序設(shè)計 - 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

15、屬性: AutoSize (True-False) 、Alignment(0-2)、BorderStyle(0-1)、BackStyle(0-1)、 WordWrap (True-False)常用方法: 標簽名.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: 當控件是控件數(shù)組中的一個元素時，index代表在數(shù)組是索引值，即下標　　　　keyascii: 返回標準的ASCII鍵碼,標簽與文本框的區(qū)別,標簽不能編輯、不具備焦點，而文本框有；標簽特有BackStyle屬性（背景是否透明），而文本框無；標簽一般用來顯示提示信息，而文本框常用于接受信

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

43、 格式: Sub … End Sub 調(diào)用:　過程名(實參表)　　　　　　 過程名 實參表 　　　　　 call 過程名(實參表)Function過程( 函數(shù)過程) :用來完成特定的功能并返回相應的結(jié)果?？砂疵Q調(diào)用函數(shù)，總是以該函數(shù)名返回一個值(即函數(shù)名=表達式)，一般用于完成計算任務(wù),一般位于標準模塊中。 　格式: Function … End Function,4．過程和函數(shù)的定義和調(diào)用　?。瓍?shù)傳遞機制

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

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

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

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

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

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

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

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

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

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

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

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

56、leLeft+ ScaleWidth ，ScaleTop+ ScaleHeight)　坐標軸方向: 當ScaleWidth、ScaleHeight取負時反向。方法2: 容器對象名.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 (線條控件): 兩端點坐標: (x1,y1)－(x2,y2) 直線粗線: BorderWidth屬性 直線顏色: BorderColor屬性 直線類型: BoderStyle屬性(當BorderWidth＝1時有效)Sharp (形狀控件)　幾何圖形的類型: Shape屬性 邊框?qū)挾? BorderWidth屬性

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

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

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

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

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

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

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

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

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

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

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

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