http://pbdc.cafe24.com 박상희님 글 발췌
======================================================================
타원형
======================================================================
Function long CreateEllipticRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"
Long hRgn
hRgn = CreateEllipticRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
======================================================================
Rectangle
======================================================================
Function long CreateRoundRectRgn( long lX1, long lY1, long lX2, long lY2,long lX3, long lY3 ) Library "gdi32.dll"
Long hRgn
hRgn = CreateRoundRectRgn( 0, 0, This.Width/5, This.Height/4, This.Width/9, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
======================================================================
네모형
======================================================================
Function long CreateRectRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"
Long hRgn
hRgn = CreateRectRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
======================================================================
타원형
======================================================================
Function long CreateEllipticRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"
Long hRgn
hRgn = CreateEllipticRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
======================================================================
Rectangle
======================================================================
Function long CreateRoundRectRgn( long lX1, long lY1, long lX2, long lY2,long lX3, long lY3 ) Library "gdi32.dll"
Long hRgn
hRgn = CreateRoundRectRgn( 0, 0, This.Width/5, This.Height/4, This.Width/9, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
======================================================================
네모형
======================================================================
Function long CreateRectRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"
Long hRgn
hRgn = CreateRectRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )