vb-08过程.ppt

8.8 拖放 1 与拖放有关的属性、事件和方法 除了菜单、计时器和通用对话框外，其他对象均可以在程序运行期间被拖放 属性 DragMode：设置源对象的拖放模式。属性值为1，为自动拖动方式，控件不能正常响应鼠标事件。默认属性值为0，表示启用手动拖动方式，这时必须在MouseDown事件过程中，用Drag方法启动“拖动”，确定拖放操作开始；常常在MouseUp事件过程中，用Drag方法关闭“拖动”，确定拖放操作结束 DropIcon属性：用于设置在拖动时，代表对象移动的图标 8.8拖放 1 与拖放有关的属性、事件和方法 方法 Drag：用于人工启动或停止一个拖动过程 对象名.Drag [整数] 整数取值为0、1、2分别表示取消、开始或结束拖放操作。若此参数省略，则表示开始拖放操作 8.8拖放 1 与拖放有关的属性、事件和方法 事件 DragOver：拖放操作正在进行时发生。可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。鼠标指针的位置决定接收此事件的目标对象 Private Sub 对象名_DragOver([index As Integer,]source As Control, x As Single, y As Single, state As Integer) …… End Sub 其中：source参数表示被拖动的对象；state参数取值为0、1、2分别表示鼠标光标进入、退出或正位于目标对象的区域内 8.8 拖放 1 与拖放有关的属性、事件和方法 事件 DragDrop ：在一个完整的拖放动作(将一个控件拖动到目标对象上并释放鼠标按钮)完成，或使用Drag方法，并将其action参数被设置为2时，该事件发生 Private Sub 对象名_DragDrop([index As Integer,]source As Control, x As Single, y As Single) …… End Sub 一般利用DragDrop事件过程用来控制在一个拖动操作完成时将会发生的情况。例如，可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置 例题 自动拖放：利用图片框控件的鼠标拖放操作，模拟邮件投递 分析： Private Sub Form_Load() Picture2.Picture = LoadPicture(App.Path + \MAIL16A.ico) 图片框2加载图片模拟空邮筒 Picture1.Picture = LoadPicture(App.Path + \MAIL03.ico) 图片框1加载图片模拟邮件 Picture1.DragMode = 1 设置图片框1的拖动模式为自动 End Sub Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single) 图片框2重新加载图片，模拟邮件投递到邮筒成功 Picture2.Picture = LoadPicture(App.Path + \MAIL16B.ico) End Sub 例题 手动拖放：利用图片框控件的鼠标拖放操作，模拟垃圾文件处理 分析： 使用DragMode属性和Drag方法来指定开始拖动的方法。一旦开始拖动，可使用DragOver事件过程来处理位于DragDrop事件前面的事，比如设置拖动图标DropIcon Form_Load: Picture1.Picture = LoadPicture(App.Path + \FOLDER04.ICO) 图片框1加载图模拟文件夹 Picture2.Picture = LoadPicture(App.Path + \WASTE.ICO) 图片框2加载图模拟空垃圾箱 Picture1.DragMode = 0 设置图片框1的拖动模式为手动 Picture1_MouseDown: Picture1.Drag 1 鼠标按下，手工启动拖放 Picture1.DragIcon = LoadPicture(App.Path + \DRAG1PG.ICO) 设置拖动图标模拟废纸 Form_DragOver: Picture1.DragIcon = LoadPicture(App.Path + \DRAG1PG.ICO) 设置拖动图标 Picture2_DragOver: 改变拖动图标模拟手扔了废纸 Picture1.DragIcon = LoadPicture(App.Path + \DROP1PG.ICO) Picture2_DragDrop: ‘图片框2重新加载图片，模拟废纸投送垃圾箱成