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

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

微软任命研究部门新副总裁 负责北京等实验室 欧朋首席标准官:HTML5将在2014年成熟 开发利器:对游戏开发者最具价值的5类iOS应用 专访前IE浏览器内核研发工程师,带你深入了解IE10 Windows 8市场接纳速度慢于Windows 7 别只看下载量!“用户留存率”才是关键! 预计2020年出现百亿亿次级超级计算机 Google数据中心PUE的秘密 一个传奇:有个人不断赢得世界算法冠军 音乐能力开放平台合作探索之旅 社交网络海外营销技巧及工具实战 大数据谬误 —— 为什么我们需要收集更多的数据 传苹果地图负责人Rich Williamson遭解雇? 一个月:Windows 8授权许可已破四千万 里程碑:iPhone与Android企业用户市场首次超过黑莓 VMware最快下周宣布分拆Cloud Foundry 国际原子能机构服务器遭窃 百多位专家信息泄密 用户可通过Google Drive直接向Gmail添加高达10GB的文件 韩寒携个人App进军移动互联网 亮相应用汇独家发布会 摆脱谷歌 亚马逊向开发者正式发布地图API 为什么应该用模块取代C/C++中的头文件? Mozilla布道师:HTML5在移动端没有未来? 那些年,历史上留下浓重一笔的黑客们 林敏博士:透过设计看三星手机帝国崛起 OpenFeint血泪史:我们是如何被苹果逼死的 或免费升级:微软2013年推Windows Blue系统 取经:《捕鱼达人2》每月捞金160万美元的秘密 AWS推数据仓库服务Redshift 价格仅是Teradata IBM Oracle的十分之一 美国开展数据中心整合计划 简化政府IT运营 阿里巴巴数据交换平台——集大成于一身 [体验]Windows 8 Metro/Modern Style IE 10 十万火急,关于Unix平台下C编程(FTP传输方面) 我的英文还凑合,那么我应该选择4 中文版,还是 5英文版?(众所周知,5中文版翻译太差) 求开发 ActiveX Libary 的详细步骤! Com Object 与 Automation Object 区别,如何用? 用VB如何处理多个用户同时操作一个DBF文件的错误? 一个进程为VC2.0, 另一个为VC6编的MFC程序。如何控制从第2个控制第一个进程? 请assdeng(山野村夫)看看 pb,delphi,vb三种快速成型的语言都分别适合开发那些软件?欢迎大家来讨论 请问各位同仁如何设置sybase anywhere服务器参数? 串口通讯能否用pb做成动态连接库的形式?(急) 怎样使Response.redirect打开一个新窗口 为什么环境变量替换不正确? 怎么打开foxpro中,通过剪切板考过去的图片,dbimage和image控件都不能打开,显示“bitmap is not valid” vaj中如何使用自己的JAR? 怎样改变当前窗口的大小,是当前窗口最大化? 高手争峰 如何把一个log文件读到数据结构中去 请教一个很菜的问题:) 这个程序有什么问题? 怎样做???? 简单问题,可就是搞不定!! 请问jsp中servelet在win2000中的设置方法,需要下载什么类库文件么? 一个新问题,那就是点击工具栏的退出按钮以后只退出当前打开的窗口,而不是整个应用! 如何在 index.htm 中引用 count.asp ? 远程数据库访问的问题--亟待高手们解答 王国荣的电子信箱是哪里? 我的程序生活 先给50分,稍后在加:我正在做一个系统,需要做到每次开机时提醒用户有哪些事情要做! [Tips]获取Memo&Richedit中光标坐标的最简单方法! 急急,如何才能把图片的底色与窗口的底色自然地融为一体? 如何改变按钮的颜色? 在mtml help workshop 中如何制作带上下文关联ID的帮助 调试程序时,控制台程序与直接建立的C++程序有区别吗? 给菜鸟推荐本书 VB调用外部DLL问题 【洗心革面,重新做人,割发断指,庄严声明】 从今以后 kook 不近女色,不灌疯水,以 panda_w 为榜样,苦练VC,研习汇编,做一个 CSDN 的正面典型! 谁有ULTRAEDIT 的注册码 能否推荐几本关于VB提高和关于VB数据库的书 紧急问题,关于SSL通过MS PROXY String类的问题 连接数据库的东东真是奇怪! 如何打开pdm格式文件 ===========灌水传说=========== 奇怪的问题,怎么办? 呵呵,初学者,请多多指教 剖 尸 小问题:自定义组件的显示 怎样打印picturebox中的内容??? 关于Datawindow的Group的问题 谁能告诉我 Delphi6的序列号 紧急问题,关于SSL通过MS PROXY! 请问,如果用ASP作邮件发送,接收的功能,win2k怎么设置????????? 河套平原发展种植业的有利和不利自然条件 根据花的三种意思,各写一句话.1植物的花 为了迎接2012年的元旦,实验小学准备制作一些小红花,平均分给一些同学制作,如果7个人做,则多做3朵,如果4个人做,则少做2朵,如果9个人做,则多做5朵.你知道他们最少想做多少朵.(用最大公因 种植业什么前景最好 写出几种相应植物的名称.树木:(),(),();花:(),(),();草:(),(),().请帮下忙, 怎么剪小红花 我国的种植业主要分布在东部地区.西部地区.南部地区.北部地区 选择一种植物,写出它四季的不同特点不知道要不要是四季常绿的植物,如果要的话,兰花啊、月季啊,都是.花呀、树呀,什么都可以,要四季特点! 老师把一些小红花分给同学,如果减少一个同学,每人正好分5朵,如果增加一个同学,每人正好分4朵一共有多少朵小红花? 花卉种植业属不属于密集型农业? 一些能代表春夏秋冬四季的植物(花,树,草)是那些?最好每个季节给我4~5个具有代表性的 我今天语文课得了朵小红花,求英语 热带高原气候型花卉在环境要求上有什么特点 用一种植物的花朵,用仿佛写一句话反映这种花的特点怎么写 修改病句:国庆节那天,天安门前挂满了五颜六色的红旗 养观叶类花木一般晒几个小时太阳我的花卉大多是观叶类的,有花园,室内有南北窗户,花园在南面,花园没有低矮的灌木或树,请问观叶类植物在室内放那个窗台合适,南窗日照长,北窗过于阴蔽 写出十个含有花,草,树,木等植物名字的成语,并选起中2-3个写一两句连贯的话 广场上到处是五颜六色的红旗(修改病句) 请问,花卉的叶片类型有哪些?我们作业中需要这个...具体的是月季的叶片类型 描写花、草、树、木的成语各10个.花10个、草10个、树10个、木10个! 节日的校园里,插满了五颜六色的红旗.(修改病句) 怎么画花朵和叶片………总之就是一直学不会……把握不了啊这样………画出来太假都看不出来…… 含“花”“草”“叶”“树”的成语被选为最佳答案的条件:⒈数量最多者; ⒉举例最精者; ⒊速度最快者.(达到两条以上的所有答案全部成为备选) 修改病句:校园里生满了白的、红的、黄的等五颜六色的花. 有一种观叶植物,夏天的叶子是绿色的,冬天新长出叶子是粉色的向花朵,请问高手这种植物的名字是什么植物叶子的形状有点像吊株梅,也是没有叶柄,即不是南天竹也不是粉掌,是小型的没有主 分别以花、草、树、木四个字结尾的成语例如妙笔生花 春风吹得满山的桃树绽开了五颜六色的花,一片火红,非常精彩.修改病句按题修改 用塑料大棚种植蔬菜.1.在外界气温较低时,菜农场在大棚上遮盖草帘,温室前口加防寒裙,有时还将煤炉搬到大棚内.这些措施有什么作用?2.大棚内黄瓜开花时,有经验的菜农会将蜂蜜放养在自己 有树有花的成语有树有花字的(必须)急!1 <修改病句> 1.公园里生长着各种树和五颜六色的鲜花请修改以上病句 塑料大棚中蔬菜、花卉的种植农业属于(多项) 植物花的结构名称分别是什么?带插图~急用 病句:春天公园里五颜六色的花,竞相开放.请问怎么修改?急 用塑料大棚种植蔬菜时,为什么应选无色透明的塑料大棚? 花朵是季节的衣裳,请你分别写出四季中最有代表性的花、花卉的名称.写4个,春( ) 夏( )秋( )冬( ) 孩子穿着红衣服和白帽子(修改病句) 利用塑料大棚温室栽培种值反季节蔬菜是大力发展现代农业,使农民科技致富的重要途径之一,塑料大棚的主要作用是A保持水分B提供氧气C提高温度D防治害虫急 植物花的各部分名称请大家根据上面写出个名称,1.()2.()3.()4.() 改病句:他穿着一身崭新的衣服和帽子. 想投资一个塑料大棚种植蔬菜大概投资多少? 图中植物的名称竹类 “他今天穿着一件新衣服和一顶新帽子”怎么改病句? 搭建一个占地1亩种铁皮石斛的大棚需要多少钱 冬天里,有哪些长绿叶和开花的植物主要说一下室外的 . 改病句:刘艳同学今天真漂亮,穿着新衣服和帽子 一亩蔬菜大棚一年种植成本是多少?我要是在安徽亳州地区包地最低大概在50亩(500元/年 一亩 )以上需要多少成本·?我 要全年种植蔬菜.·还有这50亩该怎么管理· 再加上 一些村民去 施肥打 绿叶在植物生长过程中有什么作用 今天,小芳穿着新衣服和新帽子高高兴兴去上学.(修改病句) 宇宙无限大吗?如果无限大,那么他是怎么形成的.在它形成之前又什么.如果有生必有灭那么宇宙也会灭的喽?...如果宇宙不是无限大,那么他附近还有更大的大宇宙了吗?---回答1个也好...高几的 玉树所在地区制约当地种植业发展的自然因素是 植物的枝条和其绿叶 都是由植物的哪一部分发育而来 宇宙是无限大的吗我个人觉得宇宙应该是无限大的,我就想看看你们的看法,和理论,因为怎么可能有限呢,你说宇宙像个球一样?那球以外的呢?或许我觉得宇宙应该称为空间吧`我是这么认为的, 最大的花()最有力气的果实()永不落叶的植物()最甜的植物()最毒的树()寿命最长的花()要快寿命最短的花()最早的植物学著作() 能帮我看看这是什么植物吗? 为什么宇宙无限大? 花朵和果实是植物的什么? 植物花期随海拔高度是怎样变化的需要具体的 比如说同一种植物随海拔的升高花期向后推迟的天数变化规律 云南和贵州交界地区发展种植业有哪些不利的自然条件? 在日常食用的食物中,主要食用叶、茎、根、花、果实、种子的植物分别有哪些?分别举例一两个就行了急! 一条红绳长120分米,可以做4朵小红花,做25朵小红花需要红绳多少分米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn