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

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

MongoDB和Cloudera结盟,欲征服大数据市场 红帽收购Inktank,将统一Gluster与Ceph? 那些巨头公司Logo是这么演变来的…… 以史为镜,剖析PaaS大迷局 “心脏出血”还不够?又曝OAuth和OpenID登录漏洞 走近讲师:搜狐于顺治讲述搜狐PaaS云平台实践之路 AppFlood 2014 Q1报告:亚洲和中东市场成为开发者出海首选 华为联合运营商构建能力开放平台 Facebook产品设计主管:揭秘公司如何招聘优秀设计师 【附信息图】美国因软件缺陷导致的十大事件 二十一世纪Windows简史 为什么用户体验和生态系统决定云公司的成败 三星Tizen,路漫漫其修远兮 用户体验是新优势,互联网会受到何种影响? 从GitHub看编程语言流行度 陈沙克:Openstack Horizon Icehouse Blueprint简介 叶琪:Hadoop不是万能的 要明确场景扬长避短 云网融合驱动数据中心技术聚变 给想持续编码CEO的4个建议 盘点开发者最喜爱的十大开源Xcode插件 Cloudera CTO:取代MapReduce 未来会加大Spark等框架投入 中航信资深分析师李洋:自主搭建云平台 助力民航业低成本迎接大数据挑战 安全狗创始人陈奋:借助Hadoop与Spark,欲打造服务器上的360 业界良心:Square开源Viewfinder,25万行代码全公布! 比尔·盖茨:核心业务Bing虽不赚钱,却不能拆分 不可错过,参加第六届中国云计算大会的十大理由 章津楠:未来三年,OpenStack将成为企业去V首选 EMC收购闪存初创公司DSSD,走出联合储存战略第一步 创业失败的七个原因及解决之道 集结号:最受开发者欢迎的跨平台游戏引擎 Cocos2d-x v3.0正式版本发布!优化C++、Lua、JavaScript接口 招聘的故事 用了就不放?,内存怪现象请教高手? 急。各位有没有NT高手呀!怎么配置NT下的IIS呀? 高分求救!!急!!关于无法找到动态连接库的问题。 xpmenu控件的使用! 招聘的故事 请问谁有《Visual C++ MFC 编程实例》这本书的配套源代码?(在线等) 如果我数据库里有一篇文章 怎么格式化她????? isapi中用ado访问数据库只能读不能写,何故?相同的代码在exe中可以 在对话框中建立一个socket连接,如何在释放对话框之后保存这个连接以备以后使用? 关于屏保程序的讨论 安装程序的BDE问题? 我创建了一个POPUP风格的窗口,如何去除背景? 和 Oracle 的连接问题(odac ) 帮忙看一下有什么问题!! 高分求救!!急!!关于无法找到动态连接库的问题。 指纹算法 Java Developer Interbase如何自动保存更新 请教数据库连接池的使用.... 不要以为你不骂人你的素质就比那些骂街的高了,如果你卖国那么你的素质比那些骂街的更低,因为你基本不具备一个人的素质了 哪位有有关Vtune的相关资料呀,提供链接也行,最好是指南一类的,3X。 编程几年了,没有希望,想改行,你们呢? 有谁做过“文物馆的文物或藏品综合管理系统”如能提供资料或动者!本人感谢! 入门时奇怪问题? 如何把*.IMG文件转换为JPG文件? 其实你不懂我的心 那里可以买到microchip的mcp2150 ,(要现货),比较紧急,请帮忙 关于对2进制文件的操作 将去做SAP ABAP4平台编程,用过的请进。up有分。 C的图形问题? 为什么我点进去看不到内容? 如何考中程 数据窗口控件为dw_6,其间的对象为D_PUR,我想使其中的图片框的VISIBLE属性变为FALSE总是有错误,请教:)在线等待 kylix2在RedHat7.2下的安装问题? 能告诉我吗????各位哥哥指点一二 数据库置疑问题,并不难?请进 关于串口通讯(向手机发送AT命令集) 高手请看:表格的终极问题 如何得到treeview中选中项的标签或内容? 在哪能下载到FOXPRO2。0(FOR DOS) 请教高手!我没多少分了,50分给你! 怎么办? 谁救救我啊,怎么办? 对已生成的窗体缩小和移位后,恢复原始状态遇到的问题 字段中如何存入一个回车和换行符? 一个MYSQL的问题? PFC编程的那几个PBL库 我这里怎么会没有 请教高手 求最佳算法,谢谢,考试题目,请各位大俠务必帮忙,跪谢! 神阿,救救我吧! 求教高手!关于installshield的问题!我就50分了,全给你! 梯形上底是7.5米,下底是10.5米,高为5.4米,和8米的梯形面积是多少? 在V升Al2(SO4)3溶液中加入过量的氨水,过滤得沉淀,然后在高温下灼烧沉淀,最后得到白色固体mg则原溶液中的SO42-的物质量的浓度为答案对了,为什么最后得到固体为Al2O3? 集合A={x|x=a+根号2b,a属于集合z,b属于集合z}判断下列元素x=0,根号2减1分之1,根号3减根号2分之1与集合A之间的关系 一个梯形的上底是2/7米,下底是4/7米,高是5/8米,求这个梯形的面积. 在VmL Al2(SO4)3溶液中加入过量的氨水,过滤得白色沉淀;然后在高温下灼烧沉淀,在VmL Al2(SO4)3溶液中加入 请用英语叙述人们对于爱情和婚姻在过去和现在不同的态度这是原题:Explain different attitudes towards love and marriage between people in the past and now.请用英语表达,要求不能用百度在线翻译直译.在120字 所有的烃烷都是同系物吗?那所有的饱和烷烃都是同系物吗? 直角三角形斜边怎么算 高二《生物》第二册课本中黄色豌豆的颜色是子叶的颜色还是种皮的颜色 环已烷是烷烃吗?烷和烷烃有区别吗? ATP是生命的能量储存物质 为什么不对 恋爱和婚姻有什么区别我很想知道大家对这两个概念的理解和观点这样可以更好的帮助许多对这些问题比较懵懂的朋友们去处理这方面 集合A={(x,y)|y=kx},B={(x,y)|y=根号x-1},要使A交集B=空集,求K的范围 物质可以转换成能量,能量可以转换成物质吗,那样不就可以做能量储存了吗? 我和我的女朋友分手了,我想写一句话.最好能让读者哭的一句话..最好怎么写? 集合A={(X,Y)|y=Kx},B={(x,y)|y=根号x-1},要使A交B=空集,则K的取植范围.教教我好吗?谢谢你们了..我不知道集合A怎么算..是不是把集合B里的根号先算出来啊?..我会给予你更高的报酬.. 走复兴路圆中国梦征文600字 求读者 一句话一个国外人说的,具体是 人不要总想尴尬的事,因为没人会帮你记的求 到底是怎么说的 人不要总想尴尬的事,因为没人会帮你记的就是这句话,我想要 这句话更详细的怎么说的 所谓的“显性基因,隐性基因”是如何定义的?如何定义的呢?开始科学家什么都不知道哪些是显性和隐性啊.这个概念是怎么定义的呢?bdhutufujian92:你讲的这点我当然知道。你没答到根本。我是 若集合A={x|y=根号(x+1)} 集合B ={x|y=x},则A与B的交集是什么 走复兴路圆中国梦征文500字 “威尼斯使人着迷” 换一种说法如题 一小时内 快啊、、那请问 威尼斯的夜晚很宁静 也是换一种说法 集合M={(x,y) 1-y/x+1=3},N{(x,y) y=kx+3},M与N的交集是空集 求K 植物细胞中储存能量的主要物质是什么? 正立方体的烷烃,立方烷,的具体性质 18.细胞分裂过程中,细胞内染色体(a)、染色单体(b)和核DNA(c)的数量关系8:0:8,假设该生物体细胞中含有8条染色体.那么该图可表示细胞处于( )A.有丝分裂中期B.有丝分裂后期C.减数 为什么人类要砍伐树木最好相关的问题也回答, “威尼斯使人着迷”(改为感叹句) “果实显露出来”(扩句) 函数y=根号下(2+x)*(3-x)的定义域为集合A,集合B={x|kx^2+4x+k+3>0} 且B不属于空集,当B真包含于A时求实数k的取值范围思路清晰 1 酰胺类除草剂都有哪些 立方烷和晶体烷为什么不是烷烃类物质 下面错误的是?为什么?A.细胞膜的某些蛋白质与细胞信息传递、免疫等相关 B.外分泌液中某些蛋白质可参与非特异性免疫 C.高尔基体形成的分泌小泡中的某些蛋白质是运载体 D.人体血浆中的抗 水稻除草剂分哪几类?分别有哪些? 修改病句:这里的景色对游客着迷. 高中生物好的来看看这题是不是有问题?第一问我觉得常染色体隐性遗传和伴X染色体隐形遗传都可以啊? 除草剂有哪些种类啊啊?谁知道菜地里用什么好啊? 修改病句:一直到现在,鲁迅还经常成为文人们话题,在句没添加 这个生物题是否错误一个色盲女子与一个正常男子结婚生下一个染色体为xxy的色觉正常的儿子 .则此染色体畸变发生在什么之中?我想因为只有一个Y所以不可能是精子 但是是卵子的话就不会 zwjlz.大家帮忙猜下这几个字母的意思我看到朋友更新的说说是这几个字母,以前她有话不愿说也写字母,这次我猜不到了 为什么立方烷分子式为C8H8 与立方烷具有相同最简式 的相对分子质量是立方烷的一半的有机物是什么 豌豆种子的黄色对绿色为显性,圆粒对皱粒为显性,两对相对性状的遗传遵循基因的自由组合定律.纯合的黄色圆粒和绿色皱粒豌豆杂交,取F1的花粉按下图所示的程序进行实验.正确的分析是A. 硫在氧气中燃烧为什么在燃烧匙里放细纱 根号下2K的取值范围 根号下K分之2的取值范围 根号下1-2K的取值范围 豌豆种子的黄色(Y)对绿色(y)为显性,圆粒(R)对皱粒(r)为显性,这两对基因是自由组合的.甲豌豆(YyRr)与乙豌豆杂交,其后代四种表现性黄圆:黄皱:绿圆:绿皱的比例是3:3:1:1.则乙 硫燃烧的现象是什么? 2k-3/根号【k*k+1】小于2.k取值范围. 的基因组成是 如果用F1中的一株黄色园粒豌豆与绿色皱粒豌豆杂交,得到的F2的性状类型有 种.数量比为 这里是接着第三问的?麻烦你你了 新课程下如何做好初、高中英语教学衔接 AL2(SO4)3溶液和过量稀氨水反应的化学方程式 豌豆杂交实验黄色必然是显性基因吗? 高中英语新课标一共有多少本 芦苇苗?芦苇苗?芦苇苗?芦苇苗?芦苇苗?芦苇苗?哪里出售耐寒耐旱芦苇苗,绿化用芦苇苗? 豌豆未成熟豆荚绿色对黄色是显性性状...豌豆未成熟豆荚绿色对黄色是显性性状,将一颗杂合体绿色豆荚品种的豌豆花人工授以黄色品种豌豆的花粉,则这颗豌豆的未成熟豆荚的颜色会是:A全 在新课程改革中如何提高课堂教学效果 《走复兴路圆中国梦》初中生读本的征文600字,写的好的给800财富! 求 各种经典文章 青春 励志 最好是描写高中生活类似于你凭什么上北大一类的.《读者》上的经典文章也可越多越好 可以直接打题目,内容我可以自己找最佳回答给提供经典文章最多的人哦. 一个梯形上底3/10米,下底2/5米,高5/7米,它的面积是多少? 原始生命起源于什么?详细的问题说明,有助于回答者给出准确的答案 除草剂的类型有哪些
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘