【正文】 op事件 格式： Sub Object_DragDrop(Source as Control, X as Single, Y as Single) 說明： ① Source：指正在被拖動(dòng)的控件即源對(duì)象。 ② X,Y:是松開鼠標(biāo)鍵時(shí)鼠標(biāo)指針在目標(biāo)對(duì)象中的坐標(biāo)值 拖放 2. 屬性 1. 術(shù)語 3. 事件 4. 方法 100 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 (2) DragOver事件 當(dāng)拖動(dòng)對(duì)象越過一個(gè)控件時(shí)便觸發(fā)該控件的DragOver事件。 格式： Sub Object_DragOver(Source as Control,X as Single,Y as Single,State as Integer) 說明： ① Object：表示拖放操作過程中源對(duì)象所處位置下方的控件。 ② Source：指正在被拖動(dòng)的控件即源對(duì)象。 ③ State：表示源對(duì)象被拖動(dòng)的狀態(tài)。 拖放 2. 屬性 1. 術(shù)語 3. 事件 4. 方法 101 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 方 法 Drag方法 當(dāng) DragMode為 0時(shí)，需用 Drag方法啟動(dòng)拖放。 格式： [控件名稱 .]Drag 參數(shù) 說明：參數(shù)取 0、 2。 0：取消拖放操作； 1(省略 )：開始拖放操作； 2：結(jié)束拖放操作。 拖放 2. 屬性 1. 術(shù)語 3. 事件 4. 方法 102 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 設(shè)計(jì)一個(gè)應(yīng)用程序。窗體上有三個(gè)控件，分別是圖像框 (笑臉 )控件，命令按鈕 (按鍵 )控件和圖片框 (回收站 )控件，要求圖像框和命令按鈕控件可以在窗體中隨意拖動(dòng)到不同的位置。當(dāng)把圖像框拖到圖片框 (回收站 )上釋放鼠標(biāo)左鍵時(shí)，提示是否刪除該對(duì)象，若選擇刪除，則窗體中圖像框消失，圖片框中回收站圖片改變。若將命令按鈕拖到圖片框上釋放鼠標(biāo)左鍵時(shí)，提示 “ 不能刪除此對(duì)象 ” 信息。 例 819 看圖 拖放 2. 屬性 1. 術(shù)語 3. 事件 4. 方法 103 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 拖放 2. 屬性 1. 術(shù)語 3. 事件 4. 方法 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 電子課件 20223 V B 程序設(shè)計(jì) Visual Basic Programming 105 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 、函數(shù)的定義和使用 ，變量和過程的作用域 本章學(xué)習(xí)目標(biāo) 106 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 Sub過程 可選參數(shù)與可變參數(shù) 函數(shù)過程 參數(shù)的傳遞 遞歸 變量與過程的作用域 引言 107 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. 引例 2. 過程的定義與使用 引言 1) 引言 在 VB中的兩種過程： （ 1）由系統(tǒng)提供過程 系統(tǒng)提供的內(nèi)部函數(shù)過程和事件過程。 （ 2）由用戶自定義過程 用戶根據(jù)實(shí)際應(yīng)用的需要而自行設(shè)計(jì)的過程 ,這樣的過程稱為 “ 通用過程 ” ,通用過程分為兩類： 子程序過程：以 Sub保留字開始的過程； 函數(shù)過程：以 Function保留字開始的過程。 108 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 引言 1. 引例 2. 過程的定義與使用 編寫一個(gè)通用的函數(shù)過程，使其可以求任意整型數(shù)的階乘，即 n!，并利用這個(gè)函數(shù)過程解決 5!+6!+7!的問題。 例 71 109 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 例 72 1. 引例 2. 過程的定義與使用 引言 編寫函數(shù)過程，使其可以求 e的任意次冪，即 ex，并利用這個(gè)函數(shù)過程求解 的值。 ex =1 + x + + +…… 2ee xx ??!22x!33x110 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. 引例 2. 過程的定義與使用 引言 2)過程的定義與使用 定義過程 首先用戶必須自定義一個(gè)子過程，這個(gè)子過程通?？梢酝瓿梢粋€(gè)特定的功能，該子過程以一個(gè)名字來標(biāo)識(shí)，可以被其他過程調(diào)用，其名字后面的變量表稱為形式參數(shù)。 用戶自定義子過程與事件過程的區(qū)別是：事件過程的名字是有一定規(guī)律的，且不能改變，即控件名 _事件名，而用戶自定義的過程名則由用戶自己定義。事件過程的參數(shù)是由系統(tǒng)根據(jù)事件給出，面用戶自定義的過程則是根據(jù)用戶的需要。 111 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. 引例 2. 過程的定義與使用 引言 2)過程的定義與使用 調(diào)用過程 自定義過程只有在被其他過程調(diào)用時(shí)才啟動(dòng)執(zhí)行，調(diào)用時(shí)名字后面的變量表稱為實(shí)際參數(shù)。用戶自定義的過程的調(diào)用有 3個(gè)步驟： ① 調(diào)用過程將實(shí)際參數(shù)傳遞給形式參數(shù)，帶進(jìn)被調(diào)過程，此時(shí)形式參數(shù)從實(shí)際參數(shù)中獲得了數(shù)值； ② 啟動(dòng)被調(diào)過程，執(zhí)行被調(diào)過程中的語句，完成被調(diào)過程的功能，此時(shí)調(diào)用過程被中斷； ③ 在執(zhí)行被調(diào)過程的過程中，遇到返回語句，返回調(diào)用過程，此后調(diào)用過程可利用返回的結(jié)果。 112 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. Sub過程的定義 2. Sub過程的調(diào)用 Sub過程 1)Sub過程的定義 格式： [Static][Public|Private］ Sub過程名 (參數(shù)表列 ) 語句塊 [Exit Sub］ 語句塊 End Sub 功能：定義一個(gè)以 子過程名 為名的 Sub過程。 113 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. Sub過程的定義 2. Sub過程的調(diào)用 Sub過程 1)Sub過程的定義 Sub過程說明 (1) 在 VB中， Sub過程又稱為子過程。 (2)子過程名、參數(shù)列表、語句塊等與函數(shù)過程的要求基本相同。 (3)子過程定義格式中 “ Sub過程名 ” 和 “ End Sub”是必不可少的，子過程由 “ Sub”開始定義，由 End Sub結(jié)束，在這兩者之間的程序便是能完成某個(gè)功能的程序主體。 (4)在子過程中如果沒有形參，調(diào)用時(shí)括號(hào)（）必須省略。 114 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. Sub過程的定義 2. Sub過程的調(diào)用 Sub過程 2)Sub過程的調(diào)用 格式： Call 過程名 (實(shí)參列表 ) 或 過程名 實(shí)參列表 說明： ① 實(shí)參的個(gè)數(shù)、類型、順序應(yīng)與相應(yīng)的形參保持一致，子過程中如果沒有形參，則調(diào)用中也無實(shí)參。 ② 第 2種調(diào)用方式與第 1種相比，結(jié)果一樣，只是去掉 Call和一對(duì)括號(hào) ( )。 115 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. Sub過程的定義 2. Sub過程的調(diào)用 Sub過程 編寫兩個(gè) Sub子過程， Sub子過程daying1，打印一行 “ ”信息， Sub子過程 daying2，打印兩個(gè) “ |”，這兩個(gè) Sub子過程不需要參數(shù)，因此參數(shù)表為空，在窗體單擊事件過程中，分別調(diào)用這兩個(gè)子過程，以打印一個(gè)圖形。 例 73 116 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 Sub過程 2)Sub過程的調(diào)用 1. Sub過程的定義 2. Sub過程的調(diào)用 函數(shù)過程與 Sub過程的區(qū)別 (1)函數(shù)名是一個(gè)變量，它有值，有類型，在函數(shù)體中至少賦值一次，并通過它可帶回一個(gè)結(jié)果；而Sub過程名，它無值，無類型，在 Sub過程體內(nèi)不能賦值，不能通過它帶回結(jié)果。 (2)調(diào)用時(shí)，子過程調(diào)用是一句獨(dú)立的語句。函數(shù)過程不能作為單獨(dú)的語句加以調(diào)用，必須參與表達(dá)式運(yùn)算。 注意： Sub過程若要帶回結(jié)果，必須通過形參與實(shí)參的傳遞得到結(jié)果，調(diào)用時(shí)可得到多個(gè)參數(shù)值。 117 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. Sub過程的定義 2. Sub過程的調(diào)用 Sub過程 將例 63的例子，統(tǒng)計(jì)一串字符中某個(gè)字符的出現(xiàn)次數(shù)，并在調(diào)用函數(shù)中調(diào)用它，改為用一個(gè)子過程實(shí)現(xiàn)。 例 74 118 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. Sub過程的定義 2. Sub過程的調(diào)用 Sub過程 編寫函數(shù)過程，使其可以求 e的任意次冪，即 ex，并利用這個(gè)函數(shù)過程求解 的值。 ex =1 + x + + +…… 。 例 75 2ee xx ??!22x!33x119 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. 函數(shù)過程的定義 2. 函數(shù)過程的調(diào)用 函數(shù)過程 1)函數(shù)過程的定義 [Static][Public|Private］ Function 函數(shù)過程名 ([參數(shù)列表 ]) [As 類型 ] 局部變量或常數(shù)定義 語句塊 函數(shù)名 = 返回值 [Exit Function] 語句塊 函數(shù)名 = 返回值 End Function 功能：定義一個(gè)以 函數(shù)名 為名的 Function過程。 函數(shù)過程體 120 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 函數(shù)過程 1. 函數(shù)過程的定義 2. 函數(shù)過程的調(diào)用 1)函數(shù)過程的定義 1. 函數(shù)過程名的命名規(guī)則同變量名 2. As 類型： 返回值的類型 3. 參數(shù)列表形式 : [ByVal]變量名 [( )][As 類型 ] 其中： ByVal表示值傳遞 4. 函數(shù)名 = 返回值 ,在函數(shù)體內(nèi)至少對(duì)函數(shù)名賦值一次。 5. [Exit Function]:表示退出函數(shù)過程。 121 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. 函數(shù)過程的定義 2. 函數(shù)過程的調(diào)用 函數(shù)過程 1)函數(shù)過程的定義 自定義函數(shù)過程有兩種方法： (1) 利用 “ 工具 ” 菜單下的 “ 添加過程 ” 命令定義，生成一個(gè)函數(shù)的框架。 (2) 利用代碼窗口直接定義。 看圖 122 第六章 鍵盤、鼠標(biāo)與繪圖 遼寧科技大學(xué) Visual Basic 程序設(shè)計(jì) 教學(xué)課件 ③ 20222 1. 函數(shù)過程的定義 2.