visual basic程序设计案例教程第4章.pptVIP

第4章　事件驱动程序设计 4.1 鼠 标 事 件　　作为重要的计算机输入设备，鼠标在许多应用程序中被普遍使用，在Visual Basic程序设计中，鼠标应用的设计相当重要。鼠标事件设计主要是如何检测鼠标的输入操作和响应由鼠标的输入操作而引起的事件过程。　　鼠标常用的5个事件分别是鼠标单击事件Click、鼠标双击事件DblClick、按键事件MouseDown、按键释放事件MouseUp、鼠标移动事件MouseMove、DragDrop事件和DragOver事件。 4.1.1 鼠标单击事件　　1. 事件描述　　当鼠标光标落在某一对象时，单击鼠标左键或右键，发生该事件。　　2. 事件语法　　当控件是独立变量时，事件中不含参数，格式为　　　　Sub object_Click()　　例如：　　　　Sub Form_Click()　　当对控件数组操作时，事件中包含名称为Index的整型参数，其目的是为了区分每个数组元素，相当于数组的下标，格式为 　　　Sub object_Click(Index As Integer)　　例如：　　　Sub Command_Click(Index As Integer)　　3. 事件说明　　当对象为对象数组时，Index返回该对象的下标值。　　对于Command Button、Checkbox、Optionbutton对象，只有单击鼠标左键才会引导该事件。　　前面章节中已经对Click事件进行了使用，尤其对CommandButton_Click事件进行了大量的举例，本节不再进行详细说明。 4.1.2 鼠标双击事件　　1. 事件描述　　当鼠标光标落在某一对象时，快速两次单击鼠标左键或右键，发生该事件。　　2. 事件语法　　　Sub object_DblClick　　　Sub object _ DblClick (Index As Integer)　　3. 事件说明　　当对象为对象数组时，Index返回该对象的下标值。产生该事件的同时也产生Click事件。 4.1.3 MouseDown、MouseUp、MouseMove事件　　1. 事件描述　　MouseDown事件是操作者按下鼠标任意键时产生的。　　MouseUp事件是操作者放开鼠标任意键时产生的。　　MouseMove事件是操作者按下鼠标任意键并移动鼠标时产生的。 　　2. 事件语法　　Sub Form_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single)　　Sub object _MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single)　　Sub Form_MouseUp(Button As Integer, Shift As Integer,X As Single, Y As Single)　　Sub object _MouseUp(Button As Integer, Shift As Integer,X As Single, Y As Single)　　Sub Form_MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single)　　Sub object _MouseMove(Button As Integer, Shift As Integer,X As Single, Y As Single) 　　3. 事件说明　　? 参数Button表示按下的是鼠标哪个键。　　1—左键；2—右键；4—中键。　　当然也可同时按下好几个键(只有在MouseMove事件中)，例如：3代表同时按下左右键。　　? ?Shift参数的值代表是否同时按下Shift、Ctrl、Alt等控制键，Shift=1，Ctrl=2，Alt=4，当然也可以同时按下多个控制键，如：Shift+Ctrl+Alt=7，Shift+Ctrl=3。　　? 参数X、Y代表在发生事件时鼠标所在的坐标位置。 　　? 发生顺序：MouseMove→MouseDown→Click→DblClick→MouseUp。 　　4. 案例说明　　【案例4.1】利用鼠标的单击事件Click选取不同的线型，在指定的坐标处绘制不同线型的圆。　　案例分析：本案例需要经过两个步骤完成设计，首先在选取线型方面可以使用Option单选按钮控件数组，鼠标的Click(Index As Integer)事件中的Index即为所