16/09/2021, 22:20
lemoncher2
Merhaba İyi Günler.
Transparan Form konusunda çok araştırma yaptım formda olsun başka forumlarda olsun hep karmaşık bilgilere denk geldim. Transparan Form konusunda basit düzeyde çalışmalarınıza ekleyebileceğiniz bir örnek paylaşmak istedim.
Umarım Faydalı Olur.
Çalışmanıza Eklemek İsterseniz Öncelikle Vermiş Olduğum Örnek İçerisinde Bulunan Module1, Module2, Module3 ve Module4 isimlerine sahip modülleri çalışmanıza ekleyiniz(Kopyalayıp Yapıştırın). Daha sonra, Formunuza .PNG uzantılı bir resim ekleyiniz ve bu resmin;
Fare Tuşuna Basılırken Olayına Aşağıdaki Kodu Ekleyiniz.
Formunuzun ;
Yüklendiğinde Olayına Aşağıdaki Kodu Ekleyiniz.
Açıldığında Olayına Aşağıdaki Kodu Ekleyiniz.
Transparan Form konusunda çok araştırma yaptım formda olsun başka forumlarda olsun hep karmaşık bilgilere denk geldim. Transparan Form konusunda basit düzeyde çalışmalarınıza ekleyebileceğiniz bir örnek paylaşmak istedim.
Umarım Faydalı Olur.
Çalışmanıza Eklemek İsterseniz Öncelikle Vermiş Olduğum Örnek İçerisinde Bulunan Module1, Module2, Module3 ve Module4 isimlerine sahip modülleri çalışmanıza ekleyiniz(Kopyalayıp Yapıştırın). Daha sonra, Formunuza .PNG uzantılı bir resim ekleyiniz ve bu resmin;
Fare Tuşuna Basılırken Olayına Aşağıdaki Kodu Ekleyiniz.
Kod:
FormTasima MeFormunuzun ;
Yüklendiğinde Olayına Aşağıdaki Kodu Ekleyiniz.
Kod:
Call EkranCozunurluguAçıldığında Olayına Aşağıdaki Kodu Ekleyiniz.
Kod:
#If VBA7 Then
Dim accs As LongPtr
#Else
Dim accs As Long
#End If
Me.Detail.BackColor = vbWhite
accs = TransparentFormWithVisibleControl(Me.Form, vbWhite)