windows api在vb中的妙用

　　windows api作为一套功能强大的应用程序接口，使vb可以实现对windows底层的控制，完成vb不具有的功能。下面介绍几种使用api函数的方法。

　　一、制作特殊窗口

　　1.各种形状的窗口(仅给出了函数名，具体定义可以查阅api viewer)

　　1)createellipticrgn 建立一个椭圆形的区域；

　　2)createroundrectrgn 建立一个圆角矩形的区域；

　　3)createpolygonrgn 建立一个多边形区域；

　　4)createpolypolygonrgn建立多个可重叠的多边形区域；

　　5)createrectrgn 建立一个矩形区域；

　　6)combinerg连接两个区域，通过代入不同的参数可以实现多种合并方式；

　　7)setwindowrgn 设定窗口的范围，使用前边创建的区域；

　　8)framergn 在指定区域画上边框。

　　下边的程序就是建立一个形如“棒槌”的窗口：

private sub form1_load()
　dim p, q as long
　p = createellipticrgn(0, 0, 200, 200)
　′通过制定左上角和右下角的坐标建立一个圆
　q = createroundrectrgn(40, 120, 160, 400, 20, 20)
　′通过制定左上角和右下角的坐标以及圆角的宽度建立一个圆角矩形
　combinergn p, q, p, rgn_or ′联合两个区域,使用或(就是取并集)运算
　setwindowrgn hwnd, p, true ′设置窗口区域
　me.refresh ′刷新窗口
end sub

　　2.浮动窗口

　　delphi中实现浮动窗口非常容易，只要在属性栏中设置就可以。用vb实现就只有借助于api函数:
setwindowpos hwnd,hwnd_topmost,0,0,0,0,swp_nomove＋swp_nosize＋swp_showwindow就可以了。其中hwnd是窗口的句柄，hwnd_topmost指定了窗口的位置—总是在最上边。如果你要取消这个属性，只要把topmost改成notopmost就可以了。后面4个参数指定了窗口的位置和大小，和vb提供的move方法一样。不过最后一个参数如果指定了swp_nomove(不改变位置)和 swp_nosize(不改变大小)，那么这四个参数就会被忽略。

　　3.透明窗口

　　去年的《电脑报》上提供了一个制作透明窗口的办法，这里再介绍另一种方法：

private sub form1_load()
　dim p as long
　p = getwindowlong(hwnd,gwlexstyle) ′取得当前窗口属性
　setwindowlong hwnd, gwl_exstyle,p ＋ ws_ex_transparent
　′加上一个透明属性
　me.refresh
end sub

　　getwindowlong 和 setwindowlong 配合使用还可以更改窗口的不少属性，有兴趣的读者不妨一试。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

windows api在vb中的妙用

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

windows api在vb中的妙用

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范