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

拖动无系统标准标题栏的窗口-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



FPS移动游戏:画质不是第一位,操控才是死穴 微软2013年的五个安全预测 应用成武器 王淮,大城小胖论辩HTML5 局部有小雨 技术人员创业后就不再适合继续编码了? Google Dremel vs Apache Hadoop 低功耗之争:英特尔 VS ARM NEIC-诺基亚体验创新中心 助力开发者创享新移动互联时代 Google地图主管Daniel Graf:新设计,新目标 浴火重生:OpenFeint创始人推开源平台OpenKit 紧随AWS数据仓库服务 Rackspace力鼎Cloudant 创业者谈:畏惧失败,但也要拥抱失败 谷歌赢得一场战斗 苹果能否赢得战争? 走进大学校园:是什么让学生成为独立开发者? 移动周报:为什么说独立开发者才是光明康途? MapFan eye:看日本地图导航应用的新玩法 数据会被清空:部分三星、魅族手机存安全漏洞 IE10简化文件访问 支持FileReader API 从MySQL迁移到MariaSQL Wikipedia力求开放 奥巴马筹款网站的制作过程 国内芯片厂商发力4G 新岸线2013年将推LTE方案 CMDN Club 23期:开放平台和O2O移动产品开发 花旗调低Apple股票评级 不信iPhone5会卖得好 2012年Linux Journal读者选择奖结果公布 百度云SiteApp:三步轻松创建移动网站 Twitter跨数据中心图片存储系统Blobstore解析 摩托罗拉携手中国移动发布Intel Inside智能机新锋丽i MT788 第五届“英特尔杯”全国大学生软件创新大赛圆满落幕 Appro推出液冷超级计算机 Dell:曾敦促微软WinRT放弃Windows品牌 IE10十大优点:渲染页面比Chrome快8% 法国电信:开放平台下的O2O移动产品怎么玩? 如何实现将页面的内容导入到word中?在线等,急! 怎么回事?主机名可以CONNECT到SQL服务器,用IP地址不行了 打印的问题!!!! pb8与win2000server 小小问题?如何得到窗体右上角关闭,最大化,最小化的句柄??? 多少分才能有两绿三角?多少分才能有一个红星? 哪位同志知道网站的风格像 win xp? 请问哪里可以下载xml spy的中文帮助文件? 请教如何将.cab包解开 50分﹕HELP!!!為什么我的report分發后﹐項目全錯位了﹐應如何解決﹖ 各位,在工程中怎样用资源文件(*.res) !!请问如何利用ADO做三层设计? 哪位大哥有vfw.pas的啊?60分相赠 ATL在中国的现状怎样,大家进来说说!!! 如何黑一个网吧~~~ 急:问个初级问题,希望能得到解决 这个论坛不错! 能不能让C盘只读不写啊? 为什么CopyMemory在NT下的效率与在98下的效率不同! cmos密码如何破解 database控件的问题????? 关于if 语句! 急急急...所以的程序一运行报错:This Example Program Can Only Be Run From With The IDE? 我的机器一运行该页面就慢 怎样设置FileListBox1的路径 free,delete ,Free()的区别? 初学网络,从何学起?如何过渡 请问生成EXE文件以后,要把PB下的哪些dll文件拷贝过去,全部都要吗??还是只要拷贝几个就可以,请问是哪几个? 如何实现自动编号(在线等待) 请问如何在使用insert into时同时使用select和values语句?(十万火急) 怎样改变ListView1在详细显示模式下表头的高度(调用小5号字体)? 我用的是TomCat,请大侠们帮我看看这段调用access数据库的jsp程序那里错了!每次都提示“From字句语法错误”! 如何对数据窗口中的内容进行批量修改?急!!!!! 全上海暂无业者,联合起来!!! 请问如何在使用insert into时同时使用select和values语句?(十万火急) 高分解答!!!谢谢!!!! 字符'\'在c++中当什么看 初学者的problem,讲一讲 一个菜问题 我的爱机是不是感冒了? 关于.NET的资源占用问题? 大侠们好!!!为什么我用DBEdit输入中文可是在DBGrid中显示的是“#”?? 请教Sybase高手3个问题 有关打印的问题,急! 关于响应键盘事件!!菜题送分急!看看我的记录,我一向是当天给分的!!只要题答好。 SetParaFormat的问题,烦死了。 同时登上"vc版"和"网络通信版"榜首,高兴散分 在delphi 中怎么判断Sql Server 表中的字段为计算字段,急等 问个在Delphi里关于Socket的问题,别嫌弱啊 求租!上海! 如何实现描点视图的剪切板传输问题(复制) 8086/8088逻辑地址转换成物理地址看pc技术的国三教材,有2处不懂,望好心人指教1.8086有20位地址线,因此可以直接寻址的最大内存空间为1mb(2的20次方b),其范围为00000h~fffffh.请详细解释这句话2 埃菲尔铁塔是为谁而修建的 内流河指什么河流 8086中的逻辑地址和物理地址是什么?什么是8086中的逻辑地址和物理地址?逻辑地址如何转换成物理地址? 某品牌太阳能热水器集热器面积为S=2m2,热效率为η=40%(即热水器能将照射到玻璃吸热管上的太阳能的40%转化为水的热能),该地点太阳能辐射到地面的平均功率为P=1.4X103W/m2(即平均每平方米每秒 北极的冬天和夏天有什么区别 黄河支流有哪些,分别流经哪些地方?长江的支流有哪些,分别流经哪些地方?知道的说点! 为什么北极只有冬天和夏天? 地球上水的平均温度是多少? 不改变下列字母的顺序,请在60秒钟内找出12表示人体部位的英语单词,把它们写在空位上.HEADNECKNOSEYEARMOUTHAIRHANDLEGFOOTOE 1._________ 2.__________ 3.__________4._________ 5.__________ 6.__________7._________ 8._______ 北极夏天热吗? 地球全年平均温度 HEADNECKNOSEYEARMOUTHAIRHANDLEGFOOTOE在不改变顺序的情况下写出12个人体部位的英语单词 今晚《走进科学》主持人采访的“专家”说,核电站反应堆的热量来源是裂变中子和水分子摩擦产生?!...刚看了今晚央视的《走进科学》,关于日本福岛核泄漏事故的,主持人采访了一个什么专 语言诚恳切而有分量,情谊深长 是哪个词语的意思 太阳能热水器受光面积1.2平方米,内装50千克水太阳每分钟辐射到1平方米的热量是8*10的四次方焦,若百分之40热量被水吸收,20度的水1小时后水温多少(2)煤气的热值是4.2*10的七次方焦每千克, 遥感与gis的区别? 一天中持续发高烧,体内的散热量和产热量哪个多,为什么? 简易太阳能热水器受光面积为1.4m,内装80kg水,太阳每分钟辐射到1m面积上的热量为8×10的四次方J,如果60%的热量被水吸收,问:20℃的水晒3h后水温升高到多少摄氏度?(水的比热容是4.2×10J/(kg*℃) 到北极考察最好的季节是北半球的什么季节?(到南极呢?) 话语深刻有力,情谊深长是哪个词语 太阳能热水器受光面积1.2平方米内装50kg的水,太阳每分钟辐射到1平方米面积上的热量是8×10的四次方J的热量被水吸收,问:20摄氏度的水晒1h后水温达多少? 北极最佳旅游季节是什么时候?暑期还是冬天? 土地利用分类代码在Arc GIS中如何改变 某型号简易太阳能热水器受光面积为1.5m2,内装60kg水,太阳能的辐射热是7×10的4次幂J/m2·min,如果60%的热量被水吸收,问:(1)20℃的水晒3h后水温升高多少摄氏度?(2)煤气的热值是4.2×10的7次 北极洲是什么季节时,最好去南极洲考察? “言辞诚恳,情谊深长.隔不久”是什么词 怎么理解日本福岛第一核电站爆炸中的“化学反应与能量”问题? 北极考察的最佳季节是南半球的( )填夏季或冬季 专题GIS分类众所周知,GIS能做很多专题,例如:人口分布,交通路线,地理环境等,这里要解说的是一个分类问题,就是如何把众多的专题内容进行分类,中国地大物博,无才不有,我相信会有人知道的. 日本福岛核电站事故怎么整出了碘131. 不用说话就能明白,形容道理很明显的词语 地理信息系统GIS有哪些分类, 读了这段话,你感觉到了什么?哪个句子特别强烈的传递了这种感觉?后生们的胳膊、腿、全身,有力地搏击着,疾速地搏击着,大起大落地搏击着.它震撼着你,烧灼着你,威逼着你.它使你从来没有如 关于人生哲理的诗(不要古诗)写作背景,以及所表达的情感,请简短些;作者名字(不用他或她的简介) 美国的地理位置和领土组成 8086储存器系统中物理地址是怎么样构成的 有没有古代诗词中表现人生哲理的诗句?(以及出处) 美国和中国,哪个地理位置好? 存储器的逻辑地址由哪几部分组成?存储器的物理地址是怎样形成的? 蕴含人生哲理的古诗?要有诗名 过多或过少的蛋白质摄入对人体健康有什么影响 埃菲尔铁塔建于什么时期? 为什么北方夏季日照时间长? 核电站的核反应,岂不要产生数千万度的高温.核反应的容器那不要瞬间气化了?自然界,怎么会有耐那么高温的容器啊.一般的容器,那不要瞬间都给气化了.那核电站核反应的容器到底是什么啊? 按照神经冲动的传递方向顺序反射弧结构依次包括 当北极出现极昼时,日照是什么季节?快,只限一小时啊! 核电站所发生的核反应是什么?是什么反应就行了 在反射弧中,哪个结构产生神经冲动,哪个结构传导神经冲动,那个结构发出“痛的”信号, 北半球夏天,北极一天日照时间 核电站中发生的核反应是() 在8086/8088CPU中,物理地址和逻辑地址是指什么?已知逻辑地址为2E00:5A00H,计算出其对应的物理地址? 夏季北方和南方哪个日照时间长?原因 核电站的核反应方程式是什么. 在8086里 什么是物理地址,逻辑地址 为什么北极夏天也这么冷请跟阳光的照射角度联系一下 切尔诺贝利核电站4号反应堆现在是否还在发生核反应? 如何书写热化学反应方程式 额定功率与视在功率的分别近来用功率表测了一下我的HIFI功放,额定功率大概是337W 功率因数只有0.7 电流有2.11A左右.这样 W=UI 2.11*220=464瓦.请问,功放实际消耗的功率是不是就是用四百多瓦去算 简单阐述遥感与GIS的关系
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘