Yavaşça Açılan Transparan UserForm

Kulanıcı arayüz formu

Yavaşça Açılan Transparan UserForm

İleti#1)  Murat OSMA » 01 Nis 2011 16:04

Kod: Tümünü seç
Private 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

Kod: Tümünü seç
Private Sub UserForm_Activate()
    Dim bytOpacity As Byte
    Dim i      As Long
    For bytOpacity = 0 To 254
        Call SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
        Call SetLayeredWindowAttributes(hWnd, 0, bytOpacity, LWA_ALPHA)
           For i = 1 To 1000
               DoEvents
           Next
    Next
End Sub

Kod: Tümünü seç
Private Sub UserForm_Initialize()
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Yavaşça Açılan Transparan UserForm

İleti#2)  Mahir ÇÜMEN » 01 Nis 2011 16:28

Güzel paylaşımınız için teşekkürler.şkşk
Kullanıcı avatarı
Mahir ÇÜMEN
Forum Moderatörü
 
Adı Soyadı:Mahir ÇÜMEN
Kayıt: 31 Arl 2010 15:35
Konum: Excel 2013-Türkçe
Meslek: Memur (MEB)
Yaş: 36
İleti: 1262
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Yavaşça Açılan Transparan UserForm

İleti#3)  Murat OSMA » 01 Nis 2011 16:46

Rica ederim Mahir bey. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Yavaşça Açılan Transparan UserForm

İleti#4)  OmerFaruk Bayrak » 01 Nis 2011 23:22

Güzel Paşlaşım eline saglık Bu Yazıyı hangi proğramdan kullandın.
Kullanıcı avatarı
OmerFaruk Bayrak
Siteye Alışmış
 
Adı Soyadı:Ömer Bayrak
Kayıt: 11 Mar 2010 17:41
Konum: İstanbul
Meslek: Öğrenci-Web Tasarım
Yaş: 21
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Yavaşça Açılan Transparan UserForm

İleti#5)  Arslanbey » 01 Nis 2011 23:56

Güzel paylaşımınız için teşekkürler. şkşk
Kullanıcı avatarı
Arslanbey
Site Dostu
 
Adı Soyadı:Süleyman Arslan
Kayıt: 15 Mar 2009 18:23
Konum: sağlık sektöründeyim
Meslek: laboratuvar teknikeriyim
Yaş: 35
İleti: 575
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat-Sorgun

Cevap: Yavaşça Açılan Transparan UserForm

İleti#6)  EfeM » 02 Nis 2011 11:33

Emeğine sağlık Murat Bey. [TESEKKÜR]
Kullanıcı avatarı
EfeM
Yeni Başlamış
 
Adı Soyadı:Mustafa GUC
Kayıt: 23 Kas 2009 19:29
Konum: İzmir
Meslek: Bilsisayar Programcısı
Yaş: 40
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Yavaşça Açılan Transparan UserForm

İleti#7)  iva » 14 Haz 2011 05:19

Üstadım bunu nereye yapıştırıcaz.
En son Murat OSMA tarafından, 14 Haz 2011 10:35 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Yazım hataları kırmızı ile belirtildi...
Kullanıcı avatarı
iva
Siteye Alışmış
 
Adı Soyadı:müzekker vatan
Kayıt: 14 Haz 2011 02:38
Meslek: T.H.Y.
Yaş: 39
İleti: 292
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Yavaşça Açılan Transparan UserForm

İleti#8)  Murat OSMA » 14 Haz 2011 10:36

Teşekkür ederim arkadaşlar, görmedim kusura bakmayın... --)(

Müzekker hanım, forum kuralları 20. maddeyi tekrar inceleyerek, iletinizdeki kırmızı ile belirtilen hatalarınızı düzeltiniz.
Bir de her mesajı alıntı yaparak cevap vermezseniz sevinirim. Gereksiz bir görüntü oluşturuyor...
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Yavaşça Açılan Transparan UserForm

İleti#9)  sahemi » 02 Nis 2012 00:56

Paylaşım için teşekkürler
Kullanıcı avatarı
sahemi
Yeni Başlamış
 
Adı Soyadı:Şahin Sahemi
Kayıt: 18 Nis 2011 12:08
Konum: İstanbul
Meslek: muhasebe
Yaş: 42
İleti: 39
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Yavaşça Açılan Transparan UserForm

İleti#10)  keon » 11 Nis 2012 21:32

Murat bey çok çalışma çok hoşuma gitti ama resmi arka fona nasıl gömüyoruz onu merak ettim
Kullanıcı avatarı
keon
Yeni Başlamış
 
Adı Soyadı:KEMAL DEMİR
Kayıt: 25 Mar 2012 17:06
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Yavaşça Açılan Transparan UserForm

İleti#11)  Tarkan VURAL » 11 Nis 2012 21:41

Benden de minik bir senaryo.. :)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Yavaşça Açılan Transparan UserForm

İleti#12)  Murat OSMA » 12 Nis 2012 09:58

keon yazdı:Murat bey çok çalışma çok hoşuma gitti ama resmi arka fona nasıl gömüyoruz onu merak ettim


Merhaba Kemal Bey,
UserForm'un Properties penceresindeki Picture özelliğinden arkaplân resmini seçebilirsiniz...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Yavaşça Açılan Transparan UserForm

İleti#13)  keon » 12 Nis 2012 20:00

Hep deneme yanılma yoluyla internetten araştırarak bazı şeyleri öğrendim bu da onlardan biri oldu teşekkürler.
Kullanıcı avatarı
keon
Yeni Başlamış
 
Adı Soyadı:KEMAL DEMİR
Kayıt: 25 Mar 2012 17:06
Yaş: 33
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Yavaşça Açılan Transparan UserForm

İleti#14)  frozenbow78 » 12 Nis 2012 23:38

Teşekkürler güzel birazdan komik şkşk
Kullanıcı avatarı
frozenbow78
Yeni Başlamış
 
Adı Soyadı:Mustafa Bey
Kayıt: 31 Mar 2012 02:26
İleti: 36
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amerika

Cevap: Yavaşça Açılan Transparan UserForm

İleti#15)  kiorgi » 05 May 2013 14:36

Murat Bey, Tarkan Bey,
Bu kodları 64 bit sistem için de uyarlarsanız memnun oluruz.
İyi çalışmalar.
Kullanıcı avatarı
kiorgi
Yeni Başlamış
 
Adı Soyadı:ismail asi
Kayıt: 02 Kas 2011 16:03
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Yavaşça Açılan Transparan UserForm

İleti#16)  Murat OSMA » 06 May 2013 14:14

Merhaba İsmail Bey,

Mevcut Api'leri bu bağlantıdaki 64 Bit Api'lerle değiştirebilirsiniz; viewtopic.php?f=50&t=12012
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14301
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Yavaşça Açılan Transparan UserForm

İleti#17)  MCHAN007 » 23 Arl 2014 15:42

kolay gelsin.. ben vba excel proğramlamaya yeni başlıyorum
acaba bu çalışma benim formlar için ayrı ayrı olur mu be siz değerli ustalarımdan ricam acaba bu uygulamayı exe formatında nasıl kullanırım şimdiden teşekkür ederim....
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
MCHAN007
 
Kayıt: 09 Arl 2014 18:34
Meslek: memur
Yaş: 35
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: trabzon

Cevap: Yavaşça Açılan Transparan UserForm

İleti#18)  MCHAN007 » 26 Arl 2014 14:00

çözüm başka bir sitede buldum kod arşivini paylaşmak istedim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
MCHAN007
 
Kayıt: 09 Arl 2014 18:34
Meslek: memur
Yaş: 35
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: trabzon

Cevap: Cevap: Yavaşça Açılan Transparan UserForm

İleti#19)  Tarkan VURAL » 27 Arl 2014 12:20

Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe