【正文】 seMove和 MouseUp事件與 Click和DblClick不同 ， 它們可以區(qū)分按下的鼠標(biāo)按鈕以及是否同時(shí)按下 Shift、 Ctrl和 Alt鍵 。 1. 鼠標(biāo)事件過程語法 鼠標(biāo)事件過程語法格式如下： Private Sub 對(duì)象 _MouseDown | MouseMove | MouseUp ([Index As Integer,] Button As Integer, Shift As Integer, X As Single, Y As Single) 鼠標(biāo)事件過程 （ 2） 說明： （ 1） 對(duì)象：響應(yīng)事件的對(duì)象 。 窗體用 Form， 其他控件用控件名 。 （ 2） Index： 當(dāng)對(duì)象為控件數(shù)組時(shí) ， 此參數(shù)是控件數(shù)組元素下標(biāo) 。 （ 3） Button： 位域參數(shù) ， 用 3位二進(jìn)制數(shù)表示哪一個(gè)鼠標(biāo)按鈕被按下 ， 如 147頁表 。 （ 4） Shift： 位域參數(shù) ， 用 3位二進(jìn)制數(shù)表示鼠標(biāo)事件發(fā)生時(shí) ， 是否同時(shí)按下了鍵盤上的 Shift、 Ctrl和 Alt鍵 。 取值與鍵盤事件相同 。 （ 5） X、 Y： 鼠標(biāo)在當(dāng)前對(duì)象上的相對(duì)坐標(biāo) ， 即鼠標(biāo)指針的位置 。 鼠標(biāo)事件過程 （ 3） 2. MouseDown和 MouseUp事件 當(dāng)按下或釋放鼠標(biāo)按鈕時(shí)分別發(fā)生這兩個(gè)事件 。由于鼠標(biāo)事件可以區(qū)分左右按鈕并返回指針坐標(biāo) ，因此這兩個(gè)事件在鼠標(biāo)右擊操作中和判斷鼠標(biāo)指針位置時(shí)特別有用 。 例如 ， 在許多 Windows應(yīng)用程序中 ， 右擊某對(duì)象會(huì)彈出一個(gè)快捷菜單 ， 這就是運(yùn)用 MouseDown或 MouseUp事件過程的典型實(shí)例 。以下語句可以在 MouseDown/MouseUp事件過程中判斷是否按下 /釋放了鼠標(biāo)右鍵： If Button = vbRightButton Then … 鼠標(biāo)事件過程 （ 4） 3. MouseMove事件 此事件在移動(dòng)鼠標(biāo)時(shí)發(fā)生 。 當(dāng)鼠標(biāo)指針處于某個(gè)對(duì)象的邊界內(nèi)時(shí) ， 該對(duì)象能夠識(shí)別 MouseMove事件 。 應(yīng)用程序能連續(xù)識(shí)別大量的 MouseMove事件 ， 因此 ， MouseMove事件過程中的代碼不能太復(fù)雜 ， 不應(yīng)去做那些耗時(shí)較多的工作 。 上述三個(gè)鼠標(biāo)事件常用于繪圖操作 ， 詳細(xì)內(nèi)容將在第 12章介紹 。 鼠標(biāo)事件過程 （ 5） 【 例 】 用鼠標(biāo)事件結(jié)合 Move方法移動(dòng)控件 。 要求在程序運(yùn)行時(shí) ， 按鼠標(biāo)右鍵拖動(dòng)一個(gè)命令按鈕 ， 使其隨鼠標(biāo)指針移動(dòng) 。 在窗體左上角放置一個(gè)命令按鈕 ， 設(shè)置 Caption屬性為【 按住鼠標(biāo)右鍵拖動(dòng) 】 。 代碼如下： 39。窗體級(jí)變量存放按下鼠標(biāo)按鈕時(shí)的指針坐標(biāo) Dim iW As Integer, iH As Integer 39。在命令按鈕上按下鼠標(biāo)按鈕時(shí)觸發(fā)此事件 Private Sub Command1_MouseDown(Button As _ Integer, Shift As Integer, _ X As Single, Y As Single) iW = X: iH = Y 39。獲取鼠標(biāo)指針初始坐標(biāo) End Sub 鼠標(biāo)事件過程 （ 6） 39。在命令按鈕上移動(dòng)鼠標(biāo)時(shí)觸發(fā)此事件 Private Sub Command1_MouseMove(Button As _ Integer, Shift As Integer, _ X As Single, Y As Single) 39。若移動(dòng)鼠標(biāo)的同時(shí)按住鼠標(biāo)右鍵 If Button = vbRightButton Then 39。用 Move方法移動(dòng)命令按鈕 X + iW, _ Y + iH End If End Sub 提示 ： 用同樣的方法可以移動(dòng)沒有標(biāo)題欄(BorderStyle=0)的窗體 。 鼠標(biāo)事件過程 （ 7） 4. 鼠標(biāo)指針 大部分可視對(duì)象具有 MousePointer和 MouseIcon屬性 ，利用它們可以在鼠標(biāo)移動(dòng)到對(duì)象的一個(gè)特定部分時(shí)改變鼠標(biāo)指針的形狀 。 MousePointer屬性用于設(shè)置鼠標(biāo)指針的類型 。 設(shè)置值0～ 15是由系統(tǒng)提供的常用類型 ， 如標(biāo)準(zhǔn)指針 （ 0， 默認(rèn)值 ） 、 沙漏 （ 11） 、 十字線 （ 2） 、 帶問號(hào)的箭頭 （ 14）等；設(shè)置值為 99時(shí) ， 可以通過 MouseIcon屬性為鼠標(biāo)指針指定一個(gè)圖標(biāo)文件 （ .ico或 .cur） 。 例如 ， 在圖 ， 圖片框的 MousePointer屬性值為 14，窗體該屬性為默認(rèn)值 。 鼠標(biāo)事件過程 （ 8） 圖 鼠標(biāo)指針 返回首頁 返回本節(jié) 本 章 小 結(jié)（ 1） 本章介紹了數(shù)組 、 一維數(shù)組 、 二維數(shù)組 、 可變數(shù)組 、 控件數(shù)組的有關(guān)概念 、 聲明或建立的方法及其使用 。 數(shù)組一組具有相同名字 、 不同下標(biāo)的變量的集合 。 數(shù)組必須先聲明后使用 ， 按聲明時(shí)數(shù)組的大小確定與否分為定長 (靜態(tài) )數(shù)組和可調(diào) (動(dòng)態(tài) )數(shù)組兩類 。 在聲明時(shí) ， 數(shù)組只有一個(gè)下標(biāo) ， 則該數(shù)組為一維數(shù)組；數(shù)組有兩個(gè)下標(biāo) ， 則該數(shù)組為二維數(shù)組 。 動(dòng)態(tài)數(shù)組也叫可調(diào)數(shù)組或可變長數(shù)組 ， 是指在聲明數(shù)組時(shí)未給出數(shù)組的大小 (省略括號(hào)中的下標(biāo) )， 當(dāng)要使用它時(shí) ，隨時(shí)用 ReDim語句重新指出數(shù)組大小 。 使用動(dòng)態(tài)數(shù)組的優(yōu)點(diǎn)是可以有效地利用內(nèi)存存儲(chǔ)空間 。 本 章 小 結(jié)（ 2） 控件數(shù)組是由一組相同類型的控件組成的 。 它們共用一個(gè)控件名 ， 屬性基本相同 ， 只有 Index屬性的值不同 。 當(dāng)建立控件數(shù)組時(shí) ， 系統(tǒng)給每個(gè)元素賦一個(gè)惟一的索引號(hào) (Index)。 控件數(shù)組共享同樣的事件過程 。 使用 Erase語句可以對(duì)數(shù)組重新初始化 。 使用Array函數(shù)可以為變體型動(dòng)態(tài)數(shù)組或變體型變量賦值 。 使用 For Each...Next語句可以遍歷數(shù)組或集合中的元素 。 用賦值語句可以將一個(gè)數(shù)組的全部元素復(fù)制到另一個(gè)同類型的動(dòng)態(tài)數(shù)組或變體型變量 。 返回首頁 上 機(jī) 實(shí) 訓(xùn) 實(shí)訓(xùn)目的 掌握一維數(shù)組 、 二維數(shù)組和可調(diào) (動(dòng)態(tài) )數(shù)組的建立和使用；掌握控件數(shù)組的建立和使用 。 實(shí)訓(xùn)內(nèi)容 1. 制作一個(gè)將十進(jìn)制整數(shù)轉(zhuǎn)換為二進(jìn)制 、 八進(jìn)制和十六進(jìn)制數(shù)的程序 。 2. 用單選按鈕控件數(shù)組設(shè)置文本框的字體顏色和背景色 。 3. 求數(shù)組元素的最大值 。 4. 數(shù)組元素排序 。 5. 利用數(shù)組統(tǒng)計(jì)字符串中各字母出現(xiàn)的次數(shù) 。 返回首頁 結(jié)束