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

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中文版下运行通过。 (乌鲁木齐新疆工学院 屈强 )
咸鱼大翻身?索尼将发展可穿戴游戏设备 popping:基于Facebook Pop引擎的iOS动画库 《近匠》专访极路由CTO康神 真正智能中心应当这样做 为什么说Android才是游戏开发者的乐土? 开发移动医疗应用必知的10个掘金点 个推CTO叶新江:云推送技术如何助力产品开发 《近匠》Face++:漫谈人脸识别 无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase 十款最新的JavaScript开发工具 JavaScript Promise启示录 百度携多位安全专家深入探讨安全人才快速培养机制 卡饭技术代表严佳:引入安全人才,企业应遵循S.L.E.E.P、S.T.A.R法则 百度资深研发工程师周晓波:平台+数据 百度培养安全人才的重要思路 代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 我有一个关于JSP中文显示问题? 求助,查询lookup,locate,关于variant 谁用过Raize 3.06控件组?请教RzImageComboBox控件怎么用? 在程序中如何打开系统的notepad或wordpad并同时显示字符串? 今天学了一个下午的五笔,进步不小,放分。 asp.net中有自己带的treeview类吗? 谁知道学习汇编语言的网站 !!help! 今天刚装了adsl,可是在win98下用不了,连通信公司的人都没辙(100分) api中怎么知道哪个函数用在哪个dll rave 的最版在哪里可找到 rave 的最版在哪里可找到 !!help! 今天刚装了adsl,可是在win98下用不了,连通信公司的人都没辙(100分) 救救我啊,关系着我的生计呀! 在Window2000上安装Redhat7.3后,机器速度慢得难以让人忍受 delphi5中数据集问题 !!help! 今天刚装了adsl,可是在win98下用不了,连通信公司的人都没辙(100分) 在线:请推荐几本OpenGL的好书!!! VI高级技巧征集中,欢迎大家来交流,谢绝灌水! WINDOWS 2003 SERVER 安装问题 存储过程可以返回记录集吗? CListBox的问题 请问!那位哥哥姐姐可以教我学习呢!? 页眉页角问题 一个关于package的初级问题 窗口大小 win2k+诺顿杀毒软件企业版~~~~~~~~~~~等待,立即送分! 请问我如何将CStatic透明化,即上面显示的字能够映在窗体上,并不是映在灰色CStatic控件上。???????????????? 网页发送短信是如何实现的? 陷入死循环啦!!! 紧急求助!!!!![2000密码] 为什么只能添加一条记录?帮帮忙,谢谢 谁知道比较好的学习汇编语言的网站 如何用JS打开一个文件对话框 有什么办法能让fsck的时候,不需要手动确认? 如何将编写好的*.chm文件连接到编写的应用程序中?(急) 高手请进!SQL SERVER出现问题! 急!!!请教计算机网络中的停止等待协议算法 哪能找到一个图书管理系统示例的源代码,谢谢 一个很简单的备份问题!~~~散分!~~~~~~ 用sql语句查询表,如何自动把Null值转换为0或指定值?? 如何屏蔽win2000下的ctrl+alt+del啊? ADO和字符集问题 请问各位大侠,weblogic里部署jsp和javabean的问题 求问有关Datetime和smallDatetime的问题 在jbuild+mb中,MIDlet和displayabel form 有什么区别,? Resin 2.1.0下面怎么配mm.mysql驱动? 关于web下的参数传递问题,向大家请教。 请教计算机网络中的停止等待协议的算法 有谁用过imagelib吗? 怎么用VB调用access内部定义的函数??? NTLDR is missing 我买了一只天梭自动机械表,在用手大力摇晃听到里面除了有摆陀的声音还有出现哒哒的金属声,是周期性出现我确定不是金属碰撞的声音,而且声音小,这究竟是正常不?其他方面都挺正常的,请 关于毛泽东的忆秦娥.娄山关的几个问题,1“霜晨月”,“从头越”用了什么修辞手法,有什么作用?2你对下面两组意境的理解:“马蹄,喇叭”“苍山,残阳”3这首诗的感情基调是:A悲凄B悲壮C雄壮( 铅酸蓄电池对环境的影响 当什么时候用stb.was doing while stb.was doingwhile引导的时间状语从句,从句和主句什么时候都用过去进行时 don't be a putz 电影《Ink》里 小姑娘对他爸爸说 don't be a putz 请问putz是什么意思putz是傻瓜的意思么? 某包装车间要包装726双皮鞋,已经包装了285双,剩下的如果每小时包装49双,还要做几个小时才能包装完? while I was doing可省略I was吗 Don't be a rabbit.Be a 时尚服装公司制衣车间和包装车间原来一共有工人310人,重新编排岗位后,制衣车间调出15人,包装车间调进28人,这时包装车间的人数比制衣车间的1/4还多3人制衣车间和包装车间原来各有多少人? while后面一定要接doing吗? 】读毛泽东的词《娄山关·忆秦娥》,然后按词的意境,把它扩写内容丰富的一段话.《娄山关·忆秦娥》西风烈,梧桐叶下黄花发,黄花发,  马蹄声碎,喇叭声咽.  雄关漫道真如铁,而今迈步从 在制造园林工具的刀片上,高碳钢和低碳钢是什么区别?比如说成本啦,性能啦,效果等各个有比较的方面帮我解答下.还有就是修枝剪的砧头是什么,有什么作用吗? poor 】读毛泽东的词《娄山关·忆秦娥》,然后按词的意境,把它扩写内容丰富的一段话《娄山关·忆秦娥》西风烈,梧桐叶下黄花发,黄花发,  马蹄声碎,喇叭声咽.  雄关漫道真如铁,而今迈步从 低碳钢和低磁钢有什么区别 老麦的粽子请写出括号里字在文中的意思和表达的效果⑴而我那时又太小,见到他总有一种“高山仰止”的感觉.⑵这就是他的“流动商店”. 光速不变性,是指光的速度相对任意参照系恒为c,还是指任意物质,只要速度达到c就相对于任意参照系不变?9999c的物质相对于同向运动的速度为0.5c的物质,是0.9999c-0.5c么? 不锈钢 低碳钢 区别 老麦的粽子阅读答案1.作者怀念老麦,不仅因为他的粽子好吃,( ),更是因为老麦是一个()、()、()、()的人.(请用文中带有概括性的词语填空)2.请写出括号里字在文中的意思和表 光速不变原理是不是只适于真空啊 同一种介质不同的参考系 是不是也满足光速不变啊? 为什么沉船在海底容易生锈,而长时间航行却不易生锈你看过泰坦尼克还这部电影吗?影片中当搜索人员在船舱里四处寻找宝藏时,我们可以看到,沉在海底的泰坦尼克号早已生锈,成了一堆废铁. 1.作者怀念老麦,不仅因为他的粽子好吃,( ),更是因为老麦是一个()、()、()、()的人.(请用文中带有概括性的词语填空)2.请写出括号里字在文中的意思和表达的效果⑴而我那时 监控摄像头 晚上不亮白天亮是什么原因我家里装的摄像头带红外线的那种 为什么晚上不亮 白天就亮 关于海底沉船的电影海底沉船的故事 好象是俄罗斯的船 喝了船上的伏特加之后身体发生变化 是什么电影不是幽灵船 故事是发生在海底的沉船里面 老麦的粽子 1.作者怀念老麦,不仅因为他的粽子好吃,( ),更是因为老麦是一个()、()、()1.作者怀念老麦,不仅因为他的粽子好吃,(货真价实 ),更是因为老麦是一个()、()、() 说法不正确的是,以及原因A开了盖的葡萄酒容易变酸,这个过程中发生了氧化反应 B糖类、油脂和蛋白质都可以酿酒 C乙醇与酸性高锰酸钾溶液反应,被直接氧化成乙酸 沉船之岛海洋面部是什么形状的? Mary meets Betty while doing shopping in a supermarket,中的 while是什么意思,在句子中解释为什么? 一个数据结构矩阵地址问题设矩阵A(aij,1 海底沉船怎么样 毛泽东的《忆秦娥 娄山关》1.词中的“咽”、“碎”二字的含义2.与《七律 长征》对比从写作风格和作者抒发的感情的角度谈谈两者的区别3.写出胜利后的心情的诗句是什么所有的问题都关 『数据结构』 二维数组 1.设二维数组A[0…m-1][0…n-1]按行优先顺序存储在内存中,第一个元素的地址为p,每个元素占k个字节,则元素aij的地址为( ).A.p +[i*n+j-1]*k B.p+[(i-1)*n+j-1]*kC.p+[(j-1)*n+i-1]*k D. 经历为题写作泰戈尔说:“因为经历,所以懂得.”经历是人生的必然,经历是人生的财富.经历能催熟你的心智,经历能滋养你的生命.阅尽千山万水,尝遍酸甜苦辣.行走在路上,这便是人生.请以“ 毛泽东《忆秦娥,娄山关》 如何理解层次分析法中的指标无量纲化和无极化处理的目的 如何进行无量纲化? 忆秦娥.娄山关表达了毛主席什么的思想感情 C7H6O2的芳香族含氧衍生物的同分异构体有哪些? 选择题1.Who is the man ------the green coat? A.in B.at C.with2.The girl------is my sister. A.in the red B.in red C.in red coat.是不是1选A.2选B.请高手指点,为什么? 单词拼写I don't enjoy exciting v--.Because I'd just like to relax on a beach快 焰色反应呈黄色的强碱是? 用矩阵初等变换求逆矩阵!急!详解第一行(0 2 1)第二行(2 -1 3)第三行(-3 3 -4)!详解写清具体步骤,谢谢 急.普通M24螺帽的的对角和对边尺寸是多少呢?还有M22的呢?M24螺帽与螺栓连接后的抗拉强度是多少呢?螺帽的对角尺寸应该比对边尺寸大吧? 钠的火焰呈黄色 铜的火焰颜色呈蓝绿色 这种奇异的发光现象 食品级TPE几种不同的测试方法 端午的粽子阅读答案端午节就要到了.这使我格外思念家乡,思念那活鲜鲜的芦叶,思念那家家户户都在包着的粽子,就像回到了故乡的田野、潮沟河畔似的……我记得小的时候,端午节前几天就 我想种蘑菇,有没有知道哪里卖蘑菇菌的,种值技术和先期的投入. 食品有哪些属性?食品的营养成分有哪几种? 1公斤M24螺帽多少个 低噪声轴流风机是用滑动轴承还是用滚动轴承 液体接触角的测试方法有哪几种 粽子 内容是:每年端午节,家家户户都要包粽子,吃粽子.粽子()以它特有的形状、 ……3.煮熟以后,剥开墨绿的箬叶,只见洁白的米团里仿佛嵌着几颗深红油亮的玛瑙,着实好看.谈谈你对这句 Cr3+基态 电子排布式(Cr(NH3)6)3+ Nothing is impossible,Just Enjoy Daliy Life的中文意思是什么 背影读书笔记,赏析 M24螺帽的24是什么意思 平均无量纲化的数据组能做相关性分析吗?如平均无量纲化的水稻产量和温度两者之间能做相关性分析吗?分析方法有没有什么不同呢? 遇到强碱、强酸如氢氧化钠、氢氧化钙、浓硫酸、硝酸、盐酸等烧伤,应采取以下哪种措施最合适?( )A、先用柠檬酸或碳酸氢钠溶液中和残留物,再用清水冲洗,然后送医院B、用大量清水 粽子飘香话端午阅读答案 日光灯白天亮,晚上不亮有什么办法解决 孟加拉国一列车脱轨 致两人死亡30余西班牙承认与美国在情报搜集方面存在有韩美启动第六轮防卫费分担会谈 意见分任贤良任国家互联网信息办公室专职副主银泰15周年大庆 抢鲜预购卡首次浙江大型留学网站亦邦留学网正式上线中国重拳频出提升巡视反腐透明度 方便遵义市委书记廖少华涉嫌严重违纪被免职中国控烟协会吁问责政府发红头文件摊派专家称伊利方舟工程“双屏互动”实现公首都航空长沙飞杭州航班受爆炸物威胁备“关爱母婴健康”都市月嫂进百企之走进乌克兰加入欧盟协定签署期或推迟到20马英九:做好充分准备应对大陆对台军事大学教授爆料支持转基因副部长曾受聘美66岁精神病老人在医院死亡 尸体三个央行重启7天期逆回购 “锁长放短”思温州一宝马车被撞后烧成空壳 保险过期林书豪喋血砍16分魔兽26板 火箭胜米兰球迷网上甩卖主帅 阿莱格里\"售中国儿童中心主任:儿童性教育不应再遮大杀器即将回归!罗本伤后首次恢复有球经济危机的本质(精辟!透彻!)全民小时代到来:透视90后的群体特性特伦斯-琼斯:鼻子伤势无碍,不会影响为什么明朝皇帝崇祯选择自杀殉国?猜猜我们在苹果发布会场外碰见了谁?|马布里:方硕是我的作品,郭艾伦进步大为了你,就算成了哑巴有怎样感受时代的体温 | #月下陌生人#获王者匠心:真正的创新都归于对人性的探张卫健演讲自爆:我为什么剃光头?蔡元培:我的读书经验都是“艳照门”,科技改变了什么?王靓雅是谁?王靓雅个人资料照片林语堂:论读书北汽“共享充电桩APP”,突破?OR矢野浩二获日本外务大臣 矢野浩二个人职场“第四种关系”,你可曾拥有?李克强夏季达沃斯现场答问“重音”:改互金之路不再迷茫朱光潜:谈读书
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘