Makrolar ile Eliptik Form Oluşturma
26 Aralık 2020
901
Makrolar ile Eliptik Form Oluşturma isimli kod ile UserForm nesnesinin Elips şeklinde açılmasını sağlayabilirsiniz.
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 SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> UserForm yazısına tıklayın.
- Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodu kullanmak için bir UserForm ve üzerine eklenmiş bir CommandButton nesnesi gerekmektedir. 64 bit sürümlerde API çalışmayabilir.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Yakınlaştır Penceresini Açma | Alt M KA |
| Yapıştır / Alternatif | Shift Insert |
| Ad Kutusunu Seçme | Alt F3 |
| Bitiş Modunu Açma | End |
| Hücreyi Taşıma | Sürükle |