Eliptik Form Oluşturma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Faydalanılması temennisiyle
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Hazır Kod
VBA:
Private Declare Function CreateEllipticRgn Lib "gdi32" ( _
ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" ( _
ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindowA Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim FormhWnd, EliptikHandle As Long
FormhWnd = FindWindowA(vbNullString, Me.Caption)
EliptikHandle = CreateEllipticRgn( _
0, 70, UserForm1.Width * 1, UserForm1.Height * 1.2)
Call SetWindowRgn(FormhWnd, EliptikHandle, True)
End SubAçıklama
Kodu kullanmak için bir UserForm ve üzerine eklenmiş bir CommandButton nesnesi gerekmektedir. 64 bit sürümlerde API çalışmayabilir.Faydalanılması temennisiyle
