如何在PB下实现圆形的窗口

全文搜索

精华导读

·EasyERP2004 制造行业通用性ERP管理系统
·PB中表的修改对数据窗口和报表的影响的解决办法
·在PB中实现Word内容的替换
·office xp风格菜单基本版
·用PB制作outlook界面源程序(非原来的老外版本)(
·将所见dw内容(包括计算字段)输出到execl中
·ERP在中国应用面临的问题
·PB中使用FORMULA ONE（实例篇
·控制打印机的动态库，兼容win98/98/me/nt2000/xp
·易佳自定义报表系统
·用例驱动的需求过程实践

最新发表

	·循序渐进学习Power Builder 6.0(14-3)
	·循序渐进学习Power Builder 6.0(15-1）
	·循序渐进学习Power Builder 6.0（15-2）
	·循序渐进学习Power Builder 6.0（15-3）
	·循序渐进学习Power Builder 6.0（15-4）
	·循序渐进学习Power Builder 6.0（16-1）
	·循序渐进学习Power Builder 6.0（16-2）
	·循序渐进学习Power Builder 6.0（16-3）
	·循序渐进学习Power Builder 6.0（17-1）
	·循序渐进学习Power Builder 6.0（17-2）
	·循序渐进学习Power Builder 6.0（17-3）
	·循序渐进学习Power Builder 6.0（17-4）
	·循序渐进学习Power Builder 6.0（17-5）
	·循序渐进学习Power Builder 6.0（17-6）
	·用PB编写邮件应用程序（1）
	·用PB编写邮件应用程序（2）
	·用PB编写邮件应用程序（3）
	·用PB编写邮件应用程序（4）
	·Facade模式的定义: 为子系统中的一组接口提供一个一致的界面.

如何在PB下实现圆形的窗口

文章来源：互联网络文章编辑：admin 添加时间：2004-2-4

API调用,最近看了一些API的资料,收益挺大的,小竹....

首先在窗口定义下列局部外部函数（Local External Functions...）

FUNCTION ulong CreateEllipticRgn(ulong X1,ulong Y1,ulong X2,ulong Y2) LIBRARY "gdi32.dll"

FUNCTION ulong SetWindowRgn(ulong hWnd,ulong hRgn,boolean bRedraw) LIBRARY "user32.dll"

在窗口的open事件中加上：

long hrgn

long lres

hrgn=createellipticrgn(20,20,400,400)//其中参数为左上到右下的坐标值，可修改。

lres=setwindowRgn(handle(this),hrgn,true)

//记得在窗口中放置一个按钮关闭窗口

//在窗口处放置一幅图片即可实现圆形的窗口了。

但不知如何实现任意多边形的窗口，哪位大虾可以指点一二？

查阅API函数手册中有如下函数定义，应该是用来定义多边形窗口的，但不知如何使用。

FUNCTION ulong CreateEllipticRgnIndirect(ref Rect lpRect) LIBRARY "gdi32.dll"

[大中小]

【相关文章】

【相关评论】

目前暂时没有相关文章