第10章键盘与鼠标事的件过程.pptVIP

* 3.自定义鼠标光标 如果把MousePointer属性设置为99，则可通过MouseIcon属性定义自己的鼠标光标。有以下两种方法： （1）在属性窗口中定义，可首先选择所需要的对象，再把其MousePointer属性设置为“00-Custom”，然后设置MousePointer属性，把一个图标文件赋给该属性。 （2）用程序代码设置，则可先把MousePointer属性设置为99，然后再用LoadPicture函数把一个图标文件赋给MouseIcon属性。例如： Form1. MousePointer=99 Form1.MouseIcon=LoadPicture(c:\Visual Basic98\graphics\icons\arrows\point02.ico) * 10.4 鼠标光标的形状 4.鼠标光标形状的使用 在Windows中，鼠标光标的应用有一些约定俗成的规则。为了与Windows环境相适应，在应用程序中应遵守这些规则,主要有： （1）表示用户当前可用的功能，如“I”形鼠标光标（属性值3）表示插入文本；十字形状（属性值2）表示画线或圆，或者表示选择可视对象以进行复制或存取。 （2）表示程序状态的用户可视线索，如沙漏鼠标（属性值11）表示程序忙，一段时间后将控制权交给用户。 （3）当坐标（X，Y）值为0时，改变鼠标光标形状。 注意，与屏幕对象（Screen）一起使用时，鼠标光标的形状在屏幕的任何位置都不会改变。不论鼠标光标移到窗体还是控件内鼠标形状都不会改变，超出程序窗口后，鼠标形状将变为默认箭头。如果设置“Screen.MousePointer=0”,则可激活窗体或控件的属性所设定的局部鼠标形状。 * 10.4 鼠标光标的形状 3.自定义鼠标光标 如果把MousePointer属性设置为99，则可通过MouseIcon属性定义自己的鼠标光标。有以下两种方法： （1）在属性窗口中定义，可首先选择所需要的对象，再把MousePointer属性设置为“00-Custom”，然后设置MousePointer属性，把一个图标文件赋给该属性。 （2）用程序代码设置，则可先把MousePointer属性设置为99，然后再用LoadPicture函数把一个图标文件赋给MouseIcon属性。例如： Form1. MousePointer=99 Form1.MouseIcon=LoadPicture(c:\Visual Basic98\graphics\icons\arrows\point02.ico) * 10.5 拖放 在 WINDOWS中，拖放是最常用的操作，VB在程序设计中能非常容易地实现这一操作,除了菜单、计时器和对话框外，其他控件在运行期间均可被拖放。1、与拖放有关的属性：　　 （1）DragMode 属性　　该属性用来设置自动或手动拖放模式，缺省值为0（手动方式）。属性设为1时，自动执行拖放操作。该属性即可以在属性窗口中设置，也可以在程序中设置。 一个对象的DragMode属性值为1时，该控件不再接收Click事件和MouseDown事件。　　（2）DragIcon 属性　　在拖动中，并非对象本身在移动，而是代表对象的图标。即一旦拖动某个控件，该控件就变成一个图标，放下后再恢复原来控件。DragIcon属性含有一个图标或图片的文件名，Picture1.DragIcon=load(“c:\vb98\graphics\icons\computer\disk06.ico ) 当拖动Picture1时，Picture1即变成由disk06.ico 所代表的图标。 * 2、与拖放有关的事件 DragDrop ：把控件拖动，如松开鼠标按钮，则产生DragDrop事件，事件过程格式如下： Sub 对象名_DragOver(Source As Control, X As Single , Y As single, State As Integer)......End Sub 该对象含有三个参数，其中Source 为一个对象变量，类型为Control .该参数含有被托动对象的属性，参数X、Y为松开鼠标按钮时光标的位置。 DragOver DragOver 事件：用于图标移动，格式如下  Sub 对象名_DragOver(Source As Control, X As Single, Y As Single, State As Integer)……End Sub　　 该事件含有四个参数，Source 含义同前，X、Y是鼠标托动时光标的位置坐标，State有三个值可取，