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

透明的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

Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 突出图片搜索:微软向测试人员开放Socl社交搜索 豌豆荚创始人:和巨头竞争,我们拼产品和技术 “互联网女皇”报告解读:智能电视大趋势 苹果扩大其北卡罗莱纳州燃料电池发电场规模 Oracle回收站使用全攻略 微软这次很诚实:IE真的糟透了 Facebook进军短信业务,挑战微信鼻祖WhatsApp 从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 绝境求生,WebOS寄望Android Facebook在移动路上走过的那些弯路 曙光聂华:推动数据融合 CloudStack Committer李学辉:2013年社区将爆发 有什么办法可以禁止FLASH右键 我得到了Msg.LParam,并且知道它发过来的是一串字符,请问怎样将Msg.LParam转成字符串显示出来? windows socket 1.1的一个问题 这个查询怎么写? rzhou(海盗) 收分来 寻程序员,短期,欢迎加盟!!!!!---------熟悉j2me的!!!!面试合格,待遇为150/天 如何在ADO中设置SQL的字符集? fastreport合计问题????兄弟们指点指点啊!!!! 怎样提高DCOM的响应速度 如何用ASP 在函数/过程中建立全局变量 金刚般若波罗蜜经  陈天竺三藏真谛译  如是我闻。一时佛婆迦婆住舍卫国只陀树林给孤独园。与大比丘众千二百五十人俱。尔时世尊于日前 一个矩形件的排样下料问题,一批板料(长L,宽W),n种零件,每种零件宽度和数量分别为:li,wi,mi,求优化排样结果,恳请各位大侠帮忙!! 请教:关于treeview 读取SQL Server的numeric字段用什么函数? rzhou(海盗) 收分来 急救:“段落或字节不能超过64K”???在线等待 初级问题! rzhou(海盗) 收分来 大家好!!用java开发数据库!!请帮忙!! 排序问题! 1。对vcl库底层机制一些不明白的地方 可以写代码导入数据吗? 连接ORACLE数据库时候的错误提示 关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框 菜鸟提问,向高手请教一个VB中SQL中的问题, 怎样显示局域网内的所有计算机 请问谁有用VMware设置好的solaris文件啊?或是那里可以下载啊??谢谢了~~ 帮帮小弟呀!!散分 在本地机遇到数据无法提交或读取的事,动网论坛的数据也无法读取,什么原因啊 寻程序员,短期,欢迎加盟!!!!!-------熟悉j2me的!!!!面试合格,待遇为150/天 关于Form的构造函数和OnLoad方法...... 请教Web Services的分布式创建和引用的问题?急!!!!! 在c#的WinForm中如何显示cdr文件,CorelDraw图片哪怕是8.0也行 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 怎么样得到游标中的数据的多少记录。 求解1000的阶乘 请问大虾有关BootCode方面的一点问题??非常急! 高分请教:如何在安装程序时注册OCX控件? 请问:在TDbgrid控件的TitleClick事件里如何取得鼠标击键的坐标位置? netwell服务器有不断的响声,急急急................. ★★请教新闻发布系统的图文混排问题 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 这句SQL应该如何写? 怎样在VC里面开发手机上程序?需要装什么软件? 请教:这个onLoad事件怎么不起反应 关于web services,大哥麻烦帮助小妹吧! 我现在神思恍惚,无心工作,天天上网灌水打发时间,大家估计我多久会失业? 使能工具栏的某项 网络下载编程求助(紧急求助) 如何判断一个字符串中是否含有某一字符? 如何在网络断开的情况下判断,等网络恢复后再自动连接??? 列出方程并求出方程的解 什么是机井桩 鸽子抱窝为什么蛋不下窝里 列出方程,并求出方程的解 一个数的10倍比8.5乘1.4的积少6.9,求这个数.(要列方程,并求方程的解~) 心烦可以用什么古文来描写?最好是深刻的 冷血动物有那些,蛇是冷血动物吗? 1、2、3列出方程并求出方程的解 1+1到底等于多少啊!TMD烦死我了.我只要一个答案. 关于冷血动物(蛇)的传说. 英汉互译仙人掌 哥哥家阳台上种了一棵仙人掌,它长得很大,仙人掌叶面上长满了刺.它生命力很强,特别耐旱 北京能看到8月1日的日食吗? 我的珍珠鸟往窝里叼草是不是要生蛋了呀?如果是快生蛋的话那要注意的什么 如何列出该两题的方程 8月1日的日食建能看到吗? 海尔 美的 白雪 星星和澳柯玛冷藏展示柜哪个质量和售后好? 可怜九月初三夜的下一句是什么 “留守儿童”一词来自哪里? 澳柯玛展示柜 列出此题的方程式, 砌quan机井的quan字怎么写 再过整整一个月左右的时间,我们就毕业了.修改病句 [海鲜]如何保存海鲜 2008年8月1日的日食江苏能看到吗?我家在江苏淮安(苏北),请问能不能看到哪怕是偏食?如果能看到日食,那么时间是几点? 下列对气候的描述与其对应地区组合正确的是什么(七上特训第三单元自测题12 )A,冬季漫长寒冷,生长大量耐寒树——漠河地区寒来暑往,四季分明——新疆、内蒙古地区全年炎热多雨, 湖北省阳新县真的很垃圾吗 2008年8月1日威海能看到日食吗?能看到日食吗?提供个好地方...用什么看? 请问这里是湖北省阳新县哪里?1、这个是个湖吗?2、这个湖离阳新县城距离远吗?开车多长时间?3、从阳新县城到武汉开车的话,会路过这里吗? 2008年8月1日的日食明天早上有有关日食的新闻报道吗?具体什么时间? 具体描述一下世界气候类型分部在那些地方?不要说分布的纬度,要具体的大洲,国家或者半岛什么的. 请问这题中的切线的斜率是怎么求出来的?切线于x,y轴的交点值又是怎么求出来的? 倩碧黄油,水嫩保湿精华霜(倩碧水磁场)哪个好用 1.质量为100克的物体从500米高空自由下落到水中 下落时重力做功的5%转化为水的内能,则能使多少水升温.2.一长方体吕块对地面产生的压强是9.8×10的三次方,如其底面积为100平方厘米,则要是它 在曲线y=x^3上任取一点P,过p的切线与该曲线交于Q,证明曲线在Q处的切线斜率正好是P处切线斜率的4倍. 向农村留守儿童献爱心,爱心祝福语有什么, 初2物理几道题(30分钟内给答案+30分)1.男生发声时声带的的振动的频率比女生______ 因此可以认为男生变声期是______发生了变化.2.小明转动功率放大器调调高音量,观查到音响中纸盆的振动频 求一篇关于留守儿童的英语作文,120词左右. 送给老师的祝福语,文言文50字以上,或诗句必须对仗 根据开普勒行星运动定律,行星以太阳为圆心做 匀速圆周运动.如果行星质量为m,行 星与太阳之间的距离为r,试推导太阳对行星的引 力F与m/r的2次密的正比关系. 矸石电厂采用循环流化床脱硫,脱硫效率在60%-70%之间,发一度电耗煤是多少?请说明计算过程.原煤或标煤 关于六一儿童节的全部知识,来源,诗句,诗歌,祝福语等 电风扇1小时用电多少 就是一般的那种 求棱长为1的正四面体外接球的体积 冰箱冷冻时最低温度是多少 浮顶罐液位最低控制多少我们装置有14个内浮顶罐,从1000到5000不等.是否浮顶罐液位都要保持2m以上.低了会有什么不好的影响?请各位大侠多多指教 蛋白质在附着于内质网上的核糖体中合成后,其运输方向是什么 冰箱冷冻室最低温度是多少 人类历史上气候谈判的详细进程及相应成果?急求!谢谢~~ 分泌蛋白在附着于内质网上的核糖体中合成之后,其运输方向是什么 今年8月1日的日食在加拿大能看到吗?今天暑假我可能要去加拿大 夏令营啊,8月1日我生日啊,不过也在加拿大过额.在那里能看到日食吗? 如何利用压力传感器实现液位控制 谁能给我一份详细的机井抽水试验报告?哪位兄弟帮下忙,要详细点的,好的话追加400分 据说今年有日食,请问今年日食的时间.万分感激! 全球气候谈判是怎么进行的? 倩碧的水磁场好,还是黄油(无油)好啊我22岁,皮肤混合偏油,春天最近过敏了,我用哪个比较适合 傅雷家书1954年10月2日聪,亲爱的孩子.找出两个结构相同的词语!1954年10月2日 聪,亲爱的孩子.收到9月22日晚发的第六信,很高兴.我们并没为你前信感到什么烦恼或是不安.我在第八封信中还对你 联合国框架内的气候谈判共经历了哪三个阶段 生物循环是指物质通过()作用从非生物环境进入(),然后通过()关系进入(),最后又被微生物……填括号、、谢谢啦 我家机井抽不清了吗?新打的机井40米深,下管的时候,为了不吸上层水,上面30米都用塑料包着管,那天下管的时候,下到一半,下不去了 ,后来用一个重物绑上一根绳子墩井管最下面的木板,木板墩 今年8月1日长江中下游地区能看到日食吗?日偏食也行,请说说具体看到日偏食的时间,时间长短我的地理位置是安徽安庆 华人要求ABC就歧视言论道歉国际新闻早报:多名俄罗斯高官因瞒报收国外网友贴图揭秘“土豪”子弟的一天【新加坡:日与夜的魅惑中国人流行取“洋名” 老外却热衷取中港媒:日本领导人不要遮住中日关系最后潘基文发言人:美已保证今后不对联合国美国安局局长:监听报道“完全错误” 世界最大机场将举办国际航展 25家中中国全票当选联合国经社理事会成员 任义乌城区一黄金地块6.1亿成交 业内杭州地铁6号线过钱塘江段开始水上勘探杭州到富阳的514路下月换新车 一人杭州一23岁女子酒后绿化带小解 不慎温州多家典当行看走眼 “金包银”的假俄外长称叙问题国际会议遭破坏 批西方宁夏“10·14”灭门杀人案犯罪嫌疑病房成了临时募捐点 20余万善款驰援浙江180项科技成果下月开槌出售安徽宁国民政局长否认叫停网友募捐 自日媒:解密文件显示日本曾试图阻止中美楚天都市报讯 刷脸支付小宋佳晒帅气美照 穿运动装明星范儿十台股22日开盘涨35.27点第九个中国城市无车日新疆昌吉市倡议:乌鲁木齐市城市快速路19日至10月1建行新疆区分行“丝绸之路文化主题银联上海外滩与巴黎圣奥诺雷签订友好合作协老照片讲述乌鲁木齐百年变迁史市民游园兴致高 乌鲁木齐水磨沟公园增上海家化董事长被不明男子刺伤2025年上海体育产业总规模将超30天高任鸟飞习近平今起访美,骆家辉将率团迎接齐普拉斯宣誓就任希腊总理一月涨两块 宿州“蒜你狠”时代再次来许家印结束欧洲行 恒大旋风席卷欧洲安倍内阁支持率下滑砀山:金秋“梨王”争霸 三斤巨梨夺魁安倍内阁支持率跌破四成 民众对政府强国足黄金一代约战豪门元老队出重拳治扬尘 蚌埠30余个建筑工地被
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘