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

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

Oculus移动SDK发布!John Carmack操刀、集成Unity 4.5 11月15日深圳见!深圳微信开发者大会公布全部议程 参与2014中国大数据行业大调查 BDTC门票等你拿 HTML5规范尘埃落定,5个开发工具推荐 盘点最受开发者喜爱的Android 5.0 Lollipop API IoE Day侧记:想开发智能硬件?先要弄明白这几个问题 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(二) 微软承诺所有Lumia WP8设备将升级至Win10,用户会买账吗? 周末,深圳微信开发者大会等您来!(参会必读+名单) 营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值CTO评选秀】当当网CTO熊长青:结合行业及技术发展,规划技术方向 社交颠覆传统,环信技术交流沙龙纪实(组图) 揭秘经典案例炼成之道 微信开发者大会精华回顾 从一家电子商务网站学到的经验教训 【最具价值CTO评选秀】极路由CTO康晓宁:极客转型CTO的感悟 盘点这些年来的“微信万能论” 《近匠》亲加通讯云:IM即时通讯API的极致服务者 TCL杯HTML5智能电视开发大赛完美落幕,8项获奖应用大揭晓! Xcode 6.2 Beta发布,支持WatchKit的iOS 8.2 SDK来了! 【最具价值CTO评选秀】携程高级技术副总裁叶亚明:从呼叫中心到移动互联网的演进 为什么靠谱的公司都应该参加CTO评选? 【深度剖析】微软开源.NET:战略重心已从PC转移到云端 专访POWER 8编程挑战赛选手黄文超:非科生的编程算法之路 BDTC 2014干货精彩不断,四大全天技术论坛议题全面曝光 全功能API!开源2D游戏引擎Firmament 微信公众平台新增“微信连Wi-Fi”功能,打通线上线下闭环 马化腾:微信在一线城市活跃 QQ增长从城市到农村 承包MIPS开发!Imagination发布双Codescape MIPS SDK 不任性了!Google Play宣布开通国内开发者通道 脑洞大开!用Swift写个Material Design组件库 初学者请教使用XML序列化定制SOAP消息的原理. 系统ODBC驱动坏了,请问如何重新安装???(window2000) asp连接sql数据库的菜鸟级问题 help me!局网win98不能看win2k 大家好,第一次到这里来,问几个初级的问题.(得到解答后马上给分!) 一个三层数据提交的问题 win2000系统ODBC驱动坏了,请问如何重新安装??? (上海)聘C++程序员 win2000系统ODBC驱动坏了,请问如何重新安装??? 两个小问题,1,点击一个按钮后打开光盘里的内容,就象双击光盘的图标打开一样。2,如何用默认浏览器打开一个网站? Server.CreateObject 访问错误 请问这是怎么回事啊?应该怎么解决呀? 如何将mysql数据库转换到sql server 2000中。 初学者请教使用XML序列化定制SOAP消息的原理. 系统ODBC驱动坏了,请问如何重新安装???(win2000) 帮忙看看这个问题 请问如何在delphi中对字符串进行操作 help me!局网win98不能看win2k 大家好,第一次到这里来,问几个初级的问题.(得到解答后马上给分!) 关于raize 3.0的问题 怎样高效率的拼接一个大字符串? 十万火急!高分求解! 知道网页的绝对地址,怎么刷新? 简单问题,在字符映射表中得到的unicode,如何插放当前输入框 有关RH8.0的GRUB引导问题-=-解决问题后给分 有兴趣的请来看看 谁有用ASP开发的信息管理的技术方案文档 高分求:禁止在局域网中玩QQ的方法!!(最好是用工具软件和系统策略等等。) 求助,对线程压力的测试 紧急求救!! 关于在application中(不是applet)用MediaTracker读图片的问题,高分酬谢。 又是邮件问题(100分急等) 关于jCreator编写J2EE程序方面的问题 帮忙,急!!!!!!!!!在线等!!! 请各位给我介绍几款 生产 行业使用的进销存软件 tomcat 小问题 河北的老兄们:用16898870如何查高程(水平)分?准考证号不够15位啊? 简单问题,在字符映射表中得到的unicode,如何插放当前输入框 我想找ASP程序员的工作但不清楚要有什么样的作品.急啊 Oracle8.17为什么在我的server2000里不能安装?是不是和我的硬件配置有关系?在线等待。。。 谁有能够在bcb5和6中能够运行的能够实现象Listbox中Checkbox效果的Treeview控件? 基础C语言题..详解100分 高手请进,xsl的发布问题 请问win2000的系统日志放在什么地方?文件名叫什么? 何人用过 IDragSourceHelper 一个关于InstallShield6.3的特难的问题 lotus Notes 数据库问题! 怎样设计纵向的库?难难!!!求求!! 关于代理的疑难问题? 一个简单的问题 请问各位,如何屏蔽掉地址栏里的地址,或者只留一个主页地址!把其他页面的地址屏蔽掉!!!! Oracle如何查询小写表名的数据表,解决了100分! 浙江嘉善消防为开学铺好平安大道田园公租房交付 杭州首推253套环卫杭州一男子付完190万首付后发现房子两车相撞四人被困 浙江海盐消防破拆救浙江侦破首例网络删帖敲诈勒索案 网民浙江百强企业公布 物产集团六连冠娃哈南湖乡镇消防“早课”敲响200余位企新兴市场货币大贬值 浙江出口企业度时沾满油污的机床“火烧连营” 海盐消防嘉兴南湖近千“消防童子军”零距离感受消防接市民微博举报 一超市因安全处口杭州一小区50部电梯配重块遭窃 电梯保险企业推中秋赏月险 看不到月亮最高杭州13岁孪生兄弟失踪7天 400多麦家谍战小说《暗算》“远嫁”西班牙绍兴市区曝“毒气”弥漫 环保局仍难寻杭州肯德基宅急送被指霸王条规 退款需浙江结束近60年来最严重的高温热浪天杭州萧山一银行门口发生持刀抢劫 被抢浙江暑期接补课举报1600余起 地方浙民办学校不满招生权被限 省教育厅称安徽蚌埠举办“消防宣传周” 迎“11北京群星表演艺术学校建校二十周年庆典外媒关注习马会:巩固政治互信 握手释观音山下,猫客自来——记厦门卡乐猫微小萝卜机器人助阵腾讯众创空间(北京)H9硬派越野首位美女车主,亲自说H9一年级大学季程星源资料介绍 网瘾少年12万可买的这款日系小家轿:本田思域孟加拉国成千上万印度教教徒燃灯祈祷 探险家发现有600万年历史洞穴 命名这四款国产车在国外竟倍受热捧,莫非因到底什么叫车感?怎么培养车感?王伟忠:内地综艺节目开始有自信了南京高校吹响“创新创业”集结号记者随感 习马会,我在现场,见证历史这车只卖5万元 让你拥有摩托车操控轿OK保险网11月周报:保险业前三季形券商三涨停缘于IPO重启 利好提前释刚提的2015款舒适型宝来,轻松跑到粮价下跌蝴蝶效应:中国粮食安全问题全霍华德马克斯谈投资:掌握了这15条投
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘