奇形怪状的窗体

2016-02-19 21:07 5 1 收藏

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的奇形怪状的窗体,希望大家看完后能赶快学习起来。

【 tulaoshi.com - 编程语言 】

普通的窗体都是方方的,使用API函数可以做出一些奇怪的形状。比如,窗体是圆角矩形,在中间挖一个椭圆形的洞。
  
  先要理解一个重要的概念:区域。区域是描述设备场景中某一块的GDI对象,每个区域都有一个句柄。一个区域可以是矩形,也可以是复杂的多边形,甚至是几个区域组织在一起。窗体默认的区域就是我们看到的矩形,当然它并非一定要用这个默认的区域
  
  现在开始,首先在窗体上做一个圆角矩形区域,这是窗体的大致轮廓。在圆角矩形里再确定一个椭圆形的区域,然后把这两个区域组织成一个区域,并设置窗体的区域为这个组织出来的区域。
  
  CreateRoundRectRgn函数用于创建一个圆角矩形区域;CreateEllipticRgn用于创建一个椭圆区域;CombineRgn函数用于将两个区域组合为一个新区域;SetWindowRgn函数允许您改变窗口的区域。使用其他的函数还可以做出其他更奇怪的窗体。
  
  源代码如下:
  
  OptionExplicit
  
  'API函数声明
  
  PrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
  PrivateDeclareFunctionCreateRoundRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong,ByValX3AsLong,ByValY3AsLong)AsLong
  PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
  PrivateDeclareFunctionCombineRgnLib"gdi32"(ByValhDestRgnAsLong,ByValhSrcRgn1AsLong,ByValhSrcRgn2AsLong,ByValnCombineModeAsLong)AsLong
  PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
  PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong
  
  '常数声明
  
  PrivateConstRGN_DIFF=4
  '目标区域被设置为两个区域不相交的部分
  
  '模块级变量声明
  
  PrivateOutRgnAsLong
  '外边的圆角矩形区域
  PrivateInRgnAsLong
  '里边的椭圆区域
  PrivateMyRgnAsLong
  '圆角区域剪切掉椭圆区域后的区域,也是窗体最终的形状
  
  PrivateSubForm_Click()
  IfOutRgn0AndInRgn0AndMyRgn0ThenExitSub
  DimwAsLong,hAsLong
  w=ScaleX(Form1.Width,vbTwips,vbPixels)
  h=ScaleY(Form1.Height,vbTwips,vbPixels)
  MyRgn=CreateRectRgn(0,0,0,0)
  OutRgn=CreateRoundRectRgn(30,30,w-30,h-30,100,100)
  InRgn=CreateEllipticRgn(100,100,w-100,h-100)
  CallCombineRgn(MyRgn,OutRgn,InRgn,RGN_DIFF)
  CallSetWindowRgn(Form1.hWnd,MyRgn,True)
  Form1.BackColor=QBColor(4)
  EndSub
  
  PrivateSubForm_DblClick()
  UnloadForm1
  EndSub
  
  PrivateSubForm_Load()
  OutRgn=0
  InRgn=0
  MyRgn=0
  Form1.Width=7800
  Form1.Height=6000
  EndSub
  
  PrivateSubForm_Unload(CancelAsInteger)
  IfMyRgn0ThenDeleteObjectMyRgn
  IfOutRgn0ThenDeleteObjectOutRgn
  IfInRgn0ThenDeleteObjectInRgn
  EndSub
  
  这个程序运行后,在窗体上单击,窗体就会变形,双击窗体程序结束。要注意的是,在卸载窗体时,用DeleteObject函数删除已定义的区域。->

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

延伸阅读
在主窗体的Form_load()中的最前面加入下列代码: DimX0Aslong DimY0AsLong '让窗体居中 X0=Screen.Width Y0=Screen.Height X0=(X0-Me.Width)/2 Y0=(Y0-Me.Height)/2 Me.MoveX0,Y0->
卧室风水 卧室奇形怪状家人身体受损 家庭住房是一个温馨的港湾,疲惫的人们栖息的摇篮。但是,家居风水是有讲究的,如果家里风水不好,很容易印象到家人的健康以及事业的。今天我们就来谈谈卧室风水禁忌,在卧室风水中有哪些会影响到家人健康吧。 影响健康的九种卧室风水 卧室是休眠的地方,卧室的风水如果不...
用的是100克A4纸(红色二极管只是用来对比纸大小的) 折 切 展开 轻轻折一下对角,得到中点就可以 一个角折到中点 内个边折到与对角线对齐 同样再折一次 最后沿着对角线 翻折过去 用一支笔顺着 弯出弧度 用少量的胶水把两角粘在一起 完成
我们在开发软件过程中,为提高软件的商品化程度,感觉到界面的美观程度是一个软件能否获得成功的一个重要因素,我们仔细研究了一些成功的商品化软件,从这些软件上可以看到,程序窗口背景能显示出非常美丽的、富有立体感的花纹。而采用VisualBasic3.0或4.0进行窗体设计,若只按照系统提供的功能,只能从有限的几种颜色中选择一种颜色或采用程序绘...
透明窗体的又一实现 作者:段会锋 下载源代码 前面拜读过本站无数高手的许多好文章,受益非浅,首先向各位大侠致敬!今天编程偶有小得,不敢独享,特拿出来与各位共享,希望对某些朋友有些许帮助。 透明窗体的问题相信大家已经很熟悉了,前面的几期在线杂志也有几篇详...

经验教程

797

收藏

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