【文章內(nèi)容簡(jiǎn)介】 鍵盤事件 鍵盤和鼠標(biāo)事件過程 KeyDown和 KeyUp事件的語法雷同，以 KeyDown為例： Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) … (窗體的 KeyDown事件過程代碼 ) End Sub Private Sub Object_KeyDown([Index As Integer,] KeyCode As Integer， Shift AsInteger) … (對(duì)象的 KeyDown事件過程代碼 ) End Sub 鍵盤事件 鍵盤和鼠標(biāo)事件過程 注意： （ 1） KeyPress事件的 KeyAscii參數(shù)返回與按鍵相對(duì)應(yīng)的ASCII碼。 KeyDown和 KeyUp事件的 KeyCode參數(shù)返回鍵盤的物理狀態(tài)，即該鍵的掃描碼，其值只與按鍵在鍵盤上的物理位置有關(guān)。 請(qǐng)對(duì)照 ： 鍵（字符） KeyCode KeyAscii A amp。H41 amp。H41 a amp。H41 amp。H61 5 amp。H35 amp。H35 % amp。H35 amp。H25 1 （大鍵盤上） amp。H31 amp。H31 1 （數(shù)字鍵盤上） amp。H61 amp。H31 鍵盤事件 鍵盤和鼠標(biāo)事件過程 （ 2） Index是一個(gè)整數(shù)，用來唯一標(biāo)識(shí)一個(gè)在控件數(shù)組中的控件。 （ 3） Shift參數(shù)是一個(gè) 3位二進(jìn)制整數(shù)，標(biāo)明在該事件發(fā)生時(shí)是否還同時(shí)按了 Shift、 Ctrl和 Alt這 3個(gè)控制鍵。3位二進(jìn)制數(shù)的最低位對(duì)應(yīng) Shift，中間位對(duì)應(yīng) Ctrl，最高位對(duì)應(yīng) Alt。對(duì)應(yīng)位為 1表示相應(yīng)鍵被按下，為 0表示該鍵未被按下。 鍵盤事件 鍵盤和鼠標(biāo)事件過程 例 618 設(shè)計(jì)一個(gè)窗體，顯示按鍵的 KeyAscii碼與 KeyCode碼，程序的運(yùn)行結(jié)果如左圖所示。 例 619 在窗體上用 Image控件顯示一幅圖片，用鍵盤上的 ← 、 ↑ 、 → 、 ↓ 方向鍵移動(dòng)該圖片。 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 1. 鼠標(biāo)指針 Visual Basic中處理鼠標(biāo)指針主要是通過MousePointer和 MouseIcon兩個(gè)屬性的設(shè)置完成的，大部分控件都具有這兩個(gè)屬性。 (1) MousePointer屬性 該屬性可以用來定義顯示各種鼠標(biāo)指針。格式： 對(duì)象名稱 .MousePointer=設(shè)定值 MousePointer屬性可以取 17種預(yù)定義整數(shù)值。其中設(shè)定值為 0～ 15時(shí)分別對(duì)應(yīng) 16種預(yù)定義的指針，如表64所示。 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 (2)MouseIcon屬性 當(dāng) MousePointer屬性值被設(shè)定成 99時(shí)，還可以利用 MouseIcon屬性自定義鼠標(biāo)指針。該屬性可以把鼠標(biāo)指針設(shè)置成一個(gè)自定義圖標(biāo) (來自某一個(gè)圖標(biāo)文件 )。 MouseIcon屬性值的設(shè)定既可利用屬性窗口在設(shè)計(jì)時(shí)指定，也可在運(yùn)行時(shí)通過語句指定。用語句指定的語法格式有以下兩種： 對(duì)象名 .MouseIcon=LoadPicture(PathName) 對(duì)象名 .MouseIcon=另一對(duì)象名 .Picture 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 例 620 窗體上有一個(gè)圖像控件和一個(gè)定時(shí)器控件。設(shè)置圖像的鼠標(biāo)指針，使鼠標(biāo)指針指向圖像時(shí)成為下圖所示的手形指針。當(dāng)單擊圖像時(shí)窗體中的鼠標(biāo)指針成為系統(tǒng)忙指針，然后每隔 ，當(dāng)調(diào)用 5次定時(shí)器事件過程后停止定時(shí)器事件，同時(shí)窗體的鼠標(biāo)指針恢復(fù)為默認(rèn)指針。 演示程序 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 2. 鼠標(biāo)事件 除了前面介紹的 Click事件和 DblClick事件外，還可通過 MouseMove、 MouseDown和 MouseUp事件使應(yīng)用程序?qū)κ髽?biāo)位置及狀態(tài)的變化做出響應(yīng)。 以 MouseMove為例，其語法格式為： Private Sub Object_MouseMove([Index As Integer,] Button As Integer, Shift As Integer, x As Single, y As Single) … (對(duì)象上 MouseMove事件過程代碼 ) End Sub 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 各參數(shù)的含義如下： （ 1） Oblect是一個(gè)具有鼠標(biāo)事件的對(duì)象（包括窗體）。 （ 2） Button為一個(gè)整數(shù)，它反映被按下的鼠標(biāo)按鍵。 Button=1，左鍵被按下； Button=2，右鍵被按下； Button=4，中間鍵被按下； Button=0，無按鍵被按下。 （ 3） Shift為一個(gè)整數(shù)，其含義和設(shè)置值同鍵盤事件。 （ 4） x和 y指定鼠標(biāo)當(dāng)前位置，其值由對(duì)象的坐標(biāo)系統(tǒng) 確定。 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 例 621 利用 MouseMove事件結(jié)合繪圖方法，在鼠標(biāo)移動(dòng)時(shí)畫圖。 演示程序 鼠標(biāo)事件 鍵盤和鼠標(biāo)事件過程 例 622 結(jié)合 MouseMove、 MouseUp和 MouseDown事件，設(shè)計(jì)一個(gè)直接用鼠標(biāo)畫圖的簡(jiǎn)單畫圖程序，實(shí)現(xiàn)如下功能：鼠標(biāo)任意按鍵被按下時(shí)啟動(dòng)繪圖狀態(tài)，當(dāng)用戶按下鼠標(biāo)左鍵并移動(dòng)時(shí)可以畫出寬度為 2的細(xì)點(diǎn)，按下鼠標(biāo)右鍵并移動(dòng)時(shí)可以畫出寬度為 6的粗點(diǎn)，當(dāng)鼠標(biāo)按鍵彈起時(shí)，禁止繪圖功能。 演示程序 1.(2)(6)(10) 2. 3. 4.(1)(7) (10) 常用控件 第 7章 本章要點(diǎn) Basic控件概述 （單選按鈕、復(fù)選框、框架、列表框、組合框） （圖片框、圖像框、直線與形狀 ） ActiveX控件 Visual Basic控件概述 Visual Basic控件可分為 3類： 1. 標(biāo)準(zhǔn)控件（內(nèi)部控件 ） :啟動(dòng) Visual Basic后，工具箱中列出的是標(biāo)準(zhǔn)控件，且標(biāo)準(zhǔn)控件總是出現(xiàn)在工具箱中 。 2. ActiveX控件： 擴(kuò)展名為 .ocx的獨(dú)立文件，是Visual Basic工具箱的擴(kuò)充部分。程序中一旦要使用ActiveX控件，需先將它們添加到工具箱中。 3. 可插入對(duì)象 ：是 Windows應(yīng)用程序的對(duì)象，例如“ Microsoft Excel工作表 ” 。這些對(duì)象能夠添加到工具箱中，可以把它們當(dāng)作控件使用。 Visual Basic控件的分類 1．標(biāo)準(zhǔn)控件的默認(rèn)屬性 一個(gè)控件可能有許多屬性，但其中有兩個(gè)屬性比較特別：一是名稱屬性，它的值其實(shí)是對(duì)象的標(biāo)識(shí)符，將在對(duì)應(yīng)的事件過程中引用；二是對(duì)象的默認(rèn)屬性，一般把該對(duì)象中最常用的屬性確定為默認(rèn)屬性。 常見對(duì)象的默認(rèn)屬性如表 71所示。 對(duì)象的默認(rèn)屬性在使用時(shí)可以省略其屬性名。 例： =Hello 可寫成 Textl=Hello 默認(rèn)屬性與公共屬性 Visual Basic控件概述 2．常見的公共屬性 有一些屬性是許多控件都具有的，而有的屬性只是某個(gè)對(duì)象特有的。對(duì)于一些多數(shù)控件都有的公共屬性，在使用上具有相似的作用。主要有： 默認(rèn)屬性與公共屬性 Visual Basic控件概述 名稱屬性、 Caption屬性、 Font屬性 Left、 Top、 Width、 Height屬性 BackColor屬性、 ForeColor屬性 Visible屬性、 Enabled屬性 AutoSize屬性、 AutoRedraw屬性等 單選按鈕（ OptionButton）也稱作選擇按鈕。按鈕被選中后左側(cè)圓圈中會(huì)出現(xiàn)一個(gè)黑點(diǎn)，用戶可通過單選按鈕是否被選中控制操作。通常，一組單選按鈕是彼此相互排斥的選項(xiàng)，用戶只能從中選擇一項(xiàng)，實(shí)現(xiàn)一種“ 單項(xiàng)選擇 ” 的功能。 （ 1）名稱（ Name）： Optionx, x=1,2,… （ 2） Caption：?jiǎn)芜x按鈕的顯示標(biāo)題 （ 3） Alignment：?jiǎn)芜x按鈕在顯示標(biāo)題的哪一側(cè) （ 4） Value： 單選按鈕是否被選中 單選按鈕 選擇性控件 Click是單選按鈕控件最基本的事件。在 Click事件中，單擊未選中的單選按鈕時(shí)， Value屬性值為 True；單擊已選中的單選按鈕時(shí)， Value屬性值為 False。 在一組單選按鈕中，在被選中控件的 Value屬性值變成 True的同時(shí)，其他控件的 Value屬性值將自動(dòng)變成False。 單選按鈕 選擇性控件 單選按鈕 例 71 利用單選按鈕控制文本框中文本的對(duì)齊方式，如圖所示。 演示程序 選擇性控件 復(fù)選框（ CheckBox）也稱作復(fù)選按鈕，被選中后左側(cè)方框中會(huì)出現(xiàn) “ √ ” ，用戶可通過復(fù)選框是否被選中控制操作。通常，多個(gè)復(fù)選框可以同時(shí)存在，允許用戶從一組相互獨(dú)立的復(fù)選框中選擇一個(gè)選項(xiàng)、多個(gè)選項(xiàng)或一個(gè)選項(xiàng)也不選。 （ 1）名稱（ Name）： Checkx， x=1,2,… （ 2） Caption、 Alignment：同單選按鈕 （ 3） Value：標(biāo)明復(fù)選框是否被選中 復(fù)選框 選擇性控件 Click是復(fù)選框最基本的事件。單擊未選中的復(fù)選框時(shí)， Value屬性值變?yōu)?1；單擊已選中的復(fù)選框時(shí)，Value屬性值變?yōu)?0；單擊變灰的復(fù)選框（即原 Value屬性值為 2）時(shí)， Value屬性值變?yōu)?0。 復(fù)選框 選擇性控件 復(fù)選框 例 72 創(chuàng)建一個(gè)窗體，有 5個(gè)復(fù)選框和對(duì)應(yīng)的 5個(gè)標(biāo)簽，如左圖所示。通過復(fù)選框控制對(duì)應(yīng)的標(biāo)簽字體，程序的運(yùn)行結(jié)果如右圖所示。 選擇性控件 框架（ Frame）是一個(gè)容器類控件。它和窗體一樣可以容納其它控件，用于控件分組。 （ 1） 名稱（ Name）： Framex, x=1,2,… （ 2） Caption：框架標(biāo)題 （ 3） Enabled：是否可用 （ 4） Visible：是否可見 （ 5） BackColor：一般與窗體的 BackColor相同 有 Click、 DblClick，但很少使用有關(guān)框架的事件過程。 框架 選擇性控件 先在窗體上畫出框架控件，再向框架添加控件，添加控件的方法有兩種。 方法一： 單擊工具箱上的工具，將出現(xiàn)的 “ +”指針放在框架中適當(dāng)位置，并拖出適當(dāng)大小，以添加所需的控件。要注意，不能使用雙擊工具箱上按鈕的方式給框架添加控件。 方法二： 將已有的控件 “ 剪切 ” 到剪貼板，然后選中框架，使用 “ 粘貼 ” 命令將其復(fù)制到框架內(nèi)。 框架 選擇性控件 框架 例 73 創(chuàng)建一個(gè)窗體，有 4組單選按鈕，程序運(yùn)行時(shí)，當(dāng)用戶選擇了不同的單選按鈕組中的單選按鈕，標(biāo)簽的顯示效果如圖所示。 演示程序 選擇性控件 列表框（ ListBox）可以顯示一個(gè)項(xiàng)目列表，供 用戶從中選擇一個(gè)項(xiàng)目或多個(gè)項(xiàng)目。在列表框中，如果項(xiàng)目總數(shù)超過了可顯示的項(xiàng)目數(shù)，則系統(tǒng)會(huì)自動(dòng)加上滾動(dòng)條。 （ 1）名稱（ Name）： Listx, x=1,2,… （ 2） List：存放列表框中所有項(xiàng)目的字符型數(shù)組。 表達(dá)形式 [列表框 .]List(下標(biāo) )，下標(biāo)＝ 0， 1， 2… （ 3） Columns：列表框中的項(xiàng)目單列或多列顯示。 （ 4） Style: 列表框的顯示風(fēng)格 列表框 選擇性控件 （ 5） Sorted：列表框中的項(xiàng)目按字母順序或加入時(shí)的順序排列。 （ 6） ListIndex：被選中的項(xiàng)目序號(hào)（即下標(biāo)）。若列表框中沒有被選中的項(xiàng)目，其值為－ 1 （ 7） ListCount：列表框中的項(xiàng)目總數(shù) （ 8） Text：被選中的項(xiàng)目的內(nèi)容 （ 9） MultiSelect：是否可以復(fù)選 (即選擇多個(gè)項(xiàng)目 ) （ 10） Selected：為布爾型數(shù)組， Selected（ i）測(cè)試某一項(xiàng)（ i=0,1,… ,ListCount1）是否被選中