Transparan UserForm Oluşturmak
Transparan UserForm Oluşturmak isimli makro kodu ile, UserForm nesnenizin transparan -şeffaf- olmasını sağlayabilirsiniz.
XD Destek İstePrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&
Public hWnd As Long
Private Sub UserForm_Initialize()
Dim bytOpacity As Byte
bytOpacity = 110 'şeffaflık ayarıyla buradan oynayabilirsiniz
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Me.Caption = "ECYavuz"
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hWnd, 0, bytOpacity, LWA_ALPHA)
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ı
Boş bir UserForm nesnesinin kod kısmına, üstteki kodları eklediğinizde; UserForm şeffaf olarak açılacaktır. 64 bit Ofis Sürümlerinde çalışmayabilir.
#Transparan UserForm Oluşturmak
#transparan
#userform
#oluşturmak
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum
Daha önce yorum yapılmamış!
Bir UserForm üzerinde, sadece sonundaki numarası değişen nesneleriniz varsa, bu nesneleriniz için hızlı bir şekilde silme, gizleme, gösterme gibi işlemler yapmak istiyorsanız, Control kodunu kullanabilirsiniz.
Örneğin: UserForm üzerinde 50 TextBox nesnesi var ve siz tek bir seferde bu TextBox nesnelerini gizlemek istiyorsunuz. Bunun en kısa yöntemi için aşağıdaki kodu kullanabilirsiniz.
Faydalı olması temennisiyle
Örneğin: UserForm üzerinde 50 TextBox nesnesi var ve siz tek bir seferde bu TextBox nesnelerini gizlemek istiyorsunuz. Bunun en kısa yöntemi için aşağıdaki kodu kullanabilirsiniz.
For i = 1 To 50
Controls("TextBox" & i).Visible = False
Next int1
Controls("TextBox" & i).Visible = False
Next int1
Faydalı olması temennisiyle