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

用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
Meteor 1.0发布 构建更好的Web应用 【专访】敏捷专家吴穹:敏捷测试的行业应用与实战解析 英特尔中国研究院最新成果亮相 展示智能衣服瓷杯机器人等创新作品 Node.js 打造实时多人游戏框架 深圳微信开发者大会购票企业特征分析 上门汽车服务“e保养”完成A轮500万美元融资 Docker之父Solomon Hykes谈项目开发的初衷和挑战 浪潮是如何实现单日5000台x86服务器交付互联网的? Bootstrap 3.3.0发布 版本4不再支持IE8 漏洞预警:FTP曝严重远程执行漏洞 影响多个版本Unix 【简讯】W3C小组宣布HTML5标准制定完成 AMD发布GPUPerfAPI 2.14,GPU性能检测更Easy! 开放能力升级——微信公众号登陆授权开启公测! 百度最“智能”的新型推荐技术——智能因子分解机 消灭Bug!18款最佳的问题跟踪管理应用程序 Google Analytics为什么会这么快 【MDCC 2014】Xamarin深入体验营——开发实战大揭秘 【MDCC 2014】电信技术专场:运营商与开发者如何合作共赢 【MDCC 2014】高德LBS大赛闭幕式暨颁奖典礼:下一个50亿应用花落谁家? MDCC 2014移动开发者大会开幕:全生态系统齐聚 开发者成主角 蓝港互动有限公司董事长&首席执行官王峰:移动互联网泛娱乐化趋势 多盟联合创始人&总裁张鹤:多盟DSPAN助力开发者高效变现 创新工场联合创始人汪华:移动互联网时代的跃迁式增长 阿里巴巴集团UC移动事业群总裁俞永福:AMAP Inside——更专业、更开放 《程序员+》移动应用上线 启动“2014 MDCC十大人气应用/产品评选活动” 微软开发体验与平台合作事业部大中华区DX部门总经理Srikanth Raju:基于云的跨平台开发 Facebook平台工程合作部亚太区总经理张博:通过Facebook构建下一代移动应用 Vungle工程副总裁Wayne Chan:移动视频广告的未来 友盟副总裁焦岳:2014移动互联网行业趋势&大数据的行业价值与运营支持 联发科技创意实验室副总裁Marc Naddell:以小博大的可穿戴方案 用友软件股份有限公司高级副总裁谢志华:企业互联网移动化触手可及 在windows xp中怎么建立虚拟服务器呀? 解决问题,马上结贴 xp風格的問題 请问如何让一个表格的边框的宽度和表格内部的线的宽度不一样? 请问wsad和eclipse哪里有下呢? 如何理解下面的程序段 调查:你(单位)愿意花钱买服务端控件吗? 为什么有些网页是繁体字! 我终于知道什么是英雄了! 关于快捷键。 一个丑人的自白(爆笑) 转载 如何实现信息反馈? 怎样使DataGrid固定显示8行??? 一个简单的问题,关于CListCtrl.. C++文件流的怪问题,竟然不能再次打开??? 怎样在win2000 专业版上使用PHP Linux下如何知道有哪些端口未被使用?? 共享上Internet网的另一台机为何一定要配上DNS服务器地址? 来共同研究开发 文件的变量名拼写错误的检查。。。 人生交叉点, 大家进来帮帮忙 在线等待急急!在超链中有的什怎么传不过去? pb还有出路吗? 如何知道有哪些端口未被使用 请教想在页面里调用js文件达到图片轮显效果 如何在动态库中获取调用该动态库的程序的文件名称? 如何获取灰度图中各象素点的灰度值?(在线等待) 请高手帮我解决这个离散余弦变换(DCT)的问题。高分相送。 求助:sql语名查询? 怎么样在输入数据后立即更新表格? 怎么在tablename是一个参数的表中取字段值? 触发器问题?触发器无法通过确认! 请问如何将字符1转化为数字1呢? 怎样在状态栏中显示页面载入进度? WebEasyMail 很好用,不过是asp的,不知道有没有php的收发邮件的程序代码? WebEasyMail 很好用,不过是asp的,不知道有没有php的收发邮件的程序代码? 菜鸟的一问,请帮忙!! 请帮帮忙指一下路 上一个问题还没解决,所以只有找其它的办法。我要实现直接把邮件发到对方的SMTP服务器 类型转换? 现在有个NCNE国家信息化工程师认证,有没有用? 当数据库使用AddNew--Update插入数据时sql server出现进程死锁,请问为什么呢? Oracle8i技术问题 变量传递问题,急! 请教几个简单的函数(菜鸟级) 哪里能找到《实用软件工程》? 哪里有VisualJ++下载?谢谢! 在linux下,要在一台机上同时录音和放音,应该怎么做? 连接问题 非常急:文件无法创建,综合的系统问题 mdi窗口的问题 大象为何不长毛? 第二套天空套颜色怎么选 老公特别听他妈妈的话.我和老公生气往往都是因为一点点的小事,有时想想真的不值得,他特别听他妈妈的话,只要我和他妈妈的意见不统一,他就向着他妈妈说话,关键是他也是受过高等教育的 蚂蟥可以杀死吗? 单独行动——(填带马的词语)人马众多——(填带马的词语) 扩充实力——(填带马的词语) 草花头下边一个内字读什么? 移动彩钢房多少钱37平焊出底座吧1 有谁知道武士刀伞(侍伞)的“螳螂脚”是什么?在淘宝上看到的侍伞,宝贝介绍里有.螳螂脚是什么?百科里也没查到. 黄鹤楼送孟浩然之广陵描绘了一幅什么样的景象具体点,也不要太多字,就2,30个字的样子 Michael is a very happy boy 改为感叹句 蟒蛇皮哪里有买 野生熊猫有没有天敌? 5mw激光模组能接上250mw激光二极管吗? 蟒蛇皮可以买卖么 天空6套颜色怎么选 激光二极管,根据卖家提供的一些参数怎么确定该型号激光二极管电流,电压参数HL7851G - 785纳米,50毫瓦,Ø9毫米,A 型引脚,Hitachi 激光二极管,例如这个 大学高数双纽线的旋转问题双纽线绕极轴旋转,请问哪个是极轴啊要是用坐标表示的话,又是绕什么旋转啊 黄鹤楼送孟浩然之广陵描写了什么的情景 什么是激光模组?什么又是激光模块,它和单个的激光管又有什么区别? 求一个双纽线的图形,并且希望得知双纽线的图形应该怎么确定,因为题目中双纽线的方程总是变得,是应该背吗这个双扭线方程是(x^2+y^2)^2=2a^2(xy) 天空颜色选择? 激光二极管和激光模组怎么用?我看老外弄的激光枪酷毙了还可以点火柴.网上说需要激光2极管和模组怎么用?怎么组装?激光二极管和激光模组是一样的吗?说明白点好的加分 世上真的有唐伯虎这个人吗?来帮帮忙 黄鹤楼送孟浩然之广陵写的是什么季节 A boy can swim very well.A boy swims very well .这两句改成过去时怎么改呢? 某冰箱厂九月份计划生产一批冰箱,上半月完成计划的七分之四,下半月完成的和上半月同样多,结果超过计划150台,计划生产冰箱多少台? 草花头加个的字 是什么字?菂 字 怎么打..有什么输入法可以打出这个字.. 小石潭记 :第一段写小石潭的位置,有什么作用?为什么“闻水声,如鸣佩环”?作者观鱼的心情是怎样的?(用原文答)全文没有一处不在写水.请你分析一下作者是从哪些角度写潭水的特点的? 黄鹤楼送孟浩然之广陵写了一件什么事 草花头的字,一定要10个 小石潭记为什么“闻水声,如鸣佩环”? 大熊猫有天敌么?如果有那是什么? 熊猫有天敌吗?在动物世界里,很少看到熊猫与其他动物在一起?为何 为什么小石潭记的水声“如鸣佩环” 大熊猫对付天敌 Chinese doctors believe that they should [eat more yin foods like tofu.]对括起来的提问求了 急 螳螂的脚有什么特点及作用 《黄鹤楼送孟浩然之广陵》是谁写的? the newly built building is about ________A 30 metres high B 30-metre-high C 30-metre high 观察知了的作文 熊猫的天敌是什么? 一个长方体的体积是315立方米,高是2.5米,底面积是多少? 抓知了作文400字 黄鹤楼送孟浩然之广陵主要写什么 一个长方体,它的面积是315,它的长宽高分别相差2,长宽高各是多少? 知了的叫声,我要找些知了的作文. 上面一个草花头,下面一个在字怎么读 house ago years built was this five 连词成句! 写一篇知了的作文(多写外形、叫声)我是捡到了一只知了, 草花头加个及读什么? 写溪流的句子 小石潭记 大象长毛了吗? 草花头下加个弱读什么 《小石潭记》中,写溪流曲曲折折,一段看得见,一段又看不见的句子是? 最近看到一本书的封皮是《大象为什么不长毛》才发现自己不知道大象为什么不长毛.听说是 方舟子 写的.没看这本书但就想问问有没有知道的大象为什么不长毛? 草花头 加个 予 读什么 小石潭记中描写小石潭河溪流整体外形的句子是 为什么大象不长毛? 在一个圆柱形木桶里装满水水中淹没这一个一个直径18cm的圆锥高18cm的圆锥,当圆锥取出后,水面降低多少 《小石潭记》中,写溪身的句子是__________,写溪流的句子是___________. 埃及一运动员因支持穆尔西而被剥夺比赛韩媒:中国人在韩免税店消费额首超过韩韩媒:中国人在韩免税店消费额首超过韩美情报委员会主席:白宫已承诺停止监听日本称中国军机连续3天飞越宫古海峡实美一男子喝红牛饮料后死于心脏病 家人艺术家将住“蛋壳屋”内 旨在警示气候利比亚运钞车遭抢 劫匪抢走总计数千万男子将中国瓷器当垃圾尘封20年 拍出奥巴马以“不知情”回应窃听风波 政客美国军火巨头创新型侦察工具 可安放于青海民间手工艺展在曼谷拉开\"今日中英国海军借“小甜甜”歌曲“吓退”索马日著名餐饮集团被曝食品造假 欺骗顾客美国监听门事件愈演愈烈 白宫承诺将重欧洲西部多国遭飓风袭击 已致至少13津巴布韦男子蝉联最丑先生 自称丑与生中国公司承建的首条至斯里兰卡铁路动工男子将中国瓷器当垃圾尘封20年 拍出美参议院情报委员会主席:白宫已承诺停华人男子失业 纽约杀表嫂一家5口提审3D全息投影还原卖火柴小女孩的三个愿徐根宝在西班牙“双喜临门”嘉实成长收益获 晨星2016年大奖改善儿童睡眠问题,或需从戒掉“哄睡”留学英国 找到最适合自己的学校一空网与恒远携手打造生命钻石新老戏迷都能觅到可口的“菜”SWIS的收获季上海职工社保费率下调2.5个百分点108岁的通用汽车争当互联网新人华安安禧保本值得关注松江半马鸣枪开跑 特色补给亮点十足策略正确新能源车充电市场身陷“三重困境”基金:市场信心有所恢复敢问路在何方?中华企业虽戴帽但仍有发展潜力张继科、李晓霞夺冠用双手凝聚爱的海派“绿色疗法”“中国好同学”也救不了*ST博元个人征信应用领域拓宽
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘