第十章  

一、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。  
（二）自动拖放  
（三）手动拖放