Anda tidak dapat membayangkan betapa mudahnya masalah ini. Anda dapat membuat Formulir dalam bentuk apa pun, tetapi Anda harus menggunakan dua API CreateEllipticRgn dan SetWindowRgn, misalnya:
PRIvateDeclareFunctionCreateEllipticRgnLib"gdi32"(DenganValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateSubForm_Load()
DimlReturnAsLong
Saya.Tunjukkan
lReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)
Sub Akhir
Gambar hasil eksekusi
Keempat parameter CreateEllipticRgn dijelaskan sebagai berikut:
X1: Posisi sumbu X dari titik pusat elips, tetapi terbatas pada batas nyata Bentuk.
Y1: Posisi sumbu Y dari titik pusat elips, tetapi terbatas pada batas nyata Bentuk.
X2 : Panjang sisi panjang elips
Y2: Panjang sisi pendek elips ->