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

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

自定义Android主题风格theme.xml方法 Android开发之模拟按下Home键的效果 Android AIDL全攻略一 Android Picture和PictureDrawable的用处 Android自定义View以及layout属性全攻略 Android通过Intent发送电子邮件含附件 Android调试技巧之Eclipse行号和Logcat Android Txt文本读写类源代码 Android游戏开发之旅20 双按事件捕获 Android游戏开发之旅19 分辨率大全 保护你的Android付费软件-LVL全攻略(二) 保护你的Android付费软件-LVL全攻略 android调试工具monkey压力测试实战 Android开发工具-App Inventor Android游戏开发之旅18 SoundPool类 Android多线程下载远程图片 Android读写Txt文本文件代码 Android游戏开发之旅17 图像渐变特效 Android游戏开发之旅16 异步音乐播放 Android游戏开发之旅15 按键中断处理 Android游戏开发之旅14 游戏开发实战一 Android游戏开发之旅13 Sensor感应示例 Android游戏开发之旅12 Sensor重力感应 Android游戏开发之旅11 View中手势识别 Android游戏开发之旅十 位图旋转 Android游戏开发之旅九 VideoView类剖析 Android游戏开发之旅八 SurfaceView类实例 Android游戏开发之旅七 自定义SurfaceView Android游戏开发之旅六 自定义View Android游戏开发之旅五 Path和Typeface Android游戏开发之旅四 Canvas和Paint实例 为什么卸载oracle8i后再装就装不上了? 磁条卡阅读器编程!! vb的控件可以继承吗?我可以在原来的控件上加上一些事件和属性 但是原来的还在 不用自己从头写?可以吗? datawindow 一个搜索的问题,求救 有谁知道如何用VB执行类似网页POST操作? 如何用API取得windows的Company名称? ATL编写自定义属性页!!! 关于在sql 语句中 格式输出字段的内容………… 有对JSP标签库熟悉的吗? 关于delete的非法操作!! 关于COM程序 LInkError处理! 急。。。。关于xml解析器安装的问题 关于在 servlet 中,service 以及 doGet、doPost应用的问题?!------------请进:) 怎样得到用odbc创建的数据库类型信息 使用AfxBeginThread,将一个类CDownload down作为参数传递给线程,该怎么传递和接受参数??? 如何判断用户关闭了浏览器窗口还是转入了其他地址,或者刷新了页面? 大家谁作过数据导入导出的程序阿,能不能给点指点阿!急!!!! 新手求救:如何发布一个用JAVA/JSP/SQL SERVER开发的系统!!! SQL里update的使用问题 今天辞职,散分散分散分! 我form中一select中的option被选中,在提交后,如何用javascript来保存选中的那个option 怎样调用约定为CDECL的DLL? 弹出菜单的位置问题,简单,快进 LINUX下的虚拟主机的问题 用过网上的G711-G721-G723代码做语音压缩的请进,高分 在98上安装了apache+php+mysql,让用287端口测试,287端口是什么 字体设置, LogFont的lfFaceName... 关于随机 新手问题 如何动态改变 RichEdit 中的字体?很急! !!!怎样把stringgrid中已经选择得数据读出来!!!! 我该学些什么? CObject类是MFC类吗? 请问除了http://java.sun.com/j2se/1.4/download.html外,哪里还有jdk1.4下载? 有没有兄弟做过关于DSP与PC的并行通信? 请教接口查询的问题 如何清空表中的全部记录? 我是一个vb 的初学者,请大家介绍一两本好的关于数据库开发的书! 《Delphi淡手辑略 之 数据库篇》:数据安全保存(函数) DB2 store procedure Easy_Problem!!!关于对话框!!! weblogic下调用java bean出了点问题 (苯苯) 如何在两地用netmeeting通信,共享信息,两方为win98和win2000server,使用modem连接 tomcat 如何与 jboss 进行集成 Regular DLL中向导生成的winapp对象有什么用? 关于Install shield 的问题 一个高难度问题,特急! 从一个页的Button事件中如何获取在iframe中另一页中选种checkbox的值? 大家一起来帮帮我 我是个新手请教如何在98下安装和设置apache,尽是详细些,最好给介绍些资料 高手请教,有关类的链表指针 一个8横过来,右边不封口的符号是什么意思无 用意思相近的词语替换句子或词语打破沙锅问到底 ( )疑惑 ( ) 撑腰 ( ) 抱负( )欺凌 ( ) 数学记号 n!是什么意思 冬天的四字词语 英语好,数学能过得去,物理一窍不通,希望大家给我建议啊. 角速度有方向吗 谁能帮我写出三个描写冬天的四字词语? 我是一名高中女生,数学、英语和物理特别好,化学也不错,请问我选什么科好 角速度的方向是怎样的? 描绘四季的词,最好是四字词语 英语翻译1.低铬合金球2.稀土Rc:微量 请问角速度的方向是什么?为什么是这个方向?RT 高一物理里的线速度和角速度是矢量还是标量啊?谢谢亲故! 像 代替—替代 这样的词还有哪些? 角速度的方向有什么意义?是不是只有圆周运动才有角速度? 描写梅花、四季的好词好句,要短一点,词语要四字词语,急需30好句,40好词, 像 代替——替代 这样的词 求作文{开学第一个月的感想与总结}如题 1、汽车车速是指车轮边缘的线速度?还是指车轮旋转中心的速度?2、角速度是标量?还是矢量? 像(代替)—(替代)这样的词语,急 求大师啊 有没有会做化学的 会做的 15个描写四季的四字词语和含有相应词语的句子春夏秋冬都可以,注意是四字词语! 像代替——替代这样的词写5个作业.作业,交换后意思不变。求求了!!! 求化学高手!先到给好评! 描写美丽校园的词语要美丽赞美 什么词可替换 权且 求化学高手,空的题,快给好评 角速度是否是矢量?如果是,那么公式v=rω中,等式右边速度方向沿切线,右边ω的方向为什么垂直与平面的,方向为何不一致? 英语翻译这句话:Life is simple,you make a choice,don't look back.不要在谷歌上搞的那个,那个我总觉得翻译的太生硬了. 请求化学大师帮我填上必有好评谢谢 用什么词语来形容花坛 设{an}是等差数列{bn}是各项都是正数的等比数列且a1=b1=2,a3+b5=36,a5+b3=14求(1)数列{an}{bn}的通项公式(2)数列{an|bn}的前n项和Tn急!!!!!!!!!!!!!!!!!!!!!!! 有关乐观的论点,论证和论据论点,论证和论据都要 全一点吧 春,款款而来,走进了我们的校园.继续扩写,多一些,语句优美 谁能给我一篇关于开学的文章,400至500字,要实际一点的.(六年级)急需急需急需,要快,今天下午5点之前要有答案 找出 论据 论证 论点一个人的无知感来自他的有知.古希腊哲学家捷诺在地上画了一小一大两个圆圈,分别代表学生和自己的知识,说:“大圈和小圈以外是你我无知的部分,我接触无知的部分比 大写八倒过来那个符号怎么打类似于\ /但是要短很多`不是∨`象丶ノ 己字有几种组法? 谈理想的论点论证论据 八卦里的八个符号都叫什么?都是什么样子? 开学感想作文600字 匀速圆周运动的角速度是矢量吗?方向怎么样?怎么证明 关于中秋节的作文四百字左右 求大师快速解答 为什么匀速圆周运动中角速度的方向保持不变?方向在哪?怎么确定? 木块A以3m/s的速度沿水平地面匀速向右运动了2s,木块克服摩擦力做功为30J,则动滑轮移动的距离及作用在动滑轮上的拉力各是多少?(不计滑轮自重及滑轮与轴,绳之间的摩擦)这是图 高中化学和物理知识点,化学要详细点. 快,大师来解答, 已知公差不为0得的等差数列{an}与等比数列{bn}满足:a1=b1,a3=b3,a7=b5,A:b11=a13B:b11=a31C:b11=a63D:b63=a11 高中物理,化学必考知识点··可以发我邮箱,jyjyjy59@sina.com 诗句大师, 在公差不为零的等差数列an和等比数列bn中,已知a1=b1=1,a2=b2,a6 =b3(1)求等差数列an的的通项公式an和bn的通项公式(2)求数列{an乘bn}的前n项和Sn(用错位相减法) 什么的中秋节写作文100字的 求大师解答给 好评 是的是的古文怎么讲 中秋节的名作(作文)100字左右 求大师详解 8横起来是什么符号 急求1篇80到100字的中秋活动作文 介绍也行 请人写《开学了》 《放假了》 感想作文2篇 300字左右!额···我自己想 那我还发什么贴啊.就是不想自己想大哥 - - 说了跟白说一样.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘