Yavaşça Silinerek Kaybolan Transparan UserForm

Kulanıcı arayüz formu

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#1)  Tarkan VURAL » 02 Tem 2008 19:19

Benim çok beğendiğim bir efekt aslında.

Kodları UserForm' unuzun kod sayfasına ekleyin ve formu çalıştırın.

Kod: Tümünü seç
Private Declare Function GetActiveWindow Lib "USER32" () As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
(ByVal hWnd As Long, _
ByVal crKey As Integer, _
ByVal bAlpha As Integer, _
ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = &HFFEC
Dim hWnd            As Long
Dim Transparancy    As Integer
Dim Running         As Boolean

Kod: Tümünü seç
Private Sub UserForm_Activate()
    Running = True
    Call Transparency
End Sub

Kod: Tümünü seç
Private Sub Transparency()
    Dim MyTimer         As Double
    DoEvents
    MyTimer = Timer
    Do
        Do
        Loop While Timer - MyTimer < 0.07
        MyTimer = Timer
        Transparancy = Transparancy - 1
        If Transparancy < 0 Then
            Unload Me
        Else
            Call SemiTransparent(Application.WorksheetFunction.Min(Transparancy, 100))
        End If
        DoEvents
    Loop While Running
End Sub


Kod: Tümünü seç
Private Sub SemiTransparent(ByVal intLevel As Integer)
    Dim lngWinIdx       As Long
    hWnd = GetActiveWindow
    lngWinIdx = GetWindowLong(hWnd, GWL_EXSTYLE)
    SetWindowLong hWnd, GWL_EXSTYLE, lngWinIdx Or WS_EX_LAYERED
    SetLayeredWindowAttributes hWnd, 0, (255 * intLevel) / 100, LWA_ALPHA
End Sub

Kod: Tümünü seç
Private Sub UserForm_Initialize()
    Transparancy = 120
    Call SemiTransparent(100)
    DoEvents
End Sub


Kod: Tümünü seç
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Running = False
End Sub
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ü

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#2)  wipex » 31 Ağu 2008 14:58

Güzel efekt Ama Yan Etki Yaptı Galiba Bende Ecxel Yavaşca Silinerek Kayboluyor

Güzel Çalışma Sağol Dostum.
Kullanıcı avatarı
wipex
İsimsiz Üye
 
Adı Soyadı:WipeX WipeX
Kayıt: 27 Ağu 2008 03:10
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yok

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#3)  Tarkan VURAL » 31 Ağu 2008 18:27

Kodları Excel'de WorkBook open olayına yazarsanız uyggulamanız kodlara göre silinip kaybolur. Bu kodu UserForm kod sayfasına yazmanızı tavsiye ediyorum.
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ü

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#4)  hsayar » 18 Eyl 2008 12:08

Sn. Tarkan Vural, Userformun x saniye sonra kaybolmasını istersek ne gibi değişklikler yapılması gerekir?
60 ve 90 saniye için örenk verirmisiniz.
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 38
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

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

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#5)  Tarkan VURAL » 18 Eyl 2008 14:04

Kod: Tümünü seç
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
End Sub


Userformunuzu açtıktan 3 saniye sonra kapatacaktır.
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ü

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#6)  hsayar » 18 Eyl 2008 15:44

Kod: Tümünü seç
Private Sub UserForm_Initialize()
    Transparancy = 120
    Call SemiTransparent(100)
    DoEvents
End Sub


Hocam dbu kodlardaki 120 ve 100 değerlerinin işlevleri nedir?
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 38
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#7)  Tarkan VURAL » 18 Eyl 2008 16:14

hsayar yazdı:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
    Transparancy = 120
    Call SemiTransparent(100)
    DoEvents
End Sub


Hocam dbu kodlardaki 120 ve 100 değerlerinin işlevleri nedir?


Görünürlük başlangıç değerleri ile geri sayımda şeffaflık oluşturan sayacın değerleri. Rakamları değiştirerek farklarını anlayabilirsiniz.
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ü

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#8)  eriliz » 18 Eyl 2008 16:37

harikaa
Kullanıcı avatarı
eriliz
 
Adı Soyadı:filiz sayan
Kayıt: 18 Eyl 2008 16:00
İleti: 1
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/B.köy

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#9)  Erhan Yavuz » 18 Eyl 2008 18:43

Aramıza hoşgeldiniz Sn. eriliz; merak ettiğiniz hertürlü Excel sorusunu sorabilirsiniz...
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5696
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#10)  hsayar » 23 Ekm 2008 18:28

Denemeye fırsatım olmadı bu kodları userformun kapanışında çalıştırmak istersek ne yapmalı?
Kapat tuşuna bastık 5 sn içinde kaybolacak.
Felaket Başa Gelmeden Evvel Önleyici ve Koruyucu Tedbirler Düşünmek Lazım.

Felaket Geldikten Sonra Dövünmenin Yararı Yoktur.

Mustafa Kemal ATATÜRK
Kullanıcı avatarı
hsayar
Site Dostu
 
Adı Soyadı:Hüseyin SAYAR
Kayıt: 18 Eyl 2008 11:30
Meslek: Çalışma Ekonomisti
Yaş: 38
İleti: 600
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne/İpsala

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#11)  Tarkan VURAL » 23 Ekm 2008 18:31

Açılıştaki kodlamayı butonunuza atayıp deneyiniz.
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ü

Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#12)  MAJUHOO » 12 Kas 2008 16:12

Sn Tarkan bey bu süper bişey. Çok güzel gerçekten elinize sağlık.
Alacağınız her çıktı, bir ağaç yaprağı...
Hayat 3 ila 4 arasıdır ya 3,5 atarsın yada 4 - 4 lük yaşarsın...
MAJUHOO
Site Dostu
 
Adı Soyadı:KADRİYE OMRAK
Kayıt: 15 Tem 2008 12:40
Yaş: 35
İleti: 502
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#13)  apartura » 23 Ekm 2009 15:58

Merhaba Tarkan Bey,
Bu seferde bu forumda yakaladım sizi:) Google'dan fazla kullanır olduk bu sayfayı sayenizde.
Benim sorum asagidaki kodlari userform code sayfasına direkt kopyalarsak calisir mi?
Yani ben forum sayfasindaki ekleyin dediğiniz 6 farkli pencereyi tek tek tümünü seç diyerek code sayfasına yapıştırdım. Ama user form efekt kazanmadi, sorun nedir sizce?

SAYGILARIMLA

Tarkan VURAL yazdı:Benim çok beğendiğim bir efekt aslında.
Kodları UserForm' unuzun kod sayfasına ekleyin ve formu çalıştırın.

Kod: Tümünü seç
Private Declare Function GetActiveWindow Lib "USER32" () As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
(ByVal hWnd As Long, _
ByVal crKey As Integer, _
ByVal bAlpha As Integer, _
ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = &HFFEC
Dim hWnd            As Long
Dim Transparancy    As Integer
Dim Running         As Boolean

Kod: Tümünü seç
Private Sub UserForm_Activate()
    Running = True
    Call Transparency
End Sub

Kod: Tümünü seç
Private Sub Transparency()
    Dim MyTimer         As Double
    DoEvents
    MyTimer = Timer
    Do
        Do
        Loop While Timer - MyTimer < 0.07
        MyTimer = Timer
        Transparancy = Transparancy - 1
        If Transparancy < 0 Then
            Unload Me
        Else
            Call SemiTransparent(Application.WorksheetFunction.Min(Transparancy, 100))
        End If
        DoEvents
    Loop While Running
End Sub


Kod: Tümünü seç
Private Sub SemiTransparent(ByVal intLevel As Integer)
    Dim lngWinIdx       As Long
    hWnd = GetActiveWindow
    lngWinIdx = GetWindowLong(hWnd, GWL_EXSTYLE)
    SetWindowLong hWnd, GWL_EXSTYLE, lngWinIdx Or WS_EX_LAYERED
    SetLayeredWindowAttributes hWnd, 0, (255 * intLevel) / 100, LWA_ALPHA
End Sub

Kod: Tümünü seç
Private Sub UserForm_Initialize()
    Transparancy = 120
    Call SemiTransparent(100)
    DoEvents
End Sub


Kod: Tümünü seç
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Running = False
End Sub
Kullanıcı avatarı
apartura
Yeni Başlamış
 
Adı Soyadı:tahir kuru
Kayıt: 25 Eyl 2009 17:27
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#14)  Tarkan VURAL » 23 Ekm 2009 16:52

Bende denediğimde sorun olmuyor. [ilginc]
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: Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#15)  apartura » 23 Ekm 2009 17:17

Şimdi oldu, müthişş. Ellerinize sağlık.

Tarkan VURAL yazdı:Bende denediğimde sorun olmuyor. [ilginc]
Kullanıcı avatarı
apartura
Yeni Başlamış
 
Adı Soyadı:tahir kuru
Kayıt: 25 Eyl 2009 17:27
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#16)  bdilekci » 26 Oca 2010 20:22

Sayın Üstadlarım,
Ben denedim fakat farklı bir sonuca ulaştım.Kod sayfasına kodları yerleştirdim.Daha sonra programı çalıştırdığımda ise programı kullanamadan program saydamlaşıyor maalesef.Benim düşündüğüm ise programı kapatınca saydamlaşarak kapanması.Bu konuda yardımcı olabilirmisiniz?
Kullanıcı avatarı
bdilekci
Yeni Başlamış
 
Adı Soyadı:Burak DİLEKÇİ
Kayıt: 30 Arl 2009 19:18
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Batman

Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#17)  Tarkan VURAL » 27 Oca 2010 13:08

UserForm1 kod sayfasına şu şekilde yazın ve çarpı tuşuna basıp inceleyin.

Kod: Tümünü seç
Private Declare Function GetActiveWindow Lib "USER32" () As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
(ByVal hWnd As Long, _
ByVal crKey As Integer, _
ByVal bAlpha As Integer, _
ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = &HFFEC
Dim hWnd            As Long
Dim Transparancy    As Integer
Dim Running         As Boolean

Private Sub Transparency()
    Dim MyTimer         As Double
    DoEvents
    MyTimer = Timer
    Do
        Do
        Loop While Timer - MyTimer < 0.05
        MyTimer = Timer
        Transparancy = Transparancy - 1
        If Transparancy < 0 Then
            Unload Me
        Else
            Call SemiTransparent(Application.WorksheetFunction.Min(Transparancy, 100))
        End If
        DoEvents
    Loop While Transparancy > 0
        Running = False
    End
End Sub

Private Sub SemiTransparent(ByVal intLevel As Integer)
    Dim lngWinIdx       As Long
    hWnd = GetActiveWindow
    lngWinIdx = GetWindowLong(hWnd, GWL_EXSTYLE)
    SetWindowLong hWnd, GWL_EXSTYLE, lngWinIdx Or WS_EX_LAYERED
    SetLayeredWindowAttributes hWnd, 0, (255 * intLevel) / 100, LWA_ALPHA
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Transparancy = 120
    Call SemiTransparent(100)
    DoEvents
    Running = True
    Call Transparency
End Sub
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 Silinerek Kaybolan Transparan UserForm

İleti#18)  bdilekci » 27 Oca 2010 23:59

Tarkan Bey,çok teşekkürler.
Kullanıcı avatarı
bdilekci
Yeni Başlamış
 
Adı Soyadı:Burak DİLEKÇİ
Kayıt: 30 Arl 2009 19:18
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Batman

Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#19)  Fethi34 » 10 Ekm 2010 20:16

Bir örnekte ben eklemek istedim.

Kod: Tümünü seç
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _
        ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
        ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, ByVal lpWindowName As String) 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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2


Kod: Tümünü seç
Private Sub CommandButton1_Click()
        Dim xl As Long
        hWndForm = FindWindow("ThunderDFrame", Me.Caption)
        Dim rtn As Long
        rtn = GetWindowLong(hWndForm, GWL_EXSTYLE)
        rtn = rtn Or WS_EX_LAYERED
        SetWindowLong hWndForm, GWL_EXSTYLE, rtn
        For i = 255 To 0 Step -5
            SetLayeredWindowAttributes hWndForm, 0, i, LWA_ALPHA
            Sleep 20
            DoEvents
            DrawMenuBar hWndForm
            SetFocus hWndForm
        Next i
        Unload Me
        MsgBox "Kapandı", vbCritical, "ExcelVBA.Net"
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 36
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Yavaşça Silinerek Kaybolan Transparan UserForm

İleti#20)  Murat OSMA » 21 Ekm 2010 02:54

Poyraz, senin kodları kullanarak formlar arasında geçişi denedim güzel oldu.
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

Sonraki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe