椭圆形窗体的制作
整天对着千篇一律的矩形窗体是不是有些烦呢?下面让我们来改变一下窗体的形状,来用vb做一个椭圆形的窗体(这里只介绍椭圆形窗体的制作方法,至于是否有其他功能,就要靠读者自己完成了)。
其实是很简单的,只需要用两个winapi函数--setwindowrgn 与 createellipticrgn。新建一个模块,用apiviewer加入这两个函数
下面简单讲解一下参数的意义:setwindowrgn
--hwnd,句柄,不用说了。
--hrgn,是表征形状的,就是在这里把椭圆形加载进去。
--bredraw,布尔型,在这里没什么用。
Createellipticrgn
--x1,y1是正好能包围椭圆的矩形的左上角顶点坐标;
--x2,y2是其右下角顶点坐标;
好了下面开始用这两个函数改变窗体形状,在form_load中加入如下语句:
Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(0, 20, 300, 200), True
End Sub
点一下运行看看出现了什么?成功了吧!
其实setwindowrgn这个函数很有用,你可以用他做出许多各式各样的窗体,不只椭圆,好好研究一下吧!
作者会员名:yinfox
本文地址:http://com.8s8s.com/it/it3426.htm