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

透明的Form上显示背景透通图 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
透明的Form上显示背景透通图 -VB资料
这是一个很奇特的功能,首先要让Form变透明,接着,放一张背景透明的.gif图进来,
如此,这变成一个透明的form,上面有许多Button,且图不会是一个方形,而会让图
的背景透通。
但有一点要注意,这种透明的Form不可以移动,否则一移就会发现它似乎不是透明的,
这个很不好解释,建议您一开始设定Form的BorderStyle = 2 大小可变可移动,而去移
动与更动小大,便可以知道。因此,在设计阶段时,一定要设BorderStyle = 0 没有框
线,这样子您的Form才不会有问题。
首先我使用以下的程式码令Form变透明

注:有适当的软体(如 MS PhotEditor)可以将图变成背景透通(引用 老怪之言)

Me.AutoRedraw = True
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hBitmap
Me.Refresh
而透明的图形呢,那需要那一种背景透通性的.GIF档,在Form上放一个Image Control,将
图放到Image Control,那就OK了注释:需一个Image Control , 一个Command1
Option Explicit
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private hBitmap As Long

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
注释:事先请设form的BorderStyle = 0 没有框线
Me.AutoRedraw = True
Set Image1.Picture = LoadPicture("e:\bubbles.gif") 注释:请自行找一个背景透明的图
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hBitmap
Me.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
DeleteObject hBitmap
End Sub

任道远上任VMware中国研发中心总经理 Windows免费,微软方能解救PC市场 Hadoop核心架构HDFS+MapReduce+Hbase+Hive内部机理详解 将会出现iCar?苹果应该收购特斯拉的七大原因 广大程序员的福音:Bing Code Search扩展助你方便查找代码 深挖线下价值是当前婚恋交友网站获取盈利的突破点 15个最好的Bootstrap设计工具推荐 Google首席软件工程师Joshua Bloch谈如何设计一款优秀的API【附PPT】 Webix 1.5发布:一个强大的JavaScript UI组件库 四大著名风投:在我们眼中只有技术革新 美女CEO谈AWS:是香水还是毒药 国外一学生发明新计算机系统,用微芯片代替硬盘 《近匠》第12期:Yeelink——智能硬件云服务 三星Galaxy S5:home键内置指纹识别传感器、5.25寸2K屏幕 Google发布Google Glass使用守则 三星将发布新款智能手表 搭载Tizen系统抛弃Android 从Camera360 V5版本发布,看现代相机应用趋势 索契冬奥会API:赛事的数据直播 为什么开源企业的开源大旗正在褪色 尘埃落定 腾讯确认投资大众点评,获20%股份 Unite China·2014:上千Unity开发者狂欢、五大精品课程全面开启 下载4万首歌曲仅需几秒——蓝色巨人IBM发布新传输技术 15核芯片+数据平台,Intel软硬兼备的Hadoop战略 Facebook以160亿美元收购50名员工、4.5亿月活跃用户的WhatsApp 2014年全美最吃香职业TOP100,程序员排第一 LinkedIn向所有用户开放博客发布平台 Google与Facebook的产品研发之道 小米海外扩张第一步 红米进军新加坡 Google I/O大会时间已定,Google Glass真的来了? 精英团队PK全能型数据科学家,拼的可不只是数量 专攻移动支付?PayPal将面向全球开放移动SDK 我想学vc++请问我该看什么书? 读密码(*****)的软件有哪些?(答对就有分) 如何重复使用自己以前开发的库文件*.pbl文件? 关于用DELPHI6的WebSnap开发网络应用程序的讨论 为什么在线程里,在以CString做为返回值的函数总出错? 哪位大哥能指点迷津? 采用中文变量名或者过程名或者函数名有没有什么副作用? 怎么用udp协议发送信息? bdk1.1 WinXp和Win2000对等网的连接 前两年做的软件,竟然出现在D版盘里面,觉得跟高兴。 如何将实数转化为字符串? 求助!!有谁用过LINUX下的UCD-SNMP? jBuilder6 for windows的注册码 winsocket的简单问题 [Linker Fatal Error]Fatal:Expected a file name:这个错误怎么解决? 大家都来看看怎么实现这个效果。。。 关于cscrollview 我下载了delphi6的补丁2,还未安装是否要先装补丁1。要如何?? 数字签证的问题 关于cscrollview 使用专利技术是什么概念啊?高手指点。 vb6.0中如何将dbgrid里的内容添加到数据库里? 谁能告诉我哪里有第三方控件下载吗?高分相送 游戏编程是否要用到物理知识? 数据库启动时出现错误"Cannot mount database in exclusive mode" 也许这个问题很无聊! 这个连接有实时错误为什么呢 请高手指点 我想用VB+SQL 做一个数据库 什么样的delphi能进深圳?? HELP 找几个做过行业应用软件测试的朋友兼职~~ 寻觅UNIX高手 一个专科生想考研,大家出出主义,有没有 过来人? 哎,VC版两个月前的问题,三次回复都是自己,那位水友版忙gz一下,100分专家分到手>>> water_j(jxp),有事? 请问如何在线程中启动对话框? 关于Java的疑惑?? 为什么在打印预览时,一点一行数据就看不见了啊? 推荐一本好书《.NET框架精髓》 vxworks中的定时器 关与表更新的问题! 在线急等! 推荐一本好书《.NET框架精髓》 如何编辑和得到属性文件? 请问大家都用什么操作系统?!?急!!经常用winme的进来! 求历年高程考试试题 紧急求救! BCB6光盘中有没有压缩控件?如有,谁寄给我送分100。 茫然 怎样获取系统的分区列表,如a:\,c:\,d:\等等? 请教怎么样做这个程序? 迫切需要您的帮助和提示 看不清楚问我用方程解 一间房子用方砖铺地,用边长是3分米的方砖,需要128块.如果改成边长是2分米的方砖,需要多少块? 有一条鲨鱼,身长等于头长加上尾长,尾长等于身长的一半加上头长,头长2.4米,问这条鲨鱼的身长是多少? = 为什么白酒质量的表达式 m=πmd²h/4v 中有个4····小翔的爸爸在某酒厂上班,酒场内有一个巨大的圆柱形酒池.周末爸爸给小翔布置了一个实践任务:如果在酒池内装该厂生产的52度白酒 最先为昌黎韩愈所知什么意思? 一条鲨鱼,头长3米,身长等于头长加尾长,尾长等于头长加身长和的一半,这条鲨鱼全长几米方程 翻译成英语.你所浪费的今天是昨天死去的人所向往的明天 只需要描写到人物的神情、动作,音乐的声音. 一条鲨鱼,头长3米,身长等于头长加尾长,尾长等于头长加身长的一半,这条鲨鱼全长是几米?大哥大姐帮帮忙! 一个数除以100,商是10,余数是整数,这个数最大是多少?(应该不难吧~有木有人知道答案) 描写弹钢琴句子如题~描写弹钢琴娴熟的片段 一条鲨鱼头长4米,身长等于尾长,尾长等于头长加身长的一半,这条鲨鱼长多少/ 有家真好作文100字,20字开头,80字文章关于童年作文100字,20字开头,80字文章关于读书作文100字,20字开头,80字文章关于动物作文100字,20字开头,80字文章 描写弹钢琴的句子 一头鲨鱼,头长2米,身长等于头长加尾长,尾长等于头长再加半个身长,这条鲨鱼全长多少米怎么写 新海实验中学80年校庆作文800字左右急用! 在EXCEL用函数改数据的尾数将一列数据里的所有的尾数改成固定的一个数,注明:只改尾数.例275,改成278.456改成458.9877,改成9878.不管这个数有多长,或者为几位小数点,只将个位数上的数字改为了 关于起点 的作文命题为起点 我很幼稚,我应该看什么书或者是什么电影呢 能让我的情商提高点.我现在已经25了希望能对自己有帮助的我很幼稚,我应该看什么书或者电影呢 能让我的情商提高点.我现在已经25了希望能对自 求描写弹钢琴的动作的句子或段落! 已知a-(cos10°,sin10°),b=(sin20°,cos20°)1求a+b的值2求证:a+b与a-b互相垂直 已陪伴为题的作文的开头,不超过80字! 求一些描写上台表演弹钢琴的句子不仅要单纯的描写音韵的句子,要我的心理变化,观众的反应,我的动作等等 张强,刘志,王明依次住在同一个单元的第3,8,和11层.已知每两层楼之间的台阶都是18级.从刘志家到王明家要走多少级台阶?从张强家到王明家呢? 求以勇气为题目的作文开头,30到80字,不要复制的啊! 现有一个EXCEL数字表格,每个数字要统一除以12,并且在输入命令后可以显示被除后的最大整数和余数. 张强,刘志,王明依次住在同一单元第3,8和11层.己知每两层楼之间的台阶多是18级,从刘志家到王明家要走多少级台阶,从张强家王明家呢 因为陈翔我懂得了坚强(作文、500字) 描写古筝声音的优美语句(不要诗句!好的加币! 、 一条鱼头长3米,身长等于头长加尾长,尾长等于头长加身长的和的一半,这鱼全长多少? 用方砖给一间教室铺地.如果用边长4分米的方砖铺,需要500块.如果改用 边长5分米的方砖来铺,需方砖多少块 我是男生,今年16岁了,身高170cm,还能长多少很郁闷啊 描写路过房间听到优美的古筝声的句子 525除以314= 读书手抄报资料内容不要读书名言,诗句.少一点,35个字左右 描写古筝声音的优美语句 怎样理解这句话“我荒废的今日,正式昨天殒身之人祈求的明日. cos20/(cos10+sin10)+sin10 求描写古筝声音的诗句描写古筝和古筝声音的诗句 最好带上译言 只需要诗句就够了 不要全诗 记得一次有意义的事作文350字 最先为昌黎韩愈所知 翻译 觉得自己太弱了...哎...,.. 小红和小军住在一栋楼的同一单元,小红住在5楼,小军住在3楼.小红每天回家要走72级台阶,小军回家要走多少 房间.用边长5分米的方砖铺地,需128块,如过改成边长8分米的方砖铺地,需几块?比例解 让小球从斜面的顶端滚下,如图所示,是用闪光照相机拍摄的小球在鞋面上运动的一段,已知闪频为10hz,而且O点是0.4s时小球所处位置,请估算(1)小球从O到B的平均速度(2)小球在A、B点是瞬时 一篇作文《一件有意义的事》350字 韩愈故乡所在的昌黎是不是河北昌黎 谁知道描写雪的比喻排比句一定要比喻的排比句 记一件感情亲身经历经历作文350字 一间房间,用边长5分米的方砖铺地,需要128块,如果改用边长为8分米的方砖铺,需要多少块?(用比例解)用比例解! 用比喻、排比句描写水.结构相同,内容相似.句子优美流畅.有深度。 记一件事作文 用上象声词 350个字 韩愈是河北昌黎人吗? 用比喻,排比句来描写微笑.要求优美,格式相同.最好原创。 不明白到底怎么写 用方程做有答案的 一个房间,用边长为五分米的方砖铺地,需要128块,如果用边长是8分米的方砖,要多少块?(用比例知识解) 一个房间要用边长为3分米的方砖铺地,需96块.另一个房间与这个房间的面积% 假设int a=1,b=2;则表达式(++a/b)*b--的值是多少? 韩愈祖籍昌黎,这个“昌黎”现在是哪个地方 一间房间用边长3分米的方砖铺地,需要96块,另一间房间与这个房间的面积比是5:4,如果另一个房间用边长为4分米的方砖铺地,约需要多少块方砖?用一元一次方程解就一个X的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘