制造出透明的窗体(Form)

2016-02-19 18:27 8 1 收藏

今天图老师小编给大家精心推荐个制造出透明的窗体(Form)教程,一起来看看过程究竟如何进行吧!喜欢还请点个赞哦~

【 tulaoshi.com - 编程语言 】

注释:form上有Command1,command2两个Button并事先设定form之BorderStyle=0
  
  OptionExplicit
  PrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong)AsLong
  PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
  ConstGWL_EXSTYLE=(-20)
  ConstWS_EX_TRANSPARENT=&H20&
  PrivatePreValueAsLong
  
  PrivateSubCommand2_Click()注释:还原变成不透明
  CallSetWindowLong(Me.hwnd,GWL_EXSTYLE,PreValue)
  Me.Hide
  Me.Show
  EndSub
  
  PrivateSubForm_Load()
  DimiAsLong
  
  i=GetWindowLong(Me.hwnd,GWL_EXSTYLE)
  注释:变成透明的Form
  PreValue=SetWindowLong(Me.hwnd,GWL_EXSTYLE,iOrWS_EX_TRANSPARENT)
  Me.Show
  DoEvents
  Command1.Refresh注释:令Command1可见
  Command2.Refresh注释:令Command2可见
  EndSub->

来源:http://www.tulaoshi.com/n/20160219/1617730.html

延伸阅读
一、背景 FlashGet的透明效果大家羡慕吧。传统的Windows应用程序想实现半透明效果,一般来说需要处理自己的窗口的WM_Paint消息窗口,很麻烦.现在好了,SetLayeredWindowAttributes是windows的新api,win2000以上才支持,它能使使窗体拥有透明效果.我在Google搜了下,介绍SetLayeredWindowAttributes的文章大多是delphi的和vb的。好不容易找...
这是一个很奇特的功能,首先要让Form变透明,接着,放一张背景透明的.gif图进来,如此,这变成一个透明的form,上面有许多Button,且图不会是一个方形,而会让图的背景透通。但有一点要注意,这种透明的Form不可以移动,否则一移就会发现它似乎不是透明的,这个很不好解释,建议您一开始设定Form的BorderStyle=2大小可变可移动,而去移动与更动...
使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口, 当它极大时只占屏幕的一小部分,它是如何实现的呢,请看下面的说明: 1)在FORM私有声明部分加上如下一行: procedureMessage :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO; WMGetMinMaxInfo( var 2)在声明部分加上如下几行: procedure TForm1.WMG...
标签: Web开发
代码如下: ?php // signup.php // demonstrates a simple multipage form using xajax // and the xajax.getFormValues() function. // using xajax version 0.1 beta4 // http://xajax.sourceforge.net session_start(); include ("xajax.inc.php"); function processForm($aFormValues) {         if (a...
普通的窗体都是方方的,使用API函数可以做出一些奇怪的形状。比如,窗体是圆角矩形,在中间挖一个椭圆形的洞。 先要理解一个重要的概念:区域。区域是描述设备场景中某一块的GDI对象,每个区域都有一个句柄。一个区域可以是矩形,也可以是复杂的多边形,甚至是几个区域组织在一起。窗体默认的区域就是我们看到的矩形,当然它并非一定要...

经验教程

848

收藏

76
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部