【正文】 意一鍵，則會(huì)在該對(duì)象上觸發(fā)產(chǎn)生 KeyDown事件，當(dāng)釋放該鍵時(shí)，將觸發(fā)產(chǎn)生KeyUp事件，之后產(chǎn)生 KeyPress事件。其語(yǔ)法格式為 Private Sub 對(duì)象名 _KeyDown(KeyCode As Integer, Shift As Integer) Private Sub 對(duì)象名 _KeyUp(KeyCode As Integer, Shift As Integer) 第 8章 過(guò)程 【 例 818】 測(cè)試功能鍵與控制鍵。結(jié)合圖 讀下面的程序代碼。其中， Text2中顯示按鍵接受的KeyCode參數(shù)， Label1(2)的 Visible設(shè)為 False。 圖形方式的復(fù)選框 Check Check2和 Check3分別表示 Shift、Ctrl和 Alt鍵。 第 8章 過(guò)程 圖 測(cè)試功能鍵與控制鍵 第 8章 過(guò)程 文本 (輸入 )框 Text1的 Keydown事件代碼為 Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) = amp。 Str(KeyCode) amp。 , If KeyCode 111 And KeyCode 124 Then Label1(2).Caption = 你剛才按了功能鍵： amp。 F amp。 Str(KeyCode 111) Label1(2).Visible = True Else 第 8章 過(guò)程 Label1(2).Visible = False End If = IIf((Shift And vbShiftMask) 0, 1, 0) = IIf((Shift And vbCtrlMask) 0, 1, 0) = IIf((Shift And vbAltMask) 0, 1, 0) End Sub 命令按鈕 (清除 )Command1 的 Click事件代碼為 第 8章 過(guò)程 Private Sub Command1_Click() = = End Sub 第 8章 過(guò)程 鼠標(biāo)事件 在前面的例子中曾多次使用鼠標(biāo)事件，即單擊(Click)事件和雙擊 (DblClick)事件，這些事件是通過(guò)快速按下并松開(kāi)鼠標(biāo)鍵而產(chǎn)生的。 第 8章 過(guò)程 1. MouseDown和 MouseUp事件 MouseDown和 MouseUp事件當(dāng)按下 (MouseDown)或者釋放 (MouseUp)鼠標(biāo)按鈕時(shí)發(fā)生 。 其語(yǔ)法為 Private Sub 對(duì)象名 _MouseDown(button As Integer, shift As Integer, x As Single, y As Single) Private Sub 對(duì)象名 _MouseUp(button As Integer, shift As Integer, x As Single, y As Single) 第 8章 過(guò)程 2. MouseMove事件 MouseMove 事件在移動(dòng)鼠標(biāo)時(shí)發(fā)生 。 其語(yǔ)法格式為 Private Sub 對(duì)象名 _MouseMove(button As Integer, shift As Integer, x As Single, y As Single) 第 8章 過(guò)程 3. 自定義鼠標(biāo)指針 在 VB中 ， 可以通過(guò)屬性設(shè)置來(lái)改變鼠標(biāo)指針的形狀 。 鼠標(biāo)指針的改變可以告知用戶諸多信息 ， 例如 ，正在進(jìn)行長(zhǎng)時(shí)間的后臺(tái)任務(wù) ， 調(diào)整某個(gè)控件或窗口的大小 ， 某控件不支持拖放操作等等 。 第 8章 過(guò)程 拖放 在可視化編程的步驟中，第一步就是在窗體上擺放一些控件，這樣的操作常常是使用鼠標(biāo)在窗體上拖放控件。拖放操作其實(shí)包括兩個(gè)操作：拖與放。 第 8章 過(guò)程 1. 拖放屬性 與拖放有關(guān)的屬性有 DragMode和 DragIcon。 1) DragMode屬性 DragMode屬性用來(lái)設(shè)置自動(dòng)或手工拖放模式 ， 取值為 0或 1， 默認(rèn)值為 0(手工拖放 )。 該屬性可以在屬性窗口中設(shè)置 ， 也可以在過(guò)程代碼中設(shè)置 。 若對(duì)象的 DragMode屬性為 1，則該對(duì)象不再接收Click事件和 MouseDown事件。 2) DragIcon屬性 DragIcon屬性指定拖動(dòng)控件時(shí)顯示的圖標(biāo)。 第 8章 過(guò)程 2. 拖放事件 與拖放有關(guān)的事件有 DragOver(拖 )和 DragDrop(放 )。 1) DragOver事件 該事件當(dāng)拖動(dòng)對(duì)象越過(guò)一個(gè)控件時(shí)發(fā)生 ， 其格式為 Private Sub〈 控件名 〉 _DragOver(Source As Control, X As Single, Y As Single, State As Integer) 第 8章 過(guò)程 表 81 參數(shù) State的取值 第 8章 過(guò)程 2) DragDrop事件 該事件當(dāng)對(duì)象被拖到目標(biāo)位置松開(kāi)鼠標(biāo)鍵后發(fā)生 ，其格式為 Private Sub Command1_DragDrop(Source As Control, X As Single, Y As Single) 其中 ， 參數(shù)含義同 DragOver事件 。 第 8章 過(guò)程 3. 拖放方法 與拖放有關(guān)的方法是 Drag， 其語(yǔ)法格式為 〈 對(duì)象 〉 .Drag [action] 第 8章 過(guò)程 表 82 參數(shù) action的描述 第 8章 過(guò)程 習(xí) 題 八 用一個(gè)通用過(guò)程處理三個(gè)按鈕的單擊事件 。 要求：在一個(gè)窗口中包含三個(gè)命令按鈕 ， 當(dāng)用戶單擊其中一個(gè)時(shí) ， 其他個(gè)別按鈕不能使用 。 編寫輸入一個(gè) 0～ 6之間的整數(shù) ， 顯示漢英對(duì)照輸出星期的 Function過(guò)程 。 利用用戶定義函數(shù) ， 編制求任意數(shù)的立方數(shù)的函數(shù) ， 然后求 1～ 20的立方數(shù) 。 第 8章 過(guò)程 編制隨機(jī)整數(shù)函數(shù) ， 產(chǎn)生 30個(gè) 1～ 100之內(nèi)的隨機(jī)數(shù) 。 計(jì)算階乘 3!、 5!、 6!， 以及其和 3! + 5! + 6!。 編寫計(jì)算圓面積的通用函數(shù)過(guò)程 。 編寫求直角三角形斜邊長(zhǎng)的通用函數(shù)過(guò)程 。 編制求兩數(shù)中較大數(shù)的 Function過(guò)程 ， 利用該函數(shù)過(guò)程求 3個(gè)數(shù)的最大數(shù) 。 編制判斷是否同時(shí)被 7整除的 Function過(guò)程 。 輸出 1～ 1000之間所有能同時(shí)被 7整除的數(shù) 。 第 8章 過(guò)程 大圓的半徑是 10 cm， 在它上面分別剪下半徑分別是 3 cm和 5 cm的小圓 ， 求大圓剩下來(lái)那部分的面積 。 編寫求兩數(shù)最大公約數(shù)的 Function過(guò)程 。 在主程序中輸入 3個(gè)整數(shù) ， 調(diào)用 Function過(guò)程求出 3個(gè)整數(shù)的最大公約數(shù) 。 移動(dòng)數(shù)組元素 。 它能將數(shù)組中某個(gè)位置的元素移動(dòng)到指定位置 。 編制判斷奇偶數(shù)的 Function過(guò)程 。 輸入一個(gè)整數(shù) ， 判斷其奇偶性 。 第 8章 過(guò)程 向數(shù)組添加元素 。 將新添加的元素放到數(shù)組的最后位置 。 向數(shù)組中的指定位置插入新元素 ， 即將新添加的元素放到數(shù)組的指定位置 。 刪除數(shù)組中指定位置的元素 。 隨機(jī)產(chǎn)生 3組整數(shù) ， 并求出每組的最大數(shù) 。 第 8章 過(guò)程 編寫程序 ， 實(shí)現(xiàn)英語(yǔ)單詞或短語(yǔ)的加密 /解密操作 。 加密 /解密的基本原則是：把英語(yǔ)單詞或短語(yǔ)中每個(gè)字符的 ASCII碼加上 2， 使其變?yōu)榱硗庖粋€(gè)字符 。例如 “ ABCDE”， 每個(gè)字符的 ASCII碼加 2， 變?yōu)椤?CEDFG”， 從而對(duì)原來(lái)的單詞或短語(yǔ) “ 加密 ” 。 編制判斷素?cái)?shù)的 Sub過(guò)程或 Function過(guò)程 ， 驗(yàn)證哥德巴赫猜想：一個(gè)不小于 6的偶數(shù)可以表示為兩個(gè)素?cái)?shù)之和 。 例如： 6 = 3 + 3， 8 = 3 + 5， 10 = 3 + 7……