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

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

DELPHI中DFM文件与文本文件转换 Delphi中用于读写的文件类型 RichEdit的自动格式化-Delphi资料 RichEdit中实现查找功能-Delphi资料 表格上所有元件载入后的事件-Delphi资料 充分利用Windows API扩展Delphi函数 传递焦点的五种方法-Delphi资料 从 实 例 看 Delphi 4 中 的 动 态 得到Memo中当前的行列号-Delphi资料 改变RichEdit的游标位置-Delphi资料 回车代替Tab移动输入焦点-Delphi资料 获取Windows临时路径-Delphi资料 获取当前鼠标位置的类名和句柄-Delphi资料 检测存在打印机-Delphi资料 将BMP文件转换为JPG文件-Delphi资料 类似链接的效果-Delphi资料 利用COM技术实现外壳扩展的属性页-Delphi资料 留意DELPHI的命名规则 判断元件有哪一特定的属性-Delphi资料 全局热键-Delphi资料 让自己的程序防破解-Delphi资料 如何查找一个目录下的某些特定的文件-Delphi资料 如何在全屏幕显示一个AVI文件-Delphi资料 删除文本文件中的多余空格-Delphi资料 实现Hint的分行提示-Delphi资料 实现应用程序的文件拖放功能-Delphi资料 死循环的控制权转让-Delphi资料 添加桌面快捷-Delphi资料 统计中英文字个数-Delphi资料 为 应 用 程 序 添 加 口 令-Delphi资料 应用软件加入全面的功能权限控制-Delphi资料 请问谁那里有页面规范、代码规范、SQL规范?重金求购 欲寻求项目来作(报酬多少无所谓)!!! 请问各位大虾,在DELPHI中EXE文件的调用方法? 菜鸟问题:忘了如何定义几位的变量?谁能告诉我,谢谢! 如果我要在window.showModalDialog 打开的页面中返回一个值,或者在被打开的页面中改变打开打开者中的某属性该怎么做? 关于木马程序的设计! 新手的问题(关于成员函数使用的位置???) 谁知道那里有ado教程 请高手介绍点用perl操纵mysql的经验和方法,不胜感激 about BCB 的数据库开发问题 请大家详细说一下SQL Select数据源的具体使用方法,书上说的太简单了,用SQL Select数据源建立的数据窗口为什么不能进行增加、删除操作,还不让修改,愁啊! 诸位:这个显示隐藏工具栏状态栏的代码有三处错,可我不知为什么???以指出 怎么将ACCESS2000表中的内容导入到SQLSERVER数据库中 我想把LOCAL声明改为.data? 可不行,为什么? .net似乎对组件编程的支持很强?就是说,似乎省区了很多繁琐的细节? 各位有人可以告诉我怎么实现SMTP用户验证吗? 大家有用这个软件吗?有的话请写下你使用的感觉,有什么不足? CoolSoft HTML Optimizer 谁那里有页面开发规范,重金求购 帮助中HTML文件的链接问题!!! asp.net是否可以用任何一种vs.net语言? 请教---------一个函数返回指针值的问题!!!! 如何可以筛选出被修改过的数据记录。。。。。。 如何在广域网上实现SOCKET通讯,与局域网有什么不同? invocation在Java中怎么翻译啊? oracle中增量导数据的问题!! 过多的异常捕捉会影响程序性能吗? 二个form时怎样用request来收取数据? 在sybase里健好的表如何从新修改? 一个小问题,这个变量是什么类型的??? 使用通讯控件的疑惑 怎样实现在文本文件中修改某一行的其中字符串 Nokia MobileSet中如何让手机识别中文? 注册表坏了怎么办? 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令 我的超星不能用了!!! 十万火急:PDF文件修改 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令.. 作为初学者,每天的问题太多了?帮我看一下下面的小问题 我上午53,下午58.该不会下马吧????/我相知道什么时候才能知道是否已经Pass,什么时候下证? 有关DELPHI6中使用SKINENGINE??? C++ Builder中多国语言的问题 在哪下载到Exchange 2000 Server Resource Kit? 快捷方式损坏怎样修复? bluesky069(菜鸟一族)你帮助我把那个PBL放到蛛蛛的信箱好不好呢?让大家都可以下在的! 请问哪里有w32dsm.exe的教程??? 潘译<>印刷错误百出,令人不忍卒读... LISTBOX的问题?请高手帮忙!!高分向送! 帮我想想这个主键该怎么建SQL SERVER7 如何将控件,恢复init()到初始状态 急救:装有SCO UNIX的硬盘克隆后不能启动系统,怎么办? 如何在FTP的目录下再新建目录?我初学网络编程, 自来水为什么在停水后来水时从水龙头拧出来的水是白色的 数学题:a的平方+b的平方+c的平方+2ab+2bc+2ac小生不才,因式分解学的不好.给过程和结果,谢谢!(因式分解) 两相6千瓦的电加热蒸箱要用多粗的线? 请问水箱为2000L容量的太阳能热水器需要多大功率的电加热(冬季或阴天使用)办公楼用的大型太阳能,集热管加独立水箱,2000L的,请问需配置功率多大的电加热,一年大约消耗多少度电?(非电 为什么每次在停水后水管中的残水会在水龙头漏出?我家住一楼补充一点,水龙头是在关闭状态. 为什么a+b+c的平方=a^2+b^2+c^2+2ab+2ac+2bc 看看这个图里面有几个正方形?最好有个公式解释. 已知A=a的平方-2ab+b的平方,B=a的平方+2ab+b的平方.1.求A+B 2.求1/4(B-A) 3.如果2A-3B+C=0,那么C的表达方式是什么? SO2怎样变成SO3,然后再通过催化得取H2SO4? 铁跟硫酸铜反应化学式 H2CO3使石蕊溶液变红的化学方程试是什么? h2so4如何转化为so2 水罐电加热什么方式好 已知a=a的平方-2ab+b的平方,b=a的平方+2ab+b的平方.如果2a-3b+c=0,那么已知a=a的平方-2ab+b的平方,b=a的平方+2ab+b的平方.如果2a-3b+c=0,那么c的表达方法是什么? so2+ h2so4=×为什么so2+ h2so4不能反应,从氧化还原反应的转化规律判断(什么是只靠拢,不相交)? (a+b+c)^2=a^2+b^2+c^2+2ab+2ac+2bc 请问2ab是哪来的啊! Na2CO3,H2CO3同时在紫色石蕊试液中,溶液显什么色知道H2CO3易分解,但总有某一时刻两者并存,那么石蕊显什么色呢(Na2CO3显碱性,H2CO3显酸性) 解释一下下面这个公式的含义(临时用电方面的)Kx 这些都表示啥 铝与硫酸铜反应化学式 26-2/ 相同条件下,相同物质的量浓度的H2CO3,H2SO4,HCl,H2SO3,CH3COOH溶液以及水的导电能力由强到弱的顺序是()?H2SO4>HCl> H2SO3>CH3COOH> H2CO3>H2O这是怎样判断出来的呢?请写出详细过程及思路. 求救,谁能帮忙解释一下下面“自然差”什么意思.如有游客愿意自付费用住一单间,从而产生原来房间安排中的自然差房费怎么办?处理步骤①耐心向领队解释,说明以下情况:自然差单间的出 家里水龙头放1小时有多少水 家里各个水龙头出水量大小不一,新装修的家,龙头也是新的,也是同一个牌子的.求正解,如何解决,不懂装懂的闪开,只能显得唔知. SO2 怎样变成H2SO4 水龙头平均一小时漏多少水? H20 HCL H2S 还原性顺序 关于EXCEL公式,=IF(A6>=1,ROUND(ABS(SUMIF($A$5:$A6,">=1",$G$5:$G6)+$L$5-SUMIF($A$5:$A6,">=1",$H$5:$H6)),2),"")麻烦大家能帮我解释一下这个公式的意思吗,比如:如果满足了,哪一段的条件,那么会如何,如果不满足那 一个损坏的水龙头1小时要滴多少毫升水?一秒中一滴 已知A=a-2ab+b,B=a+2ab+b,如果2A-3B+C=0那么C表达式是什么 从水龙头放出的水 对称吗从水龙头放出的水成一个弧型,这个弧型是一个对称图形吗?对称轴在哪? 在边长为(a+b+c)的正方形中,作图证明a2+b2+c2+2ab+2bc+2ac=(a+b+c)2在边长为(a+b+c)的正方形中,作图证明a²+b²+c²+2ab+2bc+2ac=(a+b+c)² HCl H2SO4 哪个还原性强?为什么?如上.急 看不懂这个式子在说什么, 一个水龙头1小时能放出多少立方水? 已知a=a²-2ab+b² b=a²+2ab+b² 如果2A-3B+C=0那么C的表达式是什么 解释一下下列日食术语,看不懂啊食象 (ΔT=66.2s) 北京时间 高度角 方位角 P V LC 初亏 08:22:09.0 +39.5° 087.2° 289° 12.1 食既 09:37:53.9 +56.0° 097.4° 192° 03.4 食甚 09:38:17.6 +56.0° 097.4° 019° 09.1 生光 09:38: 硫酸铜水溶液的化学式是? HCl的还原性与H2S的还原性谁强 在含硫物质1、S ,2、SO2,3、 H2S,4、 H2SO4中,硫元素的化合价由低到高的顺序是什么? 硫酸铜化学式? 氢化物的还原性比较:CH4 下列硫元素化合价最低 A.S B.SO2 C.H2SO4 D.H2S 锌和硫酸铜溶液反应化学式 停水后自来水水龙头还能放几分钟那压力是哪来的?停水后在一楼自来水水龙头还能放几分钟水 那压力是哪来的? 帮我解释一下下面两个生物体的为什么是错的谢谢了1.所有野生型大肠杆菌都有含四环素抗性基因的质粒和含卡那霉素抗性基因的质粒,但抗性不同的原因是基因进行了选择性表达2.动物激素 已知a+b=2,ab=2,求1/2a^3b+a²b²+1/2ab^3的值. 为什么停水后来的水是脏水每次停水了以后再来的水都是脏的,要放很久!而且是家里的每个水龙头都要放水才可以的!并不是像老人们想的那样,别家把水管里的脏水放了,自己家水管就是干净 小飞家,原来每月用水十吨刚换了节约型水龙头后每月用水九吨,现在每月用水比原来节约了百分之几? 为什么在化学中某酸,比如碳酸、硫酸、磷酸……的化学式前第一个元素都为H本人刚学化学式和化合价,还不太懂,不要从别的地方粘过来的一大堆解释! 浓H2SO4与稀HCL的反应 小雨家原来每月用水约10吨,更换了水龙头,每月用水约9吨,每月用水比原来节约了百分之几? 硫酸 碳酸的化学式为 稀H2SO4,稀HCL,浓HCL有挥发性吗? 稀硫酸加锌粒制氧气的化学式要配平的 氢氯酸,氢硫酸,碳酸,磷酸的化学式分别是什么? 为什么水龙头放出的水是纯白色的?我从水龙头放出水放置一会,就变清了,然后我再搅动,就不再浑浊了,为什么? 锌和稀硫酸反应生成氢气的化学式 已知A=a的平方-2ab+b的平方,B=a的平方+2ab+b的平方 求1/4(B-A) 如果2A-3B+C=0,那么C表达式是什么 家中水龙头放出来的水,刚开始看着是全是纯白色的,就好像里面有什么东西一样,但几秒后又变成水原有的那种无色了,我想问这水是怎么了,还能用吗 南大街小学把老式水龙头改成节水型水龙头后,每个星期的用水量比以前节约了八分之七吨.平均每天节约用水多少吨?若每周节约的水量是现在用水量的二分之一,以前每周用水多少吨?列式计
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn