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