在VFP中制做异型窗口

在VFP中制做异型窗口
(作者:周鸣扬 2000年09月04日 11:50)

  制做异型窗口听起来好象只是在VB、VC程序设计中才能够做到的。但是,在VFP中,只要你灵活运用API函数,这并不是一件很难实现的事情。通过本文的介绍,你一定能够发现VFP程序的强项不仅仅是数据处理,在程序界面设计方面也可以和其他的编程语言相媲美。

  一、实现原理

  在VB、VC程序的设计中,如果想要改变窗口的形状,通常会通过对SetWindowRgn的调用来达到目的。SetWindowRgn函数能够将窗口设定成任意形状。该函数的调用格式如下:

  int SetWindowRgn( HWND hWnd, HRGN hRgn, BOOL bRedraw )

  其中各参数的含意为:

  hWnd:欲改变窗口的句柄

  hRgn:窗口的显示区域

  bRedraw:指明窗口在被改变显示区域之后是否需要重绘,通常情况下该值为真。

  通过上面对SetWindowRgn函数的介绍,我们可以看出,在VFP中要想改变窗口的形状,需要知道VFP窗口的句柄。在VFP中要想直接得到有关窗口的情况是很困难的,因此必须利用API例程库。VFP自带的API例程库“Foxtools.fll”提供了对窗口操作的相关函数。本文中能够用到的例程有_WOnTop()和_WhToHwnd()两种,其中_WOnTop()是用来获得顶层窗口的句柄,_WhToHwnd()返回指定窗口的句柄。这两个API例程的调用格式很简单,这里就不再详细介绍了。

  二、实现过程

  有了上面的认识之后,我们便可以试着去设计异型窗口的程序了。设计步骤如下:

  1.新建一表单Mult_shape,按表1设置表单的属性。

                表1

属性名        设置值                备注

AutoCenter    .T.                  自动居中
BackColor    0,0,160                蓝色背景
BorderStyle  No Border              窗口无边框
ControlBox    .F.                  去掉表单的最大化、最小化、恢复按钮
Caption      圆形窗口
FillColor  128,255,0  
ShowWindow  2-as Top-Level Form  将表单作为顶层表单,否则表单不能独立于VFP而存在
TitleBar      0-Off                  取消标题栏

  在表1中,对表单界面所做的设定,目的是为了让表单在运行之后更像一圆形窗口,因此,我们需要去掉标题栏、窗口大小控制按钮等常规窗口上的内容。

  2.在表单上加入一标签控件(Label1)和按钮控件(Command1),分别设定其标题为“VFP圆形窗口示例”和“退出”。

  3.设定表单和控件的事件代码,其中表单的Load事件代码为:

  *注册API函数

  declare integer SetWindowRgn in win32api integer,integer,integer

  declare integer CreateRoundRectRgn in win32api integer,integer,integer,integer,integer,integer

  *注册VFP的API例程库

  SET LIBRARY TO "C:/Program Files/Microsoft Visual Studio/Vfp98/Foxtools.fll"

  *设定表单的大小

  thisform.top=0

  thisform.left=0

  thisform.height=200

  thisform.width=200

  表单的Activate事件代码为:

  thisform.Label1.top=thisform.top+thisform.height/2-thisform.label1.height

  thisform.Label1.left=thisform.left+(thisform.width-thisform.label1.width)/2

  thisform.command1.top=thisform.height-3*thisform.command1.height

  thisform.command1.left=thisform.left+(thisform.width-thisform.command1.width)/2

  *上述代码主要是用来在圆形窗口中准确定位各控件的位置

  topwindow=_WOnTop( )

  *获得顶层窗口

  hwnd=_WhToHwnd(topwindow)

  *获得顶层窗口的句柄

  CRN1=CreateRoundRectRgn(0,0,200,200,200,200)

  *建立一圆形窗口,如果要做其他形状的窗口,只需调用不同的建立区域的函数

  SetWindowRgn(hWnd,CRN1,.T.)

  Command1控件的Click事件代码为:

  thisform.release

  另外,如果你还想设计出其他形状的窗口,只需要将Form1中的Activate事件代码中的CreateRoundRectRgn(0,0,200,200,200,200)做相应的修改。比如你想要建立一苹果形窗口,将该语句改为: CreateRoundRectRgn(0,0,200,200,90,1800)即可。

  通过本文所介绍的程序,以前看起来很困难的事情转眼间就做到了。试试看吧,你能够做出更加丰富多彩的异型窗口!
  • 0
    点赞
  • 2
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
<p style="color:#666666;"> <span style="font-size:14px;">本门课程重实战,将基础知识拆解到项目里,让你项目情境里学知识。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">这样的学习方式能让你保持兴趣、充满动力,时刻知道学的东西能用哪、能怎么用。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">平时不明白的知识点,放项目里去理解就恍然大悟了。</span> </p> <p style="color:#666666;"> <span></span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>一、融汇贯通</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本视频采用了前后端分离的开发模式,前端使用Vue.js+Element UI实现了Web页面的呈现,后端使用Python 的Django框架实现了数据访问的接口,前端通过Axios访问后端接口获得数据。学习完本章节后,真正理解前后端的各自承担的工作。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>二、贴近实战</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本系列课程为练手项目实战:学生管理系统v4.0的开发,项目包含了如下几个内容:项目的总体介绍、基本功能的演示、Vuejs的初始化、Element UI的使用、Django实现针对数据的增删改查的接口、Vuejs实现前端增删改查的调用、实现文件的上传、实现表格的分页、实现导出数据到Excel、实现通过Excel导入数据、实现针对表格的批量化操作等等,所有的功能都通过演示完成、贴近了实战</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>三、课程亮点</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本案例,最大的亮点于前后端做了分离,真正理解前后端的各自承担的工作。前端如何和后端交互</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>适合人群:</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">1、有Python语言基础、web前端基础,想要深入学习Python Web框架的朋友;</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">2、有Django基础,但是想学习企业级项目实战的朋友;</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">3、有MySQL数据库基础的朋友</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="font-size:14px;"><img alt="" src="https://img-bss.csdnimg.cn/202009070752197496.png" /><br /> </span> </p> <p style="color:#666666;"> <span style="font-size:14px;"><br /> </span> </p>
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值