第十章

　　一、KeyPress事件

　　在窗體上畫一個控件(指前面所講的可以發生KeyPress事件的控件)，并雙擊該控件，進入程序代碼窗口后，從"過程"框中選取KeyPress,即可定義KeyPress事件過程。一般格式為：

　　Private Sub Text1 _ KeyPress(KeyAscii As Integer)

　　End Sub

　　二、KeyDown和KeyUp事件

　　KeyDown和KeyUp事件的參數也有兩種形式，其中:

　　Index As Integer

　　只用于控件數組，而

　　KeyCode As Integer,Shift As Integer

　　用于單個控件。

　　三、鼠標事件

　　為了實現鼠標操作，Visual Basic提供了3個過程模板：

　　(一)壓下鼠標鍵事件過程

　　Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)End Sub

　　(二)松開鼠標鍵事件過程

　　Sub Form_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)End Sub

　　(三)移動鼠標光標事件過程

　　Sub Form_MouseMove(Button As Integer,Shift As Integer,x As Single,y As Single)End Sub

　　四、鼠標光標的形狀

　　(一)MousePointer屬性

　　鼠標光標的形狀通過MousePointer屬性來設置。該屬性可以在屬性窗口中設置，也可以在程序代碼中設置。

　　MousePointer的屬性是一個整數，可以取0~15.

　　(二)設置鼠標光標形狀

　　MousePointer屬性可以通過代碼設置，也可以通過屬性窗口設置。

　　1.在程序代碼中設置MousePointer屬性

　　在程序代碼中設置MousePointer屬性的一般格式為：對象。MousePointer=設置值。

　　2.在屬性窗口中設置MousePointer屬性

　　單擊屬性窗口中的MousePointer屬性條，然后單擊設置框右端向下的箭頭，將下拉顯示MousePointer的15個屬性值。

　　3.自定義鼠標光標

　　如果把MousePointer屬性設置為99,則可通過MouseIcon屬性定義自己的鼠標光標。有以下兩種方法：

　　(1)如果在屬性窗口中定義，可首先選擇所需要的對象，再把MousePointer屬性設置為"99-Custom",然后設置MouseIcon屬性，把一個圖標文件賦給該屬性(與設置Picture屬性的方法相同)。

　　(2)如果用程序代碼設置，則可先把MousePointer屬性設置為99,然后再用LoadPicture函數把一個圖標文件賦給MouseIcon屬性。

　　4.鼠標光標形狀的使用

　　在Windows中，鼠標光標的應用有一些約定俗成的規則。為了與Windows環境相適應，在應用程序中應遵守這些規則，主要有：

　　(1)表示用戶當前可用的功能，如"I"形鼠標光標(屬性值3)表示插入文本;十字形狀(屬性值2)表示畫線或圓，或者表示選擇可視對象以進行復制或存取。

　　(2)表示程序狀態的用戶可視線索，如沙漏鼠標(屬性值11)表示程序忙，一段時間后將控制權交給用戶。

　　(3)當坐標(X,Y)值為0時，改變鼠標光標形狀。

　　五、拖放

　　(一)與拖放有關的屬性、事件和方法

　　1.屬性

　　有兩個屬性與拖放有關，即DragMode和DragIcon。

　　2.事件

　　與拖放有關的事件是DragDrop和DragOver。

　　(一)自動拖放

　　(二)手動拖放

　　編輯推薦：

　　權威預測：2013年全國計算機等級考試時間

　　2013年上半年計算機等級考試報名時間預測

　　各地2012年9月全國計算機等級考試成績查詢預告