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

用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
WEB开发中将数据库记录转换到EXCEL表格文件xls供下载 F#是什么语言 函数式编程语言F#:基于CLR的另一个头等编程语言 编程获取Google PR值方法集锦 第一个F#入门程序Hello world 在F#中将函数作为一等对象的值 PHP获取Google PR值 ASP.NET(C#)获取Google PR值 android.appwidget类剖析 Android NDK之JNI使用例子 RemoteViews - Android Widget开发入门 ASP.NET如何用正则表达式得到网站页面中的所有链接 PHP实现图形验证码案例(1) Android Widget开发实例-电量监控 Android自带Widget - Clock指针钟表源代码分析 C#实现文件批量改名工具 PHP利用Google Chart API生成饼图 PHP操作SQLite数据库 PHP利用DomDocument创建XML文件 ASP.NET如何加密/解密URL网址 如何使用C#读取csv文件 三步骤实现ASP.NET(C#)项目中添加谷歌(Google Map)地图 使用C# ASP.NET以FTP客户端方式下载文件 ASP.NET如何用C#代码检测手机浏览器 使用C#读取上传的Excel文件 新版本SQL Helper类 C#使用iTextsharp生成PDF 在.NET里用iTextSharp库生成PDF文档 用itextsharp将ASP.NET页面导出到PDF中 什么是JQuery-JQuery API jQuery入门指南-JQuery API 500分求救! 请问大家那里有jrun 4下载 如何自己析构单文档模板? MASM32中标号的疑问 这个错误该如何改 关于在OUTLOOK中如何自创模板的问题? com系列丛书那里有卖 一个关于鼠标事件的简单问题 为什么我在JSP中能得到TEXT文本中的数据,却得不到在SELECT中的数据呢? 求救!为什么我的ACESS数据库文件会莫名其妙的达到25M,我还没输任何数据呢?而生成MDE后只有500K? 我要一个功能强大的弹出日历 Viva La Costa Rica! 我再也不看Chinese Team的比赛了! 如何做jar包呢?还有如何做bak呢?大家救救我吧。 《inside the c++ object model》问题 这句是什么意思??? 问一个Win2000Server域用户客户端登陆问题。 小问题:在线等待:) 如何删除一个ini文件中的关键项目?急 求救!为什么我的ACESS数据库文件会莫名其妙的达到25M,我还没输任何数据呢?而生成MDE后只有500K? 求教关于c++builder的图象预处理的源代码。50分!!还有金钱相送! access的问题 郁闷!!关于数据窗口一个奇怪的问题!! 如何实现断点续传 寻求《软驱监控程序》!!!!!!!!!!!!!!价格面议 用imp恢复数据库,要做什么准备呀? 刚才给分失败,重新散分! 关于SQLserver数据库和MDB数据库的句语问题!!! IE数据保密大全,如何禁止以下功能?菜单,工具栏,收藏夹,鼠标右键,PRINTSCREEN键,键盘快捷键 帮忙:DCOM 无法使用任何配置的协议与计算机 慨n 通信? 查询问题 请教bean中填写方法问题,高手帮忙啊!!!!! 昨天回家遇到打劫,被暴打一顿 本人有一个数据窗口对象中的一个字段,其为DDDW型的,可是在它的选项页中却怎么也不能显示出我想设置的名字显示出来,却总是显示保存在表中 在线求助,当场送分。 用MASM编译DOS程序经常有问题啊!? asp.net问题 有关DateDiff的问题。。。SOS 请问用什么软件制作chm帮助文档? 数据库中记录条数在增加,但字段却是空的呀??? 高分求:如何确定TreeView的SelectedItem为空? ******* 怎样调试硬中断程序? 存储过程中的一个语法问题 servlet中forward到jsp页面的显示问题 SOS:请问一个页面在不同分辨率下适应性的问题! 我在做数据库链接时,出现了编译错误,实在看不错在哪里(在线等待) rpm的升级过程中的问题,请大家关注 有关gethostbyname的问题 关于数据库系统信息的ini文件 请问一个简单语法问题 股票界面的画法问题 自从和男友去看了《我的野蛮女友》后,我又变野蛮了~~ 什么是十一届全国人大一次会议第五次全体会议第五次全体会议是什么意思? hiu chet lun?你俩肯定用了google了。她的意思可能是:“我知道了。我在聊越南MM,今天有个越南MM发消息给我,我说:我在工作中。然后她就说了这句,我猜是:“知道了”的意思。我是用英 简要概述我国秦汉时期先于世界的科技文化成就,你对此有何认识 判断一下题目是否正确.为什么?1.将水加热,Kw增大,pH不变.2.偏铝酸钠的水溶液经加热浓缩、蒸干灼烧后能得到其固体. 1关于牛顿第一定律,下列说法不正确的是1A、不能直接用实验来证明B、是根据实验推理出来的结论C、可以用“斜面实验”来证明D、是多人总结概括的结果2由于实际上不存在不受力的作用的 秦始皇采取的郡县制和三公九卿制两项措施有什么作用 判断下面题目是否正确,为什么? 1.下列关于催化剂的说法不正确的是( ).A.化学反应前后,催化剂的质量和化学性质都不变B.催化剂可以提高某些化学反应的速率C.催化剂可以降低某些化学反应的速率D.任何化学反应都需要催 三氧化二铝,氧化钙,二氧化硅的分析方法?硫鉄矿选硫后剩下的残余物,想要检测三氧化二铝,氧化钙,二氧化硅含量,请问用什么法方,最好提供标准编号! 春秋战国时期的成语典故,要简洁一些 ( )1、下列说法正确的是A.欧姆表的测量范围是从零到无穷 B.用不同档次的欧姆表测量同一个电阻的阻值,误差是一样的 C.用欧姆表测电阻时,指针越接近中央时,误差越大 D.用欧姆表测电阻时 秦始皇采取郡县制的历史影响 判断是否正确? 葛洲坝和三峡哪个大 谁能帮我写一篇800字的小论文:论述郡县制的沿革及秦始皇所推行郡县制的具体内容并评价其历史作用请有识之士帮帮忙,谢谢. 春秋战国时期的成语典故卧薪尝胆\一鸣惊人\纸上谈兵\胡服骑射\围魏救赵\负荆请罪\退避三舍的含义以及典故 三峡葛洲坝位置分别在长江那个位置哥们没那么麻烦就是哪个更偏上一点,不用那么具体…… 秦始皇实行郡县制的目的 判断③是否正确 比三峡小,葛洲坝大的水电站说一下具体地点和水电站的名字 我想知道这句话下,液体硫酸铝的浓度.液体有7-8个铝的含量.急用, 帮我判断是否正确 长江三峡起源及结束开垦开垦坎坎坷坷 硫酸铝溶液蒸干后为什么还是留下硫酸铝固体 CO2和NaOH反应的离子方程式 区分日常生活中的下列各组物质,鉴别方法正确的是选项 待鉴别的物质 鉴别方法A 氯化铵和碳酸钾 加水溶解B 自来水和蒸馏水 加肥皂水,观察产生泡沫多少C 羊毛纤维和化学纤维 灼烧闻气味, 氧化钙和氧化铝在高温下能否直接反应?反应方程为? CO2分别与少量NaoH和足量的NaoH溶液反应的离子方程式?Why? 三峡中各个峡的名称的来历是什么?三峡中的西临峡为什么叫“西临峡”西临峡的一段黄猫峡为什么叫“黄猫峡”?灯影峡为什么叫“灯影峡”?崆岭峡为什么叫“崆岭峡”?米仓峡为什么叫“米 二氧化硫 氧化钙 反应温度用石灰石脱硫 二氧化硫与氧化钙的反应温度 氢氧化钠溶液和二氧化碳的反应离子方程式? 下列是除杂质或物质鉴别的方法,其中正确的是( )下列是除杂质或物质鉴别的方法,其中正确的是( )A.FeSO4溶液中含有CuSO4,可以加入过量铜粉,经过过滤处理.B.铜粉中含有少量铁粉,可以 2012年3月,十一届人大五次会议通过关于修改刑事诉讼法的决定 见下面2012年3月,十一届人大五次会议通过关于修改刑事诉讼法的决定,新的刑事诉讼法在证据制度、强制 措施等方面增加了有关 印度手工棉纺织业原来很发达,棉纺品曾经大量出口英国.19实际以后,英国凭借强大的实力,采取各种手段,打击印度的棉纺织业,是指迅速衰落下去.著名的纺织业城市达卡,187年有15万人口,8年后 长江三峡的名称各是什么? 氢氧化钠,氢氧化钙,氢氧化铜,氢氧化铁四种碱中1水溶液能使酚酞试液变红的是___________2不溶于水,但能溶于酸的是___________ 越南语翻译,别人发我,我看不懂. 下列物质的鉴别方法正确的是 A.用澄清石灰水鉴别氢气和一氧化碳 B.用无色酚酞鉴别碳酸钠溶液和氢氧化钠溶液C.用食盐水鉴别硬水和软水D.用水鉴别硝酸铵固体和氢氧化钠固体详细思路叙述 碳酸钠中含有杂质氢氧化钠,为什么不可以加入氢氧化铁验证 帮我翻译成越南语,谢谢(叫你姐姐打电话给我!)不要软件翻译,他看不懂 三峡的来历 惯性现象如何解释 英语翻译如图所示..这玩意有何作用 鉴别下列物质的方法不正确的是A高锰酸钾和氯酸钾 观察颜色B蒸馏水合双氧水 加入二氧化锰观察是否产生气泡C空气和氮气 用带火星的木条伸入集气瓶中观察D氧气和二氧化碳 通入石灰水中 NaNO3+NaOH+Al-NaAlo2+N2+H2o怎么配平 下列说法正确的是 ( ) A a的系数是0 B 1下列说法正确的是 ( )A a的系数是0 B 1/y是一次单项式C -5x的系数是5 D 0是单项式 三峡名字由来? NaOH+NH2NO3-----NaNO3+NH3+H2O 怎么配平我配不出来 呵呵 1.关于自由落体运动,下列说法正确的是A.物体竖直向下的运动一定是自由落体运动B.自由落体运动是初速度为零、加速度为g的竖直向下的匀加速直线运动C.物体只在重力作用下从静止开 有关春秋战国的成语故事 户外旅游喝什么水 1.下列有关气体压强的说法中,正确的是()A.气体分子的密度减小,气体的压强一定增大.B.气体分子的密度增大,气体的压强一定增大.C.气体分子的平均动能增大,气体的压强一定增大.D.气体分 为什么氧化钙和氧化铝形不成尖晶石结构 什么是户外旅游?户外旅游与户外运动在含义和范围上相同吗? 1.关于无形资产的后续计量,下列说法中正确的有( ). NaOH与CO2的反应方程式 再装有水的杯子上放一硬纸板,纸板上放一鸡蛋,迅速击打鸡蛋下的硬纸板,鸡蛋会竖直落入杯中,并没有沿水平方向运动.请注意一下格式,要像这样,如:xx原来静止,由于惯性,仍然静止.(三小句 氢氧化钠与碳酸钠反应的方程式.注:氢氧化钠 NaOH 碳酸钠 Na2CO3 我没打错吧,确实是这样的。 浓NaOH和CO2反应的方程式! 配平这个方程式Al+NaNO3+NaOH=NaAlO2+N2+H2O
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘