AccessTr.neT

Burada ekleyeceğimiz 2 şey var = 1 Command button 1 Timer

Eğer bunun direk başlamasını istiyorsak buttondaki kodları form a yazarak yapabiliriz .. İşte Kodlar :

######

Private Sub Command1_Click()

Timer1.Enabled = True



End Sub



Private Sub Timer1_Timer()

Dim i As String

i = Rnd * 100000

Form1.BackColor = i

End Sub

sayın gitarc
bu bilgiler için ayrı ayrı teşekküler
keşke örnekleri ekleseydin daha iyi olurdu kolay gelsin

evet bende takip ediyorum
ama örnek olsa daha iyi olurdu...

Sn:gitarc
Paylaşım için teşekkürler.
Aşağıdaki kodlarıda formun loadına ekleyiniz.

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Arkadaş örnek kodları dersler bölümünde verdiğine göre örneğe gerek yok diye düşünüyorum dersler bölümündeki kodlardan yararlanılarak birşeyler yaparak öğrenmek daha iyi olur.