创建不规则窗口
今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐创建不规则窗口,希望大家看完后也有个好心情,快快行动吧!
PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
Show'Theform!
SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
EndSub
上述代码可以创建一个椭圆形状的窗口。怎么样?->