在VFP中制做异型窗口

来源：作者：出处：综艺读书 2006-10-11

关键词：设计 vc vb os

周鸣扬

　　制做异型窗口听起来好象只是在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

　　4.运行该表单,结果如图1所示。

　　图1

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

　　通过本文所介绍的程序，以前看起来很困难的事情转眼间就做到了。试试看吧，你能够做出更加丰富多彩的异型窗口!

进入讨论组讨论。

【收藏此文】【大中小】【打印】【关闭】

较早的文章：怎样在Visual FoxPro 中增加与去除网络联接

较新的文章：在VFP中怎样做出象IE4中的那样的浮动按钮

站内各频道最新更新文档

形形色色的台湾特产

怀念“黛玉”妹妹

·如何设置路由器
·照片合成处理软件
·RedHat6.2服务配置之Apache
·提升电脑性能的方法
·电脑无法正常启动的问题
·delphi两种方法使用xml文档
·证券行业交易平台解决方案
·三星人寿保险Sybase案例

·东软商业保险系统解决方案
·CSO向Sun平台应用移植解决..
·东软税务全面整体解决方案
·珠海国地税KILL安全系统案例
·友讯：D-Link助昆明市公安..
·江苏邮政票据打印机系统方案
·浪潮：云南国税备份系统案例
·CSS 标签属性

站内最新制作专题

·ACDSEE专题教程-下载使用
·迅雷专题教程-下载使用
·Windows XP频道
·Windows Vista频道
·Windows 2000频道
·win2003频道
·Freebsd频道
·Oracle频道

·Linux频道
·Windows频道
·邮件服务器专题
·协议大全
·数据恢复指南教程
·FreeBSD使用教程
·Linux数据库宝典
·Linux基础知识

热门关键字导读

Photoshop教程：照片处理照片制作 PS快捷键抠图
计算机故障：XP系统修复
艺术与设计：设计流媒体设计欣赏边框
计算机安全：ARP

站内频道文章精选

新闻资讯	电脑技巧
· 秘密:Vista隐蔽的动态屏保 · 腾讯开发新电子宠物--QQ熊 · 惠普否认2999元PC有价无货	· 驱逐Win系统“流氓”文件 · WinXP中获取未使用的IP地址 · 尝试format C:格式化硬盘？
操作系统	常用软件
· 在DOS下恢复回收站中的文件 · 拯救WinXP崩溃的救命稻草 · Linux系统中超级权限的应用	· 搜狗PK谷歌：谁能代言拼... · 昨日重现，一键GHOST轻松.. · 实现Web迅雷在空闲时杀毒
桌面开发	网络编程
· AVIFile函数制做AVI文件 · VC中链接动态链接库的方法 · 熊猫烧香核心源码(Delphi)	· DateDiff函数祥解 · JavaScript去除空格的三种 · js效果图片加载进度实时..
数据库	图像处理
· SQL Server数据库优化方案 · Oracle的初学者入门心得 · JSP连接Mysql数据库	· Photoshop为美女做艺术处理 · 用Freehand创建发光字特效 · 设计自己的个性QQ动态表情

百度推荐，商机无限

搜索您感兴趣的内容