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

在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函数可以实现许多你意想不到的功能。

用Enter键代替Tab键-Delphi资料 用修改文件时间的方法来加密文件-Delphi资料 用最原始的方法编制程序-Delphi资料 运用Delphi编写Windows NT中服务程序 在DELPHI编程中确定系统运行模式 在Delphi程序中调用控制面板设置功能 在DELPHI下读取与设置系统时钟 在Delphi中避免2000年问题的捷径 在Delphi中调用API函数 在Delphi中获取和修改文件的时间 在Delphi中控制扫描仪 在Delphi中实现对WIN9X应用程序使用权限的设置 在Delphi中实现对目录拷贝、删除和搬移的操作 在Delphi中使用自定义光标 在Delphi中用拼音首字符序列来实现检索功能。 在DELPHI中用线程排序 在Delphi中制作背景音乐 在Dephi中使用TStream读写数据的技巧-Delphi资料 在应用程序中跟踪MOUSE的坐标-Delphi资料 怎样建立回调函数-Delphi资料 怎样显示自定义鼠标光标(Cursor)-Delphi资料 找出消失的 Delphi 窗口 执行外部程序-Delphi资料 执行一程序并等待其结束-Delphi资料 制作一个不在任务栏及任务列表中显示的幽灵程序-Delphi资料 抓获全屏-Delphi资料 子目录级的文件查询的实现-Delphi资料 Delphi中ChartFX构件使用详解 Delphi中动画设计 Delphi中对Jpeg格式文件的处理... Delphi中多媒体组件使用解析 如何在comboBox中添加icon--在线= 救人啦!!请教BootCode方面的问题,十万火急!! 一个关于 WISE installation 制作安装程序的问题 *.lwp的文件怎么打开亚?请大家帮帮忙!!! DataGrid为何不显示? CRegKey::QueryValue()读取数值数据时遇到的问题…… chmod命令后造成启动错误 请教大家一个关于webservice transaction的实例 菜鸟急救,注册表文件导入的问题? 填空题(急) 钱本草呢? 关于手机的问题 求救:GetFieldValue()函数出错. 一个很简单的问题,来者有分 有个小问题请大家诊下 怎么样使stringgrid中的fixrows和rowcount数目一致? 如何在JB中联接SQL数据库! 把数据结构(比如说一个链表里的数据)保存为文件,不用序列化怎么办啊? 哪位大哥有installshield的安装password? 日期型中的“年”,如何取得? SOS!!!! COPY文件有哪些办法?用什么方法比较好? 友元函数重载操作符@obj,被c++编译器编译后被解释 对vcl库底层机制一些不明白的地方2 存储图片为什么不行? 真的很苦恼,如何同时更新两个文件? 数据库问题,大家帮帮忙啊 asp.net连接sqlserver 关于在同一asp页中的两个select的问题 如何写这种存贮过程?(急) 哪儿有asp的帮助下载! 关于数据库连接方法的问题! -----------产生错误:线程正被中止。--------------- 我刚刚学了C#,但是不知道自己的程度 如何在点击Memo时取得当前行的值? midas的一些问题! EditPlus 2中如何实现对java编译和调试?立刻给分 为什么在 CHtmlDialog 中映射的html button click 的事件会促发两次? 广州一戒毒所将数十戒毒女卖给“鸡头” 菜鸟级问题。看到有很多视图的列有带链接的。不知道怎么做。怎么看链接 为什么安装Windows 9x,要选FAT32分区类型,而如果安装Windows 2000/NT/XP系统,就必须要选NTFS类型,这两个类型有什么不一样吗? 各位大哥好,问Email问题 哪位仁兄告诉我,Windows写驱动主要用什么工具呀,(包括调式驱动) 学校期中考试的题目 treeview问题,请问在.net中该事件如何写 如何运行servlet? 表里面有几千条带扣的字符串需要将扣去掉。 能否解释一下,如下一些东东。 〔绝对给分〕几个问题! 用PHP的GD库可以输出png图片,如何在用户浏览的时候同时将图片保存一份到服务器上? 更换操作员应该怎么做,谢谢! 基因是成对存在的,是不是在体细胞中是成对存在的,而在性细胞中不是 床底下放个门 有谁知道 有什么说法吗?有谁知道 有什么说法吗? 为什么欧盟无法当今世界主要的政治力量,希望详细说明、希望能从欧盟体质发面,具体谈谈、 一个月小藏獒的喂养 我的台灯是那种灯管的,打开,1分钟之内正常,过段时间之后就亮2秒,熄了.,亮2秒,熄了,怎么回事?应该换灯管吗?还是说要买个新的? -风扇扇风风吹扇扇动风声 下联?请对出 风扇扇风风吹扇扇动风声 下联! 鸽子没有下蛋雄、雌鸽蹲在窝里不出来? 电容1000uf/50v是什么意思 地窖可以保鲜吗 鸽子在窝里蹲了2天怎么还没下蛋?急 有避雷针打雷能玩电脑吗 下雨天闪电能玩电脑和手机吗 孤村落日()残霞,轻烟老树()寒鸦 七八个星()天外,两三点雨()山前 在括号里填字 有避雷针的话,打雷玩电脑也不怕? 本人是单细胞生物,你告诉我吧! 鸽子每天蹲在窝里就是不下蛋都几个月了怎么回事 壶盖也是不锈钢的电水壶都什么牌子的有啊? 单细胞的危害、快 鸽子老暖窝不下蛋iiiii 如果有避雷针,在打雷时还能玩电脑吗? 屏息凝神怎么造句 请问各位用电热管烧水应该注意些什么?还有怎样正确的使用电热管? 每个小区都会有避雷针吗,玩电脑会被劈吗 用“屏息凝神”造句 请问这是什么仪器?具体名称是什么?(用来做电容器试验的)补充图片 如图,图中灯泡均完好,当开关S断开时,三只灯泡都发光,那么S闭合时:L1、L2不亮,L3亮(因为L1、L2均已经短路,只有L3为通路)我想问的是:不是说导线没用经过用电器直接与电源的两极相接才 用难堪 屏息 诡异 模糊造句 用这四个次连词成段 电容器的JB7113-93标准内容是什么? 七八个星天外,两三点雨山前 (“七八、两三” 稻花香里说丰年,听取蛙声一片.(“一”什么意七八个星天外,两三点雨山前 (“七八、两三” 稻花香里说丰年,听取蛙声一片. 兴奋在神经元之间的传递与糖蛋白有关系吗? 我买的两只鸽子前几个月还下蛋,可下的都是水蛋.现在鸽子连蛋都不下了是怎么回事? 安装有避雷针的楼房在打雷打闪的时候能使用电器吗? 黄河流经四川没有? again英语怎么读 我跪求五年级的作文快要开学了救命啊~要求:1要现实一点的 不要什么下雨下雪什么的不要写新年啥的写的像女我都说实际一点的了...还有我是小学生,没有那啥男的也没有姐姐.虽然我知道你 为什么黄河和长江都绕开了四川盆地,而没有进入四川内部呢? 描写古代下雪时的情景! 打雷的时候避雷针把电引到那里去 生活中,有很多事并不是想象的那么坏,只要肯动脑筋,坏事就会变好事的,举几个例子 英语题:don't late again! 如何回答?A:i willB: i won't 为什么灯泡发黄光? 习作:好多事情并不像我们想象的那么糟. 只要肯动脑筋,坏事往往能变成好事.在生活中,你一定也遇习作:好多事情并不像我们想象的那么糟. 只要肯动脑筋,坏事往往能变成好事.在生活中, 孤村落日残霞,轻烟老树寒鸦这两句诗中一连写了几种景物? 打雷时能用电脑吗~我这是居民区~楼上应该有避雷针.雷不是很大.可能是雨声掩盖主了.雷声基本是听不到.可以说是完全~有点啰嗦哈~应为我想玩龙之谷,555 用蓬勃、 灵敏、 炫耀、 骇人听闻、 随声附和 、神通广大至少两个词语造句 I ___ it again.A.would like you to read B.would like that you read C.would like you reading D.would like you read 节能灯突然发黄原本只是微闪几下,然后突然灭了.灯泡有黄色暗光 用随声附和、飘渺、莽莽榛榛造句50字左右 孤村落日( ) 残霞,轻烟老树( )寒鸦.七八个星( )天外,两三点雨( )山前. 氙气灯泡怎么发黄光啊问题描述:我新安的氙气灯泡 (穷人安不起氙气大灯) 都说氙气灯泡跟氙气大灯是一样的白色的 只不过不太亮 但是我按的看不出是白光啊 看这是黄光 只不过比 苏轼的诗的特点 节能灯中电解 电容 电杆作用,哪一个决定节能灯的寿命 灯泡都是发黄光的吗 形容肯动脑筋的成语! 节能灯电路板中有多少个电容? 床底下放风筝 打一歇后语 用屏息凝视造句 桁架水平宽度有要求吗,11.3米,重200KG的一个小管道,工艺让做桁架,水平宽度0.5米,可以吗 床底下放东西好吗 床底下放东西有哪些弊端 和 组成.有 ,(包括和 组成.有 ,(包括 ,,,) 马云谈\"来往\":我和马化腾在下棋国家卫计委要求严惩温岭医生被刺事件凶伊朗停丰度20%铀浓缩 伊朗政府尚未日本福岛外海强震上修为7.1级 东京海军三大舰队首次在西太平洋实兵对抗前美国国安局长“私聊”遭邻座“直播”美媒体称俄外交官在美招间谍 费用俄方美恶妇险扯断幼儿生殖器用胶粘合 面临商务部谈第四次中欧经贸高层对话30余国领导人遭美监听 偏爱私人手机美电视台脱口秀节目“杀中国人言论”被墨西哥一糖果厂爆炸 1死20人失踪7米高阿根廷恐龙亮相新加坡 系亚洲首\"监听们\"丑闻 美国欠全世界一个新加坡华人青年从事旧货买卖 为环境保凯特王妃低胸礼服出席晚宴 展苗条身材日媒称4架中国军机同一天越过冲绳飞向英航空公司推出空姐半裸慈善日历新加坡法院首次执行中国大陆司法判决英王室公开最新四世同堂全家福{高清)稀世粉钻亮相 拍卖价预计可达6000揭秘美国高考改革背后的故事TGA 青奥高校电竞大赛总决赛太仓开一个公安局长的用人策略紧扣党的群众路线教育实践活动主题《节约集约利用土地规定》发布上影节公布第二批四部入围影片湖南首个页岩气预探井开钻广西:土地整治重大工程竞争立项G7声明“担忧”东海南海现状未按安倍非券商亦可成为“新三板”做市商重聚诺曼底,美欧不再一家亲?开场10分钟,阿汤哥就挂了?购票指南深圳获批建设国家自主创新示范区广东个人碳排放权首日交易金额超万元广东中山农村土地流转调查:一亩地多收俄媒:乌克兰东部民兵击落两架政府军战菲律宾南岛一对华商父子遭绑架 尚未收加拿大参议长:加中无根本分歧 务实合男子为阻前妻再婚杀死对方 被抓时仍恨为什么马云说12亿真便宜?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘