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

在Visual Basic中如何拖动窗体或控件

HTML文档下载 WORD文档下载 PDF文档下载
在Visual Basic中如何拖动窗体或控件


现在的许多Windows下的应用程序,都采用了图形化的界面,例如:WINAMP等!
这样做的好处是可以使程序界面更漂亮生动,更具吸引力。但是在这样的界面下就
不能使用Windows原来的标题条了,否则会影响界面的美观性。那么在没有标题条
的情况下如何用鼠标拖动窗体呢?或者拖动其它的控件呢?
其实,采用API函数调用很容易实现,下面我们以拖动窗体(Form1)为例来具体
讲一下实现方法:
1.新建立一个项目,名称为:test.vbp.
2. 填加一个模块,名称为:test.bas,并且在声明部分加入以下代码:
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MOVE = &HF012
其中ReleaseCapture函数是用来释放鼠标捕获的,SendMessage函数是一个在
WindowsAPI中非常重要的函数,在这里的作用是用来向Windows发送移动窗体的消
息。WM_SYSCOMMAND是向Windows发送消息的常量。SC_MOVE是控制移动窗体的常量。
请注意:这里SC_MOVE的赋值一定要是&HF012,它表示鼠标对象。
3.在窗体的MouseDown过程中加入以下代码:
ReleaseCapture
SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
其中ReleaseCapture函数用来释放鼠标捕获,SendMessage函数向Windows发送
移动窗体的消息。
4.保存并运行程序,按下鼠标,你会发现窗体会随着鼠标的移动而移动。就和
其它著名的应用程序一样。
以上讲述了如何在VB中用鼠标拖动窗体,其实,控件的拖动的原理是一样的。
例如以下代码可以实现图片框的拖动:
ReleaseCapture
SendMessage Picture1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
其实,运用API函数可以实现许多你意想不到的功能。

用户暴增下的收入降低,AWS面临尴尬 云数据中心选址PK:微软第一,IBM第二,谷歌最少 不应错过2014微信开发者大会的八个理由 为什么软件测试需要变革? 苹果和IBM成最佳搭档 微软谷歌或受威胁 OpenStack社区又添新成员 浪潮推动开放云生态系统构建 重度使用AWS及Hadoop,Pinterest的自服务平台打造历程 《近匠》腾讯信鸽:基于大数据的推送 超低功耗'Whisper'架构发布:IoT、可穿戴连接性IP新标准! R的数据分析制霸以及企业级应用盘点 第二届游戏运营技术论坛来袭!与大牛共论云时代的游戏运营之道 云雀科技:飞行器+地图,展望飞行器的新体验 Sandstorm,前Googler和极客名人建立通用开源工具保姆 触控科技CEO陈昊芝:引擎技术推动行业升级 谁能成为Hero,这一次你说了算!——TCL智能电视开发大赛创意阶段评审征集 微信官方在“公开课”上13个热点问题的解答摘要 MDCC 2014移动开发者大会10月开幕:你就是主角! 设计师该如何挣得一席之地? 回到未来:最热门的十大清洁能源技术公司 深度学习:未来机器人的进化途径 搜狗开源内部项目管理系统Cynthia,已被数十家企业采用 沃游戏新版本全新登场 好友PK根本停不下来 腾讯发布首款智能硬件,内部筹建孵化器鼓励创新 触控开发者平台:孕育“十亿开发者俱乐部” 《近匠》大新伙伴:大姨吗防晒小助手,帮你呵护女神 专访阿里云总裁王文斌:做出“用得爽”的工程产品 专访AMD全球副总裁潘晓明:2014全线发力,力争中国市场 搜狗开源内部项目管理平台Cynthia意欲何为? 深度解析浪潮新八路服务器TS860 支持Box2D,开源HTML5 2D游戏引擎FLAG 一周消息树:从程序员到架构师的方法与逻辑 如何打印到文件 如何得到WINDOWS的拼音字库 如何在BCB中进行SDK编程? 一个简单关于对话框的问题------->> 用asp将图片插入数据库,到底错在哪?苦恼啊!以前这个也通过了(win2000server+Sql7.0)但...(高分!!!!) 为什么我在Access2000的mdb中只能最多得到一条记录? 男人25岁就大吗? 关于 C 类IP的屏蔽 配置为COM+组件后,CoCreateInstance 失败! 关于C 类 IP的屏蔽 有谁知道本.拉登的QQ,俺找他有事?重奖`~~~~~~~~~~~~~~~~~~~! 有没有人告诉我,HTTP头跟正文中间夹的什么? 请问asp和php能访问webservice吗??? 如何一打开NOTE客户端就执行我的数据库(不能设书签)? true dbgrid控件怎么使一个网格又下拉的列表弹出来 关于计数器的代码 那里有含有K线图的图表控件和像OFFICE的工具栏控件下载? 十万火急!如何在Dialog上显示Menu??(我只能给到27分了) 十万火急!如何在Dialog上显示Menu??(我只能给到27分了)十万火急! 问一下,笔记本上的软驱通用吗? maskedit的问题? delphi中报表的问题 关于常用的几种压缩编码? tomcat启动出错,请问什么原因? 一个小问题。回答就给分? 在JSP页面中,能否嵌入ActiveX控件 增加控件的成员变量对程序有什么影响?会使EXE变大吗? shr 是什么意思? 我想用delphi删除一文件夹下面的全部文件,我可以删除一条记录,但无法自动删除全部,数据,我该如何做??? 77分征收四个Delphi中buttons的bmp图标--顶张、下张、上张、末张! 有谁用C++Builder做过corba SQL Server编程求解!!!!! 请问如何测试C#代码的运行瓶颈以便进行优化 80端口是干什么用的 我快要疯了!有关最简单的mdb数据库连接也出问题 win2000 sever 的问题(高手请进) 请问什么地方有BCB的GIF插件下载?具体地址 谁帮助编写一个VCD(DAT)转MPEG格式的程序! 请问上面的V S.net (4cd)里边包括些什么东东?有Vc和msdn吗? oracle中可以保存多个blob字段吗??? 一个大大的问题。。。 在DOS批命令中,对于交互命令如何自动实现输入Y或N以及按任意键继续? 如何调用DivX的DLL进行MPEG4的编码! 有没有那位使用MSF? 什么是代理服务器? 请问哪里有载以下书籍? 如何将二进制的值写如注册表? 声明 怎样在窗体外画透明的画? 哪位朋友有JAVA2认证复习指南?到那里下载电子版...... 请问怎样将系统提示出错信息改成自己编写的中文提示 一个玻璃鱼缸的形状是正方体,棱长为5分米,制作这个鱼缸至少需要玻璃多少平方分米? 马铃薯的根具有储存营养物质的作用吗?那红薯呢?哪个是? 如何种白菜 做一个正方体玻璃鱼缸,棱长4分米,制作这个鱼缸至少需要用多少平方分米的玻璃. 我们平时吃的土豆和红薯,其实都是植物的根部吗? 独角仙的幼虫和蛴螬幼虫的区别!介绍这两种虫子的生活习性和特点! 甲乙丙丁共修路1200M,甲修其余3对的1/2,乙修其余的1/3,丙修其余的1/4,丁修几M要算式哦 一个长方体的表面积是200平方厘米,切一刀正好分成两个相同的立方体,每个立方体的表面积是() 怎么种植白菜? 甲乙丙丁和修路,甲修的是另三人的1/3,乙修的是另三人的1/4,丙修的是另三人的1/5,丁修69米,路全长多少 一个长方体的表面积是200平方厘米,切一刀正好分成两个相同的立方体.每个立方体的 金龟子幼虫怎么养? 甲乙丙丁修一条公路,甲修的占其他三队修的2/13,乙修的占其它三队修4/11,丁修了60米甲乙丙丁各修几米甲乙丙丁修一条公路,甲修的占其他三队修的2/13,乙修的占其它三队修4/11,丙队修的占其他 一个长方体的表面积是200平方厘米,切一刀正好分成两个相同的立方体,每个立方体的表面积是()平方厘米. 小客车每辆租费120元,限乘12人.大客车每辆租费160元,限乘18人.有40人去旅游,怎么租车划算? 洋葱、土豆、地瓜,这几种植物的食用部分,分别是植物的什么部分? 把3个表面都是18平方厘米的正方体粘成一个长方体,那么这个长方体的表面积是( )cm2? 一个长方体,如果高增加2厘米就变成一个正方体,且表面积增加24平方厘米,原长方体的体积是()立方厘... 土豆和地瓜各是植物的哪个部分? 8根胡萝卜换4个白萝卜,9个白萝卜换3棵大白菜.7棵大白菜换多少根胡萝卜. 把一个长方体的高减少2厘米,表面积就减少24平方厘米,且变成一个正方体,原来长方体的体积是多少立方厘 一桶水,用去一半连桶还有8千克,如果用去2/3后,连桶还有六千克,这个桶可以盛水多少千克? 6个白萝卜换2个白菜,3个胡萝卜换9个白菜,2个胡萝卜换几个白萝卜? 有两堆大白菜,第一堆有72棵,第二堆有96棵,从第一堆中拿多少棵白菜到第二堆,才使第二堆的棵树是第一堆的3倍. 一桶水,用去一半后连桶还有8千克,如果用去2/3后,连桶还有6千克.这个桶可盛水多少千克? 8只胡罗卜换3只白萝卜,6只白萝卜换2棵白菜,5棵白菜换多少只胡萝卜 大白菜和老毛桃哪个好 旅游公司为3个旅游团提供4条旅游线路,每个旅游团任选其中一条,3个旅游团选择条不同线路的概率? 一根胡萝卜换2个白萝卜,9根白萝卜换3棵大白菜.6棵大白菜换多少棵胡萝卜? 使用了大白菜U盘 如何恢复 某旅游公司为甲,乙两个旅游团提供四条不同的旅游线路,每个旅游团可任选其中一条旅游线路.(1)求甲,乙两个旅游团所选旅游线路不同的概率.(2)某天上午9时至10时,甲,乙两个旅游团都到同一个 将一个长方体的高减少2厘米就变成了一个正方体,表面积减少了 24平方厘米,求原来体积 大白菜里含钙多吗? 旅游公司为3个旅游团提供4条旅游线路,每个旅游团任选其中一条,求恰有2条线路没有被选择的概率答案P=C(2,4)C(2,3)A(2,2)/4的3次方,我不懂其中C(2,3)是怎么来的? 胡萝卜,土豆,马铃薯,黄瓜都属于植物体的什么?如根茎叶. 你好就是草坪里面的蛴螬,一大片大片的饿,把整个草坪都咬死完了,手轻轻一碰草坪就脱掉了,然后就是马蹄请问怎样才能彻底清除马蹄金这种杂草呢,有没有药可以根治的,草坪里面太多了,人工 一根长方体木料锯成3个一样大的小正方体木块,表面积增加了72平方厘米,原来长方体的表面积是多少 下列蔬菜中,属于植物果实的是 A.马铃薯 B.大豆 C.黄瓜 D.花菜 一个长方形的高减少3厘米,就变成了一个正方体,表面积比原来减少60平方厘米.原来长方体的体积是多少? 某旅游公司为4个旅游团提供3条旅游路线,每个旅游团任选其中一条求 (1)恰有1条线路没被选择的概率(2)恰有两个旅游团选择甲线路的概率(3)选择甲线路的旅游团数多于选择乙的旅游 西红柿,黄瓜,土豆,洋葱,胡萝卜哪种营养最多?(急要!)各有什么维生素? 老师有27人,学生有203人,准备租几辆出租车.大客车限坐42人,每辆每天租金1000元,中巴限坐24人,每辆每 某旅游公司为甲乙丙三个旅游团提供ABCD四条旅游路线,求恰有两条线路没有被选择的概率,要算式 把一个长方体分成两个完全一样的正方体后,表面积增加了40平方厘米,原来长方体的表面积是多少平方厘米 190人去秋游,已知大客车一辆每天1000元,限坐43人,中巴每辆每天600元,限坐24人.最省钱的方案.要写多些方案,最后比较 土豆、地瓜、萝卜分别是植物的根还是茎 怎样种春白菜 地蚕草是虫吗 46胡萝卜,马铃薯,莲藕,地瓜这四种植物人通常吃的部分是 【填根或茎】A根茎根茎B根茎茎根C根根茎茎D根茎茎茎 怎样种植大白菜 猪肉白菜馅的饺子蒸熟馅变红 能吃吗 长,宽相等的长方体,高截4分米,剩下成正方体,表面积比原来少80立方分米,原来的长方体的体积是多少?一个长,宽相等的长方体,如果高截去4分米,剩下的就成了一个正方体,表面积比原来少80立方 校园内的草坪有金龟子幼虫,如何除去?要除去虫但又不能让草坪枯萎. 猪肉白菜陷饺子怎么做好吃 从一长方体上截下一段长4分米的小长方体后,余下的是个正方体,表面积比原来少80平方分米,原来长方体的体积 怎样种大白菜 白菜猪肉水饺馅我拌的怎么那么多水啊?谁知道请告诉我,谢谢 土豆和红薯都是用根繁殖吗?HELP ME! 怎么分辨独角仙幼虫和金龟子幼虫? 小客车每辆1800元,限坐乘客12人,大客车每辆4200元,限坐乘客30人,有73人,怎么租车最省钱
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn