开发学院软件开发VB VisualBasic可以产生四角形以外其他形状的Form 阅读

VisualBasic可以产生四角形以外其他形状的Form

 2006-02-27 21:10:09 来源:WEB开发网   
核心提示:这个问题,您一定无法想像有多容易,VisualBasic可以产生四角形以外其他形状的Form,您可以产生任何形状的Form,但必须借助CreateEllipticRgn及SetWindowRgn二个API,例如:PRivateDeclareFunctionCreateEllipticRgnLib"gdi32&
这个问题,您一定无法想像有多容易,您可以产生任何形状的Form,但必须借助CreateEllipticRgn及SetWindowRgn二个API,例如:

PRivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateSubForm_Load()
DimlReturnAsLong
Me.Show
lReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)
EndSub

执行结果图片

CreateEllipticRgn之四个参数说明如下:
X1:椭圆中心点之X轴位置,但以Form的实№边界为限。
Y1:椭圆中心点之Y轴位置,但以Form的实№边界为限。
X2:椭圆长边的长度
Y2:椭圆短边的长度的->

Tags:VisualBasic 可以 产生

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接