Butonun yanıp sönsün

E

emrah1964

Katılımcı Üye
8 Şub 2012
298
0
İstanbul
İ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
 
S

shots

Üye
15 Nis 2012
64
0
emrah1964' Alıntı:
İ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
Genişletmek için tıkla ...


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

Kod: 
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 :D başka pratik yollarda vardır tabikide
 
O

oguz582

Katılımcı Üye
29 Şub 2012
330
0
Çorum
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

 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.