Skip to main content

AccessTr.neT


Flash yapma örneği

Flash yapma örneği

#1
1 adet label
2 adet komut butonu hazırlayınız.

lblFlash
cmdFlash
cmdStop

bu butonları hazırladıktan sonra aşağıdaki kodu formumuzun kod yerine kopyala yapıştır yapın.
Option Compare Database

Private Sub cmdFlash_Click()
Me.TimerInterval = 300

End Sub

Private Sub cmdStop_Click()

Me.TimerInterval = 0
Me.lblFlash.ForeColor = vbBlack

End Sub

Private Sub Form_Timer()
With Me.lblFlash
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
.BackColor = (IIf(.BackColor = vbRed, vbBlue, vbRed))
End With
End Sub
.rar Flash Yapma.rar (Dosya Boyutu: 10,85 KB | İndirme Sayısı: 336)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
#2
(10/11/2008, 12:46)PuLeTiN yazdı: .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
.BackColor = (IIf(.BackColor = vbRed, vbBlue, vbRed))

Hızlı kod. PAylaşım için teşekkürler
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
#3
Merhaba;

Sayın,PuLeTiN ve Bilgisayarcı ellerinize sağlık.

Teşekkürederim.
Cevapla
#4
eywallah da ... Ben sadece teşekkür etmiştim. Teşekkürler Puletine yapılsın lütfen.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
#5
güzel bi örnek, teşekkürler. peki bunu form içinde butonsuz, otomatik olarak form açılınca çalışmasını sağlayabilir miyiz?
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#6
Me.TimerInterval = 300

Bu kodu

Form Load olaryına yazarsanız olacaktır....
.rar Flash Otomatik.rar (Dosya Boyutu: 11,14 KB | İndirme Sayısı: 66)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Son Düzenleme: 11/11/2008, 19:04, Düzenleyen: Puletin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task