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

拖动无系统标准标题栏的窗口-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
拖动无系统标准标题栏的窗口-VB资料
吴斌
  大家知道,在VB中可以通过设置Form的属性,制作无系统标题栏的窗口。可是,
由于失去了系统标题栏,如何使用鼠标拖动窗口便成了一个棘手的问题。其实,借
助API函数ReleaseCapture和SendMessage,这个问题便可迎刃而解了。
  首先,在module文件中加入下列声明语句:
  Declare Sub ReleaseCapture Lib"User"()
  Declare Function SendMessage Lib"User"(ByVal hWnd As Integer,ByVal
wMsg As Integer,ByVal wParam As Integer,_lParam As Any)As Long
  Public Const WM_SYSCOMMAND=&H112
  Public Const SC_MOVE=&HF010
  Public Const HTCAPTION=2
  然后,在Form的MouseDown事件中加入下列代码:
  ReleaseCapture
  Ret&=SendMessage(Me.hWnd,WM_SYSCOMMAND,_SC_MOVE+HTCAPTION,0)
  ……
  程序运行后,只要当光标落在Form区域时按住鼠标左键,便可以拖动窗口了。
在一些要求生动活泼的界面的程序设计中,开发者常常希望自制风格独特的标题栏,
以满足整个界面的要求。通过这个方法,就可以使自制的标题栏达到乱真的地步。
不过,用作自制标题栏的控件,必须具有MouseDown事件以摆放上述代码。


移动没有标题栏的窗口
我们一般是用鼠标按住窗口的标题栏,然后移动窗口,当窗口没有标题栏时,
我们可以用下面的方法来移动窗口:
 
在 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 HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
 
然后,在 Form_MouseDown 事件中:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub



继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 美的+阿里,“云端”战略第一把火是智慧家居 对产业互联网战略的战术思考——争夺企业信息入口的战争 加入Cassandra,OpenStack发力DBaaS生态圈 死磕Google Keep,微软正式发布Mac免费版OneNote 《近匠》安管云CTO石磊:降维安全的开放平台 2014 Unity亚洲开发者大会·中国站讲师名单议题全部出炉 【独家专访】红旗Linux元老:猎猎红旗永飘扬 借助三大技巧 助你提升API状态页面 集成GemFire,Hadoop生态圈的又一把火 次世代光照体验:Unity 5面世,功能系统全升级 深入浅出,以咖啡店为例演示Web应用程序扩展 百度Clouda:可依赖的实时JavaScript开发框架 Oracle发布Java 8正式版及JDK 8 编程语言中一些令人抓狂的规则 廉颇未老,微软股价创14年新高 中国云计算大会PPT集萃(三):核心架构及应用实践 特性是增多了,但是Google的云服务仍然不温不火 全国云计算大数据创新项目评选活动正式启动 【独家专访】Perl发明者首次来华:将在OSTC大会分享其编程人生 腾讯核心创始人张志东半年后卸任首席技术官 改任终身荣誉顾问和学院讲师 咱们约会吧,Web设计师教你不一样的语言 开发者不容错过的10款免费JavaScript游戏引擎 付费授权、开放源码,全新虚幻引擎4正式发布! Larry Page未来计划:用科技创造美好生活 AWS 8周年,收入超四主要对手之和 分析:北京网络广播电视台私有云实践 怎么把CByteArray型数组转换成char*型. 关于纯资源DLL的问题! 超难问题:如何将一个EXE转换成SWF? 关于PHP程序员工资待遇问题的讨论! 网页中嵌入ActiveX控件,遇到的问题。 问个比较简单的问题:关于ASP上传的 送分啦~~~~~~~用什么方法可以获得鼠标的移动到那里的句柄(包括窗体和环境),就向SPY++里面的findwindows一样的功能 关于vb数据库的问题,请教了!!!!! 1982.12.12,2001.12.12是19岁生日还是20岁生日? 寻找调查投票程序,66分 在printf格式字符串中,用于输出字符串的格式字符是什么? 哪里有这样的jsp程序 轻松一分钟,统计一下看流星雨的程序员们是单身还是成双成对? c语言程序的基本单位是什么? 是什么原因产生stop:0x0000001e故障的,有办法解决吗 如何虚拟键盘输入?急!!! 请问怎样才能将用户选择的行或列在打印预览窗口中? 如何获得所运行的进程列表 设i,j,k均为int形变量,执行下列语句:for(i=0,j=10;j<=j;i++,j--)k=i+j;则k的值是多少? 怎样把kv3000解密到一张软盘????? 是高手的进来赚点分(全给) delphi中如何定义过程与函数,请帮我各写一行带参数与不带参数的例子, 有谁用过EXPRESSO开发过JSP吗 如何在MTS对象中使用现有控件? 求救!!!WINNT 4.0下无法显示中文! 请各位指导,如何查出QQ的区IP地址? .怎样将多个文件用MAKECAB。EXE制作成CAB文件 请问变量声明问题 该怎么让客户端浏览网页时自动完成对服务器端网页中ActiveX控件的注册? 一直困惑我的问题! 请问printf( "\t\b\b" )是什么意思? 如何将.EXE文件转换为.COM文件? 安装好的软件到哪去了? JavaScript有没有比较字符窜大小的函数。就像VBScript的,StrComp(); nmpop3怎么知道哪些是新邮件,哪些是已看过的邮件呢? SQLServer的别名怎么建立?急,急,急 为什么,为什么,我的delphi到底怎么了!!!!!!!!!!!!!!!!!????????????????????? 问一哈:哪有中文版的VB API的书?(不要MSDN)下载看是也可以的。 关于收发internet 邮件 VB中怎么使一个数值四舍五入呀?有四舍五入的函数吗? VC编译器告诉我这个错误,请帮帮忙。 如何将SQL6。5升级SQL7。0? 鼠标怎么不见了? 请问如何用C++编写一个从键盘上输入若干学生的成绩,统计并输出最高成绩和最低成绩,当输入负数时结束输入。 SQL Server为什么不能递归调用?有什么变通办法? 看看http://www.csdn.net/develop/read_article.asp?id=7104 请问CSDN离线浏览器中的数据算法的数据库在什么地方可以下载?? 高分求解:图的最小生成树问题(类似背包问题) 判断时间是否过期最简单的方法就是用datediff函数吗? 用COPYFILE是不是和DOS命令COPY的功能一样? 程序员去什么城市最好? 十六分之四和十八分之六怎么约分? 怎样判断马铃薯中是否含有糖类?实验所需材料:实验现象:实验结论:如题 280分之225 约分 含糖类较多的食物 什么食物克马铃薯 15分之225约分 哪些食物含糖类多 食物中的食物纤维是什么东西?还有土豆含维生素C多吗? 大圆的直径是小圆直径的3倍,那么小圆的周长是大圆周长的(),小圆的面积是大圆面积的()注意:是问小圆的周长是大圆周长的多少,不是求大圆是小圆的多少 含有丰富糖类的食物有那些? 食物相克西红柿和土豆是吗 大圆的直径是小圆直径的3倍,那么小圆周长是大圆周长的( ),小圆的面积是大圆的面积的( ).急 哪些食物富含糖类 土豆是酸性食物还是碱性食物? 今年兄妹的年龄之比2:1,再过五年哥哥年龄的三倍恰好等于妹妹的五倍,求今年兄妹的年龄 6分之5小时的2分之1是几分钟,4分之3千克的3分之1是几克 兄妹两人同时从A地向B地去,哥哥每分钟行150米,妹妹每分钟行80米,哥哥到达B地后立即返回,A 、B两地相距2300米,两人多少分钟后相遇?相遇时,妹妹行了多少米? 今年父亲的年龄与兄妹两人年龄之和相等,且哥哥比妹妹大4岁,已知24年前,父亲的年龄是兄妹年龄之和的5倍,那么今年父亲、兄妹各多少岁?漂亮.帅气的 大哥大姐们 帮帮你们可伶的学妹吧!T^T 5分之3小时=( )分 8分之5千克=( )克 6分之1×( )=13分之7×( )=13分之7-( )=( )×0.3=1 兄妹两人同时从A地向B地走去,哥速度180米,妹速度60米,哥行到B地即返回,AB两地相距1440米.两人相遇时,妹妹走了多少米 食品添加剂中防腐剂怎么添加比如针对固体用什么方法,针对液体用什么方法 兄妹两同时从甲乙两地相向而行,兄走完全程要2小时,妹走完全程要3小时,两人相遇时兄比妹多走了2.4千米.甲乙两地相距多少? 兄妹两人同时从A地向B地走去,哥哥每分钟行180米,妹妹每分钟行60米,哥哥行到B地立即返回.AB两地相距1440米.两人相遇时,妹妹行了多少米? 以下有关食品添加剂和防腐剂的一个问题,食品添加剂和防腐剂一律对人体有害么,只是害处大小不同?比方说名人苏打水,其中含有小苏打、硫酸镁、环己基氨基磺酸钠、安赛蜜、对羟基苯甲酸 妹两同时从甲乙两地相向而行,兄走完全程要2小时,妹走完全程要3小时,两人相遇时兄比妹多走了2.4千米,求甲乙两地之间距离? 兄妹同时从A向B走,哥哥每分行180米妹妹每分行60米,哥哥行到B地返回,AB相距1440米两人相遇时妹妹行了几十万火急! 如何才能快速约分 甲乙两人从两地出发,相向而行.甲走完全程需要2小时.已走完需要3小时.两人相遇时甲比乙多走了4.5千米.求两地相距多少千米 兄妹两人同时从A地向B地走去,哥速度180米,妹速度60米,哥行到B地即返回,AB两地相距1440米.两人相遇,要等式 已经知道质量的物质,质量比可以不可以约分? 甲乙两人同时分别从AB两地相向而行甲走了全程的5/11的地方与乙相遇,已知甲每小时走4.5千米,乙行完全程用5小时,那么这段路全长多少千米? 怎么约分 把一个分数用2约分一次,用3约分一次,用5约分一次,得到的最后结果是3/2,你知道这个分数原来是多少吗? 数学在什么情况下该约分那如果约分了, 两个圆的面积,和为5338平方厘米,大圆的直径是小圆半径的8倍,求两圆的直径和周长? 27272727分之23232323 约分后是多少?哪为大哥大姐知道? 哪些情况下可以约分.比如4.5×5×11/5.怎么约分的? 大圆半径与小圆直径的比是8:4,如果大圆的周长是25.12厘米,则小圆的面积是( ) 大圆半径是小圆直径的2倍,大圆周长是小圆周长的( )倍,小圆的面积是大圆面积的几分之几? x^-(y-z)^/(x+y)^-z^ 为什么葡萄糖淀粉纤维素都属于糖类 4千克比0.05吨等于多少要过程 木糖醇的化学式为什么是C5H12O5 约分, 蔗糖、葡萄糖、淀粉都属于糖类,那种更容易被人体吸收?请说明机理,并从人身健康角度分析,对这些营养成分的摄入提供一些有益的建议. 4分之1千克=()克 下面能不能约分啊?忘了!5/1*6/1+3/4--------------555/8=88*44 为什么葡萄糖、淀粉、纤维素是糖类? 2003年,兄妹两的年龄分别是16岁和10岁,那么当哥哥的年龄是妹妹的年龄的2倍时,是 加工过的糖类食物是哪些? 淀粉变成的葡萄糖,是糖类物质吗拜托了各位 谢谢淀粉是糖类物质 2006年,兄妹两人的年龄分别是16岁和10岁,那么,当哥哥的年龄是妹妹的年龄的2倍时,应是___年急 20千克的四分之一比1吨的200分之3少多少千克? 葡萄糖、淀粉等有机化合物都属于__类,又称__化合物.淀粉是人们食用的最主要的糖类.检验淀粉的方法是_. 2007年,兄妹两人的年龄分别是16岁和10岁,那么当哥哥的年龄是妹妹的2倍时,应是几年 5分之2千克的11分之2比它的6分之五少多少千克? ( )千克的十七份之五是五千克 约分 十八分之十二= 约分怎样约 用小数计算.10千克+5千克36克
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn