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

用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
助力国产移动产品出海,UCloud部署北美节点 Zack Parker:用EC2在Cotap上打桩 用卫生棉杀敌冲关!两个高中女生的创意游戏 专访《Java程序员修炼之道》作者Ben Evans:保守的设计思想是Java的最大优势 Google收购Firebase 帮助程序员快速开发出移动App和Web App 微信支付开发关键点技术解析 游戏任玩!开源虚拟现实头戴式设备Open DoVision MDCC大会召开倒数10天 看Twitter、Facebook和国内“BAT”三大巨头最新动态 《近匠》Wijmo 5 CTO:从Web到移动,我的25年编程生涯 重复充电、防丢失!多功能智能行李箱Bluesmart 【设计经验传承】图标设计初阶要先型 “光年”光纤路由 支持千兆网络的家居中心 MDCC 2014移动开发技术与平台峰会:知名应用技术大牛传授实战经验 Unity生态圈将变?EA前总裁接替创始人任新CEO 第九届中国Linux内核开发者大会在京举办 《近匠》爱拍SDK:手游录像分享 爱拍才会赢 Mark走起!iOS开发最常用的第三方库 【CTO俱乐部读书会】《人件》译者肖然:软件工程是社会学 错过就要等一年 深圳微信开发者大会不容错过的十大理由 【干货】国外程序员整理的 C++ 资源大全 一周消息树:被投资人“送”入看守所,创业人汪洁有罪还是无罪? 聚焦五大主题 Atlassian Summit 2014精华PPT下载 2014中国移动开发者大调查第四期获奖名单曝光 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(一) 【特惠倒计时两天】参加深圳微信开发者大会赠书及全套讲师讲义 《英雄联盟》支撑最高750万同时在线用户的聊天服务打造 深圳云软技术副总黄榕振:招行信用卡微信公众号开发高级篇 来自未来的你,MDCC 2014新奇智能硬件揭秘 Twitter开源云环境时间序列数据断层检测工具BreakoutDetection 浅析Facebook软件架构:Tao和BLOB的实现原理 【图文实录】CTO俱乐部:走近Keen Team,走近智能设备Hack 安徒生童话之六---老爹做的事总是对的 (呵呵,好故事,很美丽) 如何调用EXE或DLL程序,使被调用程序是调用程序的MDI中的一个子窗口? 《网络设计师教程》P103表5.2中 4B/5B码和4位2进制之间是怎么转换的? COM进程类组件中,在一个接口中加了一个方法,成员变量类型CString,可是不行,那该用什么? 请问那里有 motif toolkit 开发工具下载 一个mysql的问题! 出售软件源代码以及销售权! byte类型的数据如何转化成二进制数,显示给用户(如8-》0000 1000) 代征:精通vc的深圳朋友,精通网络通讯的开发和多媒体处理。 20分求助!这条警告是什么原因呀?怎么解决 ?LINK : warning LNK4089: all references to "SHELL32.dll" discarded by /OPT:REF 局域网的文件共享传输是基于什么协议的? windows and dos ??? 请问大家几个技术问题!!谁能回答阿!比较着急!:) 有没有代替VB里的PICTUREBOX 的控件,VB里的不好用?????????? 我是新手,请问JSP有些什么开发软件?比如JAVA用JBUILDER。。。 请问知道整型值a=97,什么函数可以得到"a"呢?即97->"a"通过什么函数呢? 如何将十进制数转换成二进制数 函数对象的简单问题 喜欢仙剑的朋友请进。:) 恭喜恭喜? 我想制作C++ Builder4工程的安装程序,不知道用什么软件,请大家帮忙。谢谢! 请问大家几个技术问题!!谁能回答阿! 我是ASP初学者,请求一个简单的问题,Help!!! 有没有关于installshield6的书, 快看呀!我真的要不行了! 请教大家一个术语吧! 低手问题,关于Form中的数据问题,谢了。 如何用PictureBox控件显示GIF图?特急!!!!!! 单文档多视(急!) 想学delphi中关于database方面的内容,不晓得哪本书好,大家推荐好吧? “CSDN准备推出海外图书邮购服务,首批是侯捷的著作和译作” 什么时候可以开始? 谁能介绍一下嵌入开发领域比较成熟的产品?他们的功能、性能如何 关于Autocad字体的问题 在 ActiveForm 中如何初始本地数据模块!菜鸟问题! (const char *)&p转化为delphi语言该是什么? ####我拼了命也要问出这个问题的答案########## 怎样才可以描述点击窗口右上角的“x”时所发生的事件,请给个例子,谢谢了! 哪儿有Install anywhere 4下载 庆祝kylix2001,终于知道叫什么好了,耶………… VB,请问set obj=new class 和 dim obj as new class的区别????????? install anywhere 4 哪儿有下载? GGMM,向我灌水..... 如何截获视频卡串送过来的图像。 高级程序员,在weblogic上做j2ee开发半年多,jsp一年左右,求职。 那里有PB的反编译工具? ~~~~~~大家注意了: wjyasd(即使用FPE改了钱,也绝不能忘记艰苦朴素的优良作风) 这个帐号…… 关于动态连接与静态连接的问题,送分了!!! Delphi6又多了那么多的控件。每个都要去研究么??? 哪里有RSA加密的delphi源代码下载呀? 一个WINDOWS编程的问题 bind sock return WSAENOTSOCK error! why... ...? 关于母爱和父爱的作文100字 读课文填表,遵循 瘦 字,看看作者是怎样把鲁迅先生的形象写具体的怎样的瘦\x05 观察位置、条件\x05怎样具体描写鲁迅先生的形象\x05 远、暗\x05\x05 走了出来\x05\x05 抽书、递书\x05\x05 面对面 \x0 赞美手指的作文 关于父爱母爱的作文 550--600字左右是的 根据六年级课文《千百年梦圆在今朝》一文填表.时间 事件 意义明代 人类首次火箭飞行失败 横着看,如时间 事件 意义,填问号处 我手指的这篇作文怎么写 求关于父爱的作文300字要精彩的 不要流水账 热牛奶的坚决不要 关于父爱母爱的作文350个字左右 丰子恺 手指 这篇课文的中心 写父爱的作文300字,只要300字可以的加悬赏分 找一篇500字左右的作文《我心中的爱》关于父爱,母爱的. 丰子恺《手指》的原文要原文! 这一刻,我感受到了父爱作文500字 关于父爱或母爱的200字作文200字,一定是200字左右!不用多!用动作描写或外貌描写, 丰子恺的手指是什么文章属于什么类型的,比如记叙文之类的 父爱作文 关于父爱母爱的作文500字左右 有奖励哦最好带有侧面描写哦!我不想要重复的哦!百度上能收到的我不要的哦!。。。(*^__^*) 嘻嘻……谢谢大家! 模仿丰子恺的手指写文章急用!大哥大姐帮帮忙,好的给15分 关于父爱的作文.老师让我们写一篇 有关于父爱的作文,要体现出父爱的伟大,要有真实感受要体现父爱的伟大,要有真实感受,自己不得少于600字. 感动作文的结尾快 丰子恺手指 初读课文,说说本文写了一件什么事?文章开门见山先写 ,再写 ,最后阐明 . 求作文:我深深感受到了父爱的伟大!初三的作文,600字! 《一件令我感动的事》作文结尾写汶川地震的事结尾怎么写今天要 《忆读书》主要内容 有关父爱感觉描写的文章父爱感觉的,不要具体事例, 感动的作文 结尾关于母爱 忆读书主要内容快, 父爱的作文500字 求一些关于父爱的作文的素材 去几个例子,别太复杂,很急,快 忆读书的主要内容 求:关于写父爱的作文 800字 写父爱作文的素材有没有? 忆读书这篇课文的主要内容 要用简洁的语言概括选文的内容 父爱的作文700-800字亲身经历 有没有关于父爱和母爱的文章,诗,素材和事例之类的 用一句话来概括《忆读书》的主要内容还有好多 一,结合语境,体会下面句子中加点词语的表达效果其中有一幅画的是希金斯身穿(身穿是带点字),涉水过河,一首提(提字带点)灯笼,一手拿 关羽父爱的作文,800字 父爱 作文素材要你自身的,不要他人的.要新颖的,不要太俗的像关于生病被照顾的,下雨送伞的等等都不要 丰子恺的《手指》主要内容 写一篇有关父爱母爱的作文 800字的 如何理解课文的主要内容 丰子恺 手指 主要内容 求在父爱中成长的作文(800字) 用简单的语言把 丝绸之路 这篇课文的主要内容以及你的体会,感受写下来. 走遍天下书为侣的主要内容 关于感动的作文 800字 爸爸的花儿落了的整体感知与主要内容还有我们可以从哪些细节理解与深入课文的各方面 小学五年级语文3课走遍天下书为侣的主要内容是什么 感动作文800字 整体感知,根据课文内容默写.《爱莲说》既写了莲花的美丽,又歌颂了莲花_________的高尚品质《爱莲说》的中心句是:_________公园画展,观赏杜丹的人总比观赏其他花的人多,用《爱莲说》中的 《走遍天下书为侣》课文 以感动为话题的作文 800字 急要有叙事的内容 读《黄河之水天上来》这篇课文,给你感受最深刻的是什么内容?并写一写你从中体会到了什么? 走遍天下书为侣课文《走遍天下书为侣》课文 关于母爱或父爱作文150字左右 1、手指这篇文章采用了什么的表达方法,语言怎么样 2、照样子写句子 匆匆那篇课文__有__的时候 要3个 走遍天下书为侣这篇课文中表达的主要意思是什么? 我懂得了(母爱或父爱) 作文600字 读课文 填表 看不见的大力士段落 小标题 压缩空气的用途 原理 2 3 4 类似《手指》的作文在小学六年级的课文里有《手指》这篇文章,能帮我找一下类似他的文章吗?急用.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn