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

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

天云盾:构筑在云端的Web安全防护 解析大数据时代的数据库集群技术 莫里航海图,最早的大数据实践 弥补空缺!HappyFox面向iOS开发者发布开源移动HelpDesk SDK Chitika北美网络流量报告:WP KO黑莓、iOS超Android 《近匠》秦时明月:知名IP光环下的生存之道 微软研究院正式发布编程学习游戏Code Hunt 走近讲师:Memblaze刘爱贵讲述云计算中的闪存应用 【云先锋】ClouDil云方案:PB级大数据解决方案 一周消息树:这是要“发”啊?Google Brain之父正式加盟百度 最受欢迎的游戏引擎集结号:小白篇 多盟总设计师邢开捷:四两设计拨千金 Cocos2d-x游戏《Monster Strike》终结《智龙迷城》霸榜神话 高通物联网技术解决方案:从汽车到智慧城市 Arduino携手Atmel 发布Arduino Zero开发板 以色列玫瑰:细数十位科技创新领域的女性佼佼者 8款最佳的开源在线学习CMS系统 在发布站点前,Web开发者需要关注哪些技术细节? TOCC、中航信、高德、北斗平台重磅专家登场 邀您共享ITS技术盛宴 腾讯大数据之TDW计算引擎解析——Shuffle AMD APU14 BEIJING技术创新大会精彩看点 这是云整合时代开始的节奏吗?Rackspace考虑退出 一周热点:如何使用15美元每月的机器实现百万文档检索 黑客获取数据信息的目的和进攻手段及应对之策 Surface Pro 3遭大曝光:799$起、四色可选、12寸屏幕 当软件遇上设计,浅谈敏捷UX VS.精益UX DIY“物联网”——自己动手处理传感器数据 AMD成首家X86+ARM双架构计算 欲寻新蓝海 锤子手机发布:Smartisan T1与其背后的开发团队 第六届中国云计算大会在北京隆重举行 替代笔记本的Surface Pro 3:800g、9.1mm,极致轻薄 算法与数据结构 寻找关于Dsound,Dplay方成的书籍或方档!! 如何在xsl中使用setTimeout()而得到渐显的效果? 在外面工作,做底层有钱途吗? 关于form的简单问题 搞过用TurboC开发图像,不知道转VC困不困难 有谁知<<终极杀阵>>游戏(Project IGI)第四回合怎玩的? 不知是否荒唐,大虾请 如果大家有问题告诉我(anjie@zj.soim.com) 如果大家有问题告诉我(anjie@zj.soim.com)一起讨论吗 想跟我交朋友anjie@zj.soim.com tc++3.0如何编写读鼠标程序(急) 都进来看看,程序员的下场... 各位高手,小弟问一个傻问题:怎么在播放一个AVI的时候用自定风格的滑块控制? 我上次在CSDN 上看到有人发贴子说自己写操作系统,我现在有个朋友也在写,想和他联系,但是我现在找不到那个贴子了, 有谁记得那个人的名字或贴子的位置请说.谢谢. 求助:打开网上邻居很慢为什么? 问一个蠢问题:控件何时获得焦点 请问一下哪里再收购软件呢? 请问一下在哪里可以找到收购软件的公司呢? 想作一个DOS程序,实现多台电脑间通过网卡传输文件. 辞职信 application.initialize完成了什么 高手来帮忙啊~ 看看java的魅力 如何通过自制程序的编辑框向现有一般应用程序编辑框传送内容? 窗口执行顺序问题,请多帮助,谢谢 如何自动取得server的日期和时间 怎样让文件指针指到文件末尾,必须skipline一行一行跳吗? 我想在菜单前添加图标,使用Bitmap属性但是为何只能载入*.bmp文件而不能使用*.ico文件,我只有*.ico的图标,请问该如何解决。 有新建一个文本文件并给其命名的函数吗,怎么用 我还真不懂呀? 这个COLTYPE是怎么用的呀?你说它怎么得到表中字段的类型呀? 有关存储器(ram,rom)的编址问题。以及32位或更多位芯片的问题。 一些汇编问题。想来问bcb的兄弟{bcb里好象有不少汇编高手} 救命:在安装了sco openserver之后,系统不能启动,先前安装的win98和win2k也不能。 请问如何进行URL译码??? 请问怎样截取一个string中的一段? 请问delphi做的exe最小可以到多少?怎么做? 我想请问一下WINGATE的具体怎样在WIN2000服务器版中进行设置。 ASP的同志们,能不能留一下QQ号码? 请问何处有破解ACCESS2000的程序或源代码呢? 请问要在TEdit.text组件文本串中找出当前光标在第几个字符上怎么办?谢谢! 请问关于dbImage控件的使用方法? 关于HDC及双缓冲的问题? xxxbird(*说你行,你就行,不行也行*),来领“我遇到几个怪问题。。。。。。”中的分 为什么ASP没法向SQL Server中写入数据?代码什么地方错了 大家帮忙找一下,找到我给50分 exe 捆绑机怎么做? 大家谈谈JSP的设计模式怎末了?我有个题目,设计好的大大有奖! 浏览器下的那个进度条是怎么弄出来的? C中的typedef struct和C++中的 struct有何区别? C中的typedef struct和C++中的 struct有 什么区别?谢谢 如图,半圆内的△ABC的面积是80平方厘米,BD长8厘米,求阴影部分的面积. 如图所示,直径为30厘米的半圆旋转了30度,求阴影部分的面积~ 如图1,周长为46CM的长方形,把长截去5CM后的面积,比宽截去5CM的面积多35CM^2,求原长方形面积 半圆o内的三角形ABC的面积是80平方厘米,BD=8厘米.求阴影不分面积. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的周长与面积 一个长方形的周长是55cm,已知长比宽长3.5cm,这个长方形的长和宽各是多少厘米? 如图,半圆内三角形ABC的面积是24平方厘米,高BD是4厘米,求阴影部分面积是多少平方厘米. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的面积和周长. 一张长方形的纸,长12cm,宽5cm,把两张这样的长方形的纸拼在一起,拼成的新长方形的周长是多少? 右图中BC是半圆的直径,图中阴影部分1的面积比2的面积少5.12平方厘米.AC长多少厘米?(BC等于8厘米) 如图所示,直径为30厘米的半圆旋转了30°,求阴影部分的面积 将半径3厘米和2厘米的两个半圆按如图放置.求阴影部分的周长. 下图的比例尺是1:500,在图上量得长是15cm 宽是8cm ,求阴影部分的实际面积是多少? 将半径分别是3厘米和2厘米的两个半圆如图放置,求阴影部分的周长 将半径3厘米和2厘米的两个半圆按如图放置.求阴影部分周长. 下图的比例尺是1:500,在图上的距离长是15cm,宽是8cm,求两个阴影三角形合起来的面积的面积. 右图是由直径分别为2厘米,4厘米,6厘米的3个半圆所组成的图形,求图中阴影部分的周长和面积.图 将半径为五厘米和三厘米的两个半圆如图放置求阴影部分的周长 下图的比例尺是1:500,在图上的长是15厘米,宽是8厘米,求阴影部分的实际面积是多少平方米?4月17号就要大家看见的都来帮帮忙谢谢了! 如图,图中有三个半圆,已知最大的半圆直径是10厘米,那么阴影的周长是多少厘米? 将两个半径分别为6厘米和9厘米的半圆如下图放置,求阴影部分的周长. 小圆直径8厘米,比大圆半径少3/11.小圆的面积是( ),大圆周长是( ). 如图 ,直径为30厘米的半圆旋转了30°,求阴影部分的周长 将半径分别为4厘米和3厘米的两个半圆按如图放置,求阴影部分的周长 大圆的半径是12厘米,小圆的直径是8厘米,大圆周长和小圆周长的最简整数比是多少?面积比又是多少?要有算式 如图 大半圆的半径是3.5厘米,小半圆的直径是5厘米,求阴影部分的周长是多少厘米 半圆直径8厘米,在里面画个最大的圆,剩余的为阴影部分,阴影部分的周长是多少? 大圆的直径是8厘米,小圆的直径是6厘米,大圆和小圆半径的比是( ),周长的比是( ),面积的比是( ) 求图中阴影部分周长.单位:厘米.图中半圆直径18厘米. 求阴影部分周长 小圆的半径是8厘米,大圆的半径是12厘米.小圆和大圆的直径比是(),周长比是(),面积比是(). 将半径分别为4厘米和3厘米的两个半圆如图放置,则阴影部分的周长是多少A.21.98厘米 B.27.98厘米 C.25.98厘米 D.31.98厘米 求具体方法 求阴影部分的周长,明天就要上学啦! 小圆直径8厘米,大圆直径比小圆直径多三倍,小圆周长是大圆周长几分之几?小圆面积是大圆面积几分之几? 将两个半径分别为6厘米和9厘米的半圆如下图放置,求阴影部分的周长.跟下图一样,只不过数是6和9. 六、计算下面左边图形阴影部分的周长和右边图形阴影部分的面积. 小圆直径是4厘米,大圆半径是4厘米,小圆面积是大圆面积的几分之几? 一个半圆的半径上有半圆的直径两个分别12cm和5cm,求阴影部分的周长 求阴影部分的面积和周长 如图,已知小圆的直径等于大圆的半径,求阴影部分面积是大圆面积的几分之几 求下图中阴影部分的周长,单位:(cm) 半径为5cm.还有一个是点O.有点不像 如图,已知圆O1与圆O2相交于A,B两点,圆O2过O1,且AB是圆O2的直径,若圆O1的半径为4,求图中阴影部分的面积 在下图,三角形ABC与三角形ADE都是等腰直角三角形,BC长8厘米,DE长4厘米,阴影部分的http://tg5a39.mail.163.com/js3/main.jsp?sid=qAlTrsGGRaJSzSVkKgGGrgOwtgKKJtvg里面的附件就是图形。要快,越快越好 用户名:ty.p 如图,大圆半径为6,求其阴影部分面积 将半径分别为3cm 和2cm 的两个半圆如下图放置,求阴影部分的周长. 三角形ABC与三角形ADE都是等腰直角三角形,BC长8厘米,DE长4厘米.求阴影部分的面积.请详细说明每一步算下什么. 如图 ,大圆半径为6,求其阴影部分的面积 将半径分别为3cm和2cm的两个半圆如图放置,求阴影部分周长?图不太清晰哈…… 一个长方形长10厘米,宽8厘米,里面有一个为5厘米的半圆,其余部分为阴影部分,求阴影部分面积. 如图,小圆的5分之2是阴影部分,大圆的8分之3是阴影部分,求大圆面积与小圆面积的比. 可半径为4cm和 6cm的两个半圆重叠放置,求阴影部分的周长 ❕ 如图二所示,ABCD是一个长方形,长是8厘米,阴影部分的面积是()平方厘米?圆没画好!求阴影! 如图,大圆半径=小圆直径=8cm,求图中阴影部分的面积. 将半径3CM和4CM的两个圆如图所示放置,阴影部分的周长是图片有错啊!是半径4cm、3cm不是直径! 一个长方形里有一个半圆,长方形的长是8厘米,求阴影部分面积 如图,阴影部分的环宽恰好等于较小圆的半径,阴影部分的面积是较大圆面积的()A.1/4 B.1/3 c3/4图在下面速回答,明天交.今日回答奖励50分! :求出下面图形的周长和面积!上面是个半圆,下面是个长方形,长方形的长是4cm,宽是5cm.:求出下面图形的周长和面积!上面是个半圆,下面是个长方形,长方形的长是4cm,宽是5cm. 下图中等腰三解形的腰长8厘米,求阴影部分的面积 如图直径为30厘米的半圆旋转了30度,求阴影部分的面积与周长 已知长方形的周长是38cm,长比宽多5cm,求长方形的周长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn