椭圆形窗体的制作
整天对着千篇一律的矩形窗体是不是有些烦呢?下面让我们来改变一下窗体的形状,来用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 |