龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

椭圆形的窗体

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
PrivateDeclareFunctionCreateEllipticRgnLib"Gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
  PrivateDeclareFunctionSetWindowRgnLib"User32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
  
  PrivateSubForm_Load()
  SetWindowRgnhWnd,CreateEllipticRgn(0,0,300,200),True
  EndSub->

精彩图集

赞助商链接