说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB 5.0中实现鼠标拖放

HTML文档下载 WORD文档下载 PDF文档下载
VB 5.0中实现鼠标拖放


Windows 3.x 、 Windows 95 和 Widnows 98中,拖放是最常用的操作,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.Picture
End Sub
接着用MouseDown事件过程打开拖拉开关。
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 1
End Sub
下面过程是当松开鼠标按钮时,关闭拖拉开关,停止拖拉并产生DragDrop事件。
Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 2
End 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中文版下运行通过。 (乌鲁木齐新疆工学院 屈强 )
小而美的Diffbot:将Web页面转化为数据库,获多位科技大佬注资 “叙利亚电子军”对美国多家网站发起“电子制裁” 麻省理工TR35之IT界年轻有为创新者(上) Linux用户须知的16款实用软件 新平台,新惊喜:记第二届Coding For Fun 创业建议泛滥成灾 实用的不多 腾讯云俱乐部北京站:知名手游商畅谈云时代开发运营策略 LG再战平板市场:将推出8.3英寸平板G Pad 编程语言与工具专题论坛:各类编程语言使用体会分享 淘宝、腾讯、豆瓣、支付宝、网易专家热议大数据分析与BI实战 “创新或灭亡”:Google的80/20只是转移视线的说辞罢了 自动化编排,配合SDN的iMC V7更加开放 [回顾]比尔·盖茨传奇的前半生 IT基础设施与运维论坛:IT基础设施及运维经验分享 记华为HCC2013 Day1:发力高端存储 HCC 2013虚拟化论坛:虚拟化未来发展方向 Windows 8操作系统市场份额增至7.41% Windows 7仍最受欢迎 【开源专访】Sea.js创始人玉伯的前端开发之路 SDCC 2013:阿里周宝方谈“去IOE”战略及实施 百度和高德:最后谁是地图的王者? 【CTO论道】瑞智和康CEO陶建辉:软硬结合是消费电子新潮流 10大高效率原型设计工具 JIRA与敏捷:李小龙教给我们的敏捷开发之道 百度开放云:Light Up The World,与开发者共享云未来 有胆你就来!11个在线编码大赛 CTO如何避免决策失控:第一步-定义角色 后机械硬盘时代,那些引领风骚的闪存初创公司 致远文杰:传统企业如何实现移动化转型? 记华为HCC2013 Day2:SDN开放编程系统OPS打造生态圈 HCC2013:华为FusionCube融合至简,性能至优 已确认Stephen Elop候选微软下任CEO ie突然打不开ftp网络了 谁能帮我解决这个对我来说的难题!!!(分数不够可以再加) 大家对2008奥运标志有什么看法?? 第一次在LINUX下使用GCC.... ie突然打不开ftp网络了 好久没来了 来看看 最优三角剖析的问题 why squid can not start? 关于字符串的问题,数组和指针有什么区别? 这个日历是怎么搞出来的,比较实用,怎么做一个 一个调用存储过程小问题 来看看 很简单的问题,请教一下 软件工程中哪本教材比较好? 看BCB5的书,在BCB6编译是否完全能通过? 正义的高手门请伸出你们的手黑了这个彩票网站吧!(海南私人彩票害了很多人倾家荡产,家破人亡,我家也深受其害) ie突然打不开ftp网络了 我的MATRIX观----生命的究极存在形式 关闭窗口的问题 因为昨天晚上的积极表现。 我的真情告白·!#¥%…… 遇到了“Destination host unreachable.”,谁能简单的帮我分析一下出错的可能性。 关于安装windoew 2003的初级问题.解决立刻给分. 如何在LISTVIEW里输出打印? 现在你应该睡了~ 困了,睡觉去~~~~~~~~~ 有没有可能在outlook express中加入自已的按钮? 有没有可能在outlook express中加入自已的按钮? 一个sql表达式的问题 JBUILDER9中用代码改变程序的外观, 难?易?,如何写,见贴内,谢谢! 我的电脑里的g盘分区损坏(磁盘坏道)请问有没有补救的方法? 谁有培训教材,单位培训的?? 印章问题?? 如何实现文件上传?在线急等!!! 如何查询出数据库中相同的字段值??? 可以动态改变水晶报表的文本的内容吗? ASP.net提示无法调试 我下载了Fastreport 2.47的中文版,可是不知道怎么用! 请问我在VB.NET里面控制,把SQL里面的数据输出到Excel,但是有一列是000开头的,到Excel后怎么000就不见了呢? 哪位老大有asp.net和.net平台的电子书?可否共享一下? 请问JDK1.4里面主要包括哪些类包 一个初学者的问题? 计算机间发送消息的问题。 请教各位前辈KEIL C51调试的问题 DataGrid控件中如何用selectindexchang方法改变选中的行的颜色》 SOS!今天我的PB7.0里面的Library 和 DB Profile不能用了.(100分) Application 怎样接收参数,并传给窗体?谢谢! vb中执行access里面的查询 请高手详细指点,我的服务器win2000---server,现在想安装WIN2003--SERVER(在同一台服务器),把AD从2000server导出来,在到2003server 为什么要使用内存dc? 下列语句序列执行后,k 的值是 int x=6,y=10,k=5; switch( x%y ) { case 0:k=x*y; case 6:k=x/y; case 12:k=x-y; default:k=x*y-x; }A.60B.5C.0D.54A B C D 甲、乙俩人相距18千米,甲在后,乙在前,同时出发同向而行,甲骑车每小时行8千米,乙步行每小时行5千米,问甲几小时后追上乙? 如图,△ABC经过一次旋转得到△A‘B‘C’,请找出这一旋转的旋转中心,这是作业题,最好给我发张图, 已知5/x+3/y=2那道题,咋写啊,愁 把“看”的近义词添入括号中:管中()豹 ()前()后 一()无余 下列语句序列执行后,k 的值是 int i=10,j=18,k=30; S.witch( j - i ) { caS.e 8 :k++; caS.e 9 :k+=2; caS.e 10:k+=3; default :k/=j; } 世界上最有名的人是谁 猴子吃桃问题:猴子第一天摘下若干个桃子,当即吃了一半,还不瘾,又多吃了一个 第二天早上又将剩下的桃子吃掉一半,又多吃了一个.以后每天早上都吃了前一天剩下 的一半零一个.到第10天早 面面相()、相得益()再解释所填字? 初二人教版暑假大串联物理的答案 谁是世界上最有名的人 欧盟称将向叙利亚提供8500万欧元人西班牙称监听行为无法接受 敦促美国提韩国陆军前方哨所士兵中枪身亡 军方展卜拉希米抵达叙利亚开始斡旋叙利亚问题联合特使卜拉希米抵达大马士西班牙称监听行为无法接受 敦促美国提袁隆平:终极目标水稻亩产1200公斤曝福建闽侯抽调教师协助拆迁 官方称已多国对美国监听表达不满要求解释 研究西班牙称遭大规模监控难以接受 促美公尼泊尔政客涉嫌谋杀同党候选人 两印度南区新品主打三四房 实用率近100%本周最关注城区积压11300套新房 一年时间才项目为何“落地难”?18镇共投3251万 建成公共服务平贡案《梦回荔枝湾》走进台山艺术酒吧miu2双人套餐仅售258元楼市过冬危中有机 阶段性购房时机来了壹加壹神湾综合超市开业温泉宾馆1年成创造“世界速度”解密中山“第一”档案
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘