Butonun yanıp sönsün

[emrah1964]

İLK ÖNCE BİRTANE TİMER EKLE BİRTANE BUTTON SONRA KODLAR VERİYİM form loada
timer1.start()
yazcaksın Private Sub Timer1_timer

Command1.backgroundcolor = ffff00

Command1.backgroundcolor=0f0f

end sub

 

[ByLoss]

Teşekkürler..!

 

[Spulcral07]

Hata Veriyor Kardeşim Birazdaha Detaylı Anlatırmısın ?

 

[shots]

İLK ÖNCE BİRTANE TİMER EKLE BİRTANE BUTTON SONRA KODLAR VERİYİM form loada
timer1.start()
yazcaksın Private Sub Timer1_timer

Command1.backgroundcolor = ffff00

Command1.backgroundcolor=0f0f

end sub

bu mantıkla yanıp sönen bir buton yapamassınız saten timer işlemde iken bu komutların hepsini yapıcaktır yani butonun renki 0f0f gözükcektir arada bekleme süresi olmucaktır bu yüzden biz renki 0f0f olarak görücez

ama Vb 6.0da şöyle birşey yapabiliriz

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Timer1_Timer()
Dim sarı, kırmızı
sarı = &HFFFF&
kırmızı = &HFF&
Command1.BackColor = sarı
bekle "500"
Command1.BackColor = kırmızı
End Sub
Private Sub bekle(ByVal milisaniye As Double)
Dim dblStart As Double
Dim dblEnd As Double
Dim dblTickCount As Double
dblTickCount = GetTickCount()
dblStart = GetTickCount()
dblEnd = GetTickCount + milisaniye
Do
DoEvents
dblTickCount = GetTickCount()
Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
End Sub

böyle birşey olur başka pratik yollarda vardır tabikide

 

[Spulcral07]

Shots Sende Olmasan Biz Nasıl Renkli Buton Yapcaz Bilmiyorum

 

[oguz582]

Saol Arşivimde Dursun Belki Lazım Olur!

 

[EvilCodder]

Detaylı Anlatım....

 

[oguz582]

Arkadaşlar Ben VB.Net Kullanıyorum...Bildiğime Göre VB6'da Şöyleydi!

Forma Bir Timer1,Bir Tanede Buton Ekle

Sonra FormLoda Gel...

Timer1.Tick Yaz

Timerede Arkadaşımızın Verdiği Kodları Yazın