当前位置：首页 -> 技术开发 -> 程序开发 -> VB 5.0中实现鼠标拖放

VB 5.0中实现鼠标拖放

时间： 2021-07-31 作者：daque

windows 3.x 、 windows 95 和 widnows 9第88中学，拖放是最常用的操纵，vb5.0在步调安排中能特殊简单地实行这一操纵。与拖放相关的属性 1、dragmode 属性该属性用来树立机动或手动拖放形式，缺省值为0（手动办法）。为了让控件机动实行拖放操纵，必需把它的属性设为1，该属性即不妨在属性窗口中树立，也不妨在步调中树立，如：picture1.dragmode=1一个东西的dragmode属性值为1时，该控件不复接受click事变和mousedown事变。 2、dragicon 属性在拖动中，并非东西自己在挪动，而是代办东西的图标。即一旦拖动某个控件，该控件就形成一个图标，放下后再回复从来控件。dragicon属性含有一个图标或图片的文献名，如：picture1.dragicon=c:\vb5\icons\computer\disk06.ico 当拖动picture1时，picture1即形成由disk06.ico 所代办的图标。与拖放相关的事变与拖放相关的事变是dragdrop 和dragover, 把控件拖动，如松开鼠标按钮，则爆发dragdrop事变，事变进程方法如次：sub 东西名_dragover(source as control, x as single , y as single, state as integer)......end sub 该东西含有三个参数，个中source 为一个东西变量，典型为control .该参数含有被托动东西的属性，参数x、y为松开鼠标按钮时间目标场所。 dragover 事变用来图标挪动，方法如次 sub 东西名_dragover(source as control, x as single, y as single, state as integer)……end sub 该事变含有四个参数，source 含意同前，x、y是鼠标托动时间目标场所坐标，state有三个值可取，当为0时，鼠标光标正加入目的东西地区，当为1时，鼠标光标正退出目的东西地区，当为2 时，鼠标光标正坐落目的东西的地区之内。与拖放相关的本领与拖放相关的本领是move 和drag。 move 本领大师仍旧很熟习了，底下引见drag本领，drag本领方法为：控件.drag 平头，平头范畴为0，1，2 含意辨别为： 0 废除托动操纵，1 发端拖动操纵，2 中断操纵手动举例在窗体上创造一个图片框，装入一个图标，开始树立图片框的dragicon 属性。sub form_load( )picture1.dragicon=picture1.picture1.pictureend sub 接着用mousedown事变进程翻开干脆电门。sub picture1_mousedown (button as integer, shift as integer, x as single, y as single)picture1.drag 1end sub 底下进程是当松开鼠标按钮时，封闭干脆电门，遏止干脆并爆发dragdrop事变。sub picture1_mouseup (button as integer, shift as integer, x as single, y as single)picture1.drag 2end sub 结果是dragdrop事变sub form_dragdrop (source as integer, x as single , y as single)source.move (x－ source.width/2),(y－ source.height/2)end sub 该步调在vb5.0华文版下运转经过(乌鲁木齐新疆工作和学习院屈强 830008)

VB 5.0中实现鼠标拖放

相关推荐

推荐下载

热门阅览

最新排行