이 문제를 해결하는 것이 얼마나 쉬운지는 상상할 수 없습니다. 어떤 모양의 양식이라도 만들 수 있지만 예를 들어 CreateEllipticRgn 및 SetWindowRgn 두 API를 사용해야 합니다.
PRivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
DimlReturnAsLong
미쇼
lReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)
EndSub
실행 결과 사진
CreateEllipticRgn의 네 가지 매개변수는 다음과 같이 설명됩니다.
X1: 타원 중심점의 X축 위치이지만 양식의 실제 경계로 제한됩니다.
Y1: 타원 중심점의 Y축 위치이지만 양식의 실제 경계로 제한됩니다.
X2: 타원의 긴 변의 길이
Y2: 타원의 짧은 변의 길이 ->