椭圆形的窗体

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签

PrivateDeclareFunctionCreateEllipticRgnLib"Gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"User32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateSubForm_Load()
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub->