椭圆形的窗体
PrivateDeclareFunctionCreateEllipticRgnLib"Gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"User32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub->
PrivateDeclareFunctionSetWindowRgnLib"User32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub->
- 上一篇:去掉窗体的关闭按钮
- 下一篇:透明的窗体(From)上显示背景透通图
精彩图集
精彩文章