+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Flash yapma örneği (/konu-flash-yapma-ornegi.html)
Sayfalar:
1
2
Flash yapma örneği - Puletin - 10/11/2008
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
Cvp: Flash yapma örneği - Bilgisayarcı - 10/11/2008
(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
Cvp: Flash yapma örneği - adnan - 10/11/2008
Merhaba;
Sayın,PuLeTiN ve Bilgisayarcı ellerinize sağlık.
Teşekkürederim.
Cvp: Flash yapma örneği - Bilgisayarcı - 10/11/2008
eywallah da ... Ben sadece teşekkür etmiştim. Teşekkürler Puletine yapılsın lütfen.
Cvp: Flash yapma örneği - chopper07 - 10/11/2008
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?
Cvp: Flash yapma örneği - Puletin - 11/11/2008
Me.TimerInterval = 300
Bu kodu
Form Load olaryına yazarsanız olacaktır....