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

用VisualBasic制作半透明窗体

HTML文档下载 WORD文档下载 PDF文档下载
用VisualBasic制作半透明窗体

作者:iProgram



函数SetLayeredWindowAttributes

  使用这个函数,可以轻松的实现半透明窗体。按照微软的要求,透明窗体窗体在创建时应使用WS_EX_LAYERED参数(用CreateWindowEx),或者在创建后设置该参数(用SetWindowLong),我选用后者。全部函数、常量声明如下:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

   其中hwnd是透明窗体的句柄,crKey为颜色值,bAlpha是透明度,取值范围是[0,255],dwFlags是透明方式,可以取两个值:当取值为LWA_ALPHA时,crKey参数无效,bAlpha参数有效;当取值为LWA_COLORKEY时,bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明--这个功能很有用:我们不必再为建立不规则形状的窗体而调用一大堆区域分析、创建、合并函数了,只需指定透明处的颜色值即可,哈哈哈哈!请看具体代码。

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const LWA_COLORKEY = &H1

代码一:一个半透明窗体

Private Sub Form_Load()

  Dim rtn As Long

  rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

  rtn = rtn Or WS_EX_LAYERED

  SetWindowLong hwnd, GWL_EXSTYLE, rtn

  SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA

End Sub


代码二:形状不规则的窗体

Private Sub Form_Load()

  Dim rtn As Long

  BorderStyler=0

  rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

  rtn = rtn Or WS_EX_LAYERED

  SetWindowLong hwnd, GWL_EXSTYLE, rtn

  SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY ’将扣去窗口中的蓝色

End Sub
GitHub Web游戏开发竞赛 获奖榜单出炉 Dart里程碑2发布 大幅提升dart2js性能 To Facebook:HTML5不好用?是你不会用! AWS推快照备份服务抵御宕机风险 靠谱吗? 微软品鉴会秀Windows 8电脑 上百款新设备年末上市 甩开外包,雄踞榜首:揭开“宫爆老奶奶”成功的秘密 IBM收购大数据公司StoredIQ 推动大数据传输能力 令人意外:前Windows部门总裁将去哈佛教书 舒迅:产品经理必读的九步法 独家爆料:Facebook移动客户端开发揭秘 一个独立开发者的自白:我如何在一年赚得60万美元 Dropbox收购Snapjoy 意欲打造媒体中心 2012世界“末日”:有经过正确的分析吗?! 23.5亿美元!谷歌出售摩托罗拉机顶盒业务 两家巨头相继放弃移动广告,移动广告形势堪忧? 应用洗牌,还能免费多久?Google推出iPad版Quickoffice 2012末日APP推荐 求生自救必备! Windows8上网利器 不卡死的IE10浏览器 为何Java程序员学习Clojure有优势? 我们是如何阅读代码的? “热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 简单问题:ACCESS里面整个列数字相加,用ADO时的函数是什么呀? 请问 “BIOS 中断”和“DOS 中断”有何区别? 曾经解决过dllhost占用资源100%的朋友请帮帮忙 如何将INPUT标签设成打开新页面? 请问:在VC中编写的文件(或函数、类……)如何在BCB中利用,有没有比较方便的方法 能否在tabsheet里面加入canvas属性? 哪里有《Programming Role-Playing Games with DirectX》下载? 利用OpenGL如何才能对CAD图像进行精确消隐 局域网互联,请高手指点! 利用OpenGL如何才能对CAD图像进行精确消隐 一个关于循环的难题请教 ★★★100分 请问怎么实现对一个文件夹(或文件)进行枷锁?是个什么思路? 各位帮我编辑一下这个程序,看看问题在哪里 请问如何用delphi打开帮助文件(*.HLP) 寻找控件DECEDBOX.ocx控件内含一picutrebox 解决问题再送200分 迫切求助!!一个关于html的问题!! 数据库恢复问题,请各位赐教 急。。。。。JBUILDER连接数据时的问题 手写笔 给分 oracle816配置问题 为什么总说找不到servlet类? 有个概念想问下:什么是mysql的断口 SDK程序设计中如何动态清除“Button”等窗体 请教大家Database Desktop中的Autoincrement类型字段不能自动清零的问题 在word文档中使用active控件引发的问题,请大家帮忙,急!!! 帮忙一下! 大家帮帮我吧! 我手头没有winxp光盘,可现在想安装IIS,谁能帮我,好象单独copy几个文件给我也行 关于表单嵌套问题,50分相送! 怎么传递参数给Midas服务器查询? 散个关于时间计算代码让大家品评!给分! 请问如何得到inifile文件的所有小节名? 本是学计算机的!现在却要去教书了!IT梦想泡汤了!! 真诚求解:关于校园局域网得ip地址与网外ip地址得关系问题 谢谢! 在两个web application之间能不能通过session传对象? 怎么把weblogic用向导创建的域删掉,重新配置 简单的问题:关于符号' " & 在word文档中使用active控件引发的问题,想请大家帮忙。急!!! 为什么G.723.1 在DShow里面用不了? 大虾呀、小弟我求救呀!快来帮帮我!郁闷呀! 我安装了win2003后,为什么声音驱动装不了? release为何不行? 在delphi中如何得到mysql里所有的数据库名?急!在线等!! 怎样获得例如另一个网页的内容,然后部分现实,原理是什么 怎样获得例如另一个网页的内容,然后部分显示,原理是什么 100分求MSDN下载地址!!! 菜鸟苦难,高手达人入,简单问题! 我有白头发了,你们也? 请教一个关于datagrid的弱弱的问题 DirectShow中通过摄像头获取图像,如何改变分辨率 小明把他生日的月份乘以31,再把生日的日期乘以12,然后把两个乘积加起来刚好等于400.你知道小明的生日是几月几日吗? 梁的剖面图怎么画 在平面直角坐标系中画出直线y=-2x+3的图象,若它与x,y轴分别交于A,B两点,求三角形AOB的面积! 我的孩子上了高中以后就好像变了一个人,不和家长沟通,学习成绩一落千丈,作为家长该怎么办?看她学习一点都不在状态,这样下去上大学几乎无门,反思自己,在孩子的教育上之前是有问题,现 The plane is much quicker than car变成否定句? 已知y=x2-2ax+7(0≤x≤1)求y的值域为什么没人来帮忙呢? 孩子成绩一落千丈怎么办?1 云卷云舒 是什么意思 求值域y=x^2+2ax+1,x属于(0,1) 雁过无痕的出处是最好是出自哪本书 叶落无声花语残 云卷云舒亦自忧 用繁体字怎么写 y=x^2+2ax+3在【0,2】上的值域 双环折弯拐又接是那三个数字 有句诗是什么看云卷云舒的? 新概念英语3要怎么自学? 本人高二 什么是permit depreciation of the currency 情不知所以 一往而深 的含义 QL在网络中是什么意思 塔吊那些数字什么意思 情不知所以,一往而深 意思 请问:QL,是什么 雁过无痕的反义词 秋瑾是什么样的人 (QL)是什么意思啊 快显灵 这两个字念什么?动漫前面的那两个字! 杀秋瑾的人是谁 把真确的选项填入题前的括号里、 英语听力题,M:I‘d like to send this package by special delivery and insure it for ¥5W:That’ll be ¥2.5 for the postage and 50 cants for the insurance.Q:How much will the man pay for the postage?答案是¥3.00女的回答中不是 秋瑾的父亲是个怎样的人 什么叫光速不变性? 这种创造性法则是如何运行的?——————阳光爱上猪猪了 秋瑾是浙江什么人 神舟九号飞船进入太空后,航天员在飞船上进行各种科学试验,这主要是利用宇宙的什么? 练听力的小问题当时能听懂,但过一会儿又会感觉很陌生?请问这正常么? 情不知所起一往而深出自哪首歌 光速不变性的疑问我想解决掉我心中的疑问:我坐在一个0.98光速飞船上,速度是相对于A点来说的 1.我在这里把光看成是一种粒子,我用一束光(光子)射向飞船前进的方向,那么这个光子 相对飞船 双环一弯又拐连 打3个数字 已知3+√5与3-√5的小数部分分别为a和b,则a+b=_______. 关于光速不变性的、问题离甲4光年的地方有一个光源 在光源发光的瞬间甲以1/3的C的速度向光源运动 远处有一个乙一直在观看这个过程 求在甲看来的相遇时间、 求在乙看来的相遇时间 另外 ( )0ffice is much smaller than( )B:Our,yours A:Ours,yours C:Theirs; our D:Your;their 选择 帮帮了 情不知所起,一往而深12岁的时候懵懵懂懂的去追一个女孩子,现在20了,我都不知道咋回事,坚持了这么久.期间和她谈过几个月朋友,但是由于分隔2地,加上我的不懂事,不了了之,或许那个时侯还 光速不变性怎么理解,为什么会这样? 一弯连拐·环双现.打几个数字 情不知所起,一往而深-----什么意思? 英语阅读题目 (一弯连、折单拐 ) 和 (一弯、连折单拐) 分别对应的两组数是? 关于海伦公式的题已知三角形ABC三边为7,8,9;利用海伦公式,求三角形ABC的面积. 给退休的班主任(初中教数学)的一段话不要太长,不要像演讲稿,个人点的,大概需要写什么 nearly always catch us off guard是什么意思 有没有一个海伦公式的题 如何做添加题目的英语阅读题? catch onlookers off guard with a break in official protocol怎么译?A smiling Hu squatted beside a surprised Kenyan musician to demonstrate his drumming skills,catching onlookers off guard with a break in official protocol.胡微笑着蹲坐在一 Drakedog8中我看讲解说带了凤凰有寓意,有什么寓意, 急求高中作文《16岁我想对你说》,我14岁认真回答 2004分之4016015和43分之2193是最简分数吗? 若函数y1=2sinx在P处的切线平行于函数y2=2√x(x/3+1)在Q处的切线 则直线PQ的斜率? 真有泰州智堡中学14岁初二女生的那件事么,为什么在百度上查不到 五十分之二十是最简分数吗? 问亲么2道数学填空题,哈哈,快来人啊1.叔叔将5000元存入银行,整存整取三年,若年利率为3.69%,到期时将得到利息( )元.2.妈妈在银行存了4000元,定期1年,年利率为2.52%,到期后她可得利息( ) 视频:10岁男孩午夜被切断右手 扔进10岁杭州男孩被母亲男友砍去右手丢进少女黄鳝血放入下体冒充处女 敲诈嫖客21岁丽水姑娘惨遭男友碎尸 锯下人头18岁女子和男友吵架约见网友 被掐死伦敦股市股指23日下跌中国西藏文化周在德国柏林开幕 俞正声欧元区国家政府债务水平继续上升巴黎股市CAC40股指23日下跌乔治小王子洗礼袍仿1841年维多利亚法美总统同意合作调查电话监听事件瑞士战机坠毁人员伤亡未知 警方调查事俄罗斯总理访问安徽后回国瑞士战机坠毁人员伤亡未知 警方调查事乔治小王子洗礼袍仿1841年维多利亚新加坡中小企业对天津服务业投资增长迅俄罗斯总理梅德韦杰夫访问安徽后回国世界审计组织明确未来四大发展方向长沙警方回应《新快报》记者被刑拘:捏陈永洲、新快报诉高辉及中联重科案 管狗追捕兔子摔断腿 滞留高山上三周奇迹乔恩 琼斯:我要在UFC200中把科阿尔瓦瑞兹谈冠军战:我整个生涯都在击乔安娜:卫冕草量级冠军后我将升重到蝇“街头拳王”金波 斯莱西离世,死因不布鲁克斯:这一次阿尔瓦瑞兹再也逃不掉米莎 塔特:心态是努涅斯的一大弱点科米尔在UFC200的新对手敲定为“大型历史题材电影电视剧《马锡五》筹拍短线回落是技术修正泗泾城管执法中队硬汉受伤不忘环境整治学校毒品预防是重中之重 天平社区禁毒宝能系资金链浮出水面 硝烟再起,王石迎接建党百年 主题宣传发布南海问题对话协商才是正道庙镇禁毒志愿者手绘横幅开展“禁毒宣传在非洲邂逅大麦魔力 揭开长跑冠军的金地铁隧道疏通486条排水管道美5名警察遭狙击手伏击枪杀沪牌拍卖业务恢复,本月竞拍会很激烈看一场安静的动画片国泰·惠民益贷引领票据理财
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘