Başlangıç > Kodlar > Visual Basic 6 ile Shape,timer,vscrollbar

Visual Basic 6 ile Shape,timer,vscrollbar


Shape – Timer – Vscrollbar örneği



Private Sub Form_Load()
Shape1.BorderStyle = 1
Shape1.BorderWidth = 5 ‘çizgi kalınlığı 5
Timer1.Interval = 1000
VScroll1.Min = 0
VScroll1.Max = 5
End Sub
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value + 1
‘tüm şekiller gösterldi ise baştan itibaren devam et
If VScroll1.Value >= 5 Then VScroll1.Value = 0
End Sub
Private Sub VScroll1_Change()
Shape1.Shape = VScroll1.Value
End Sub

Private Sub Form_Load()
Shape1.BorderStyle = 1
Shape1.BorderWidth = 5 ‘çizgi kalınlığı 5
Timer1.Interval = 1000
VScroll1.Min = 0
VScroll1.Max = 5
End Sub
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value + 1
‘tüm şekiller gösterldi ise baştan itibaren devam et
If VScroll1.Value >= 5 Then VScroll1.Value = 0
End Sub
Private Sub VScroll1_Change()
Shape1.Shape = VScroll1.Value
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: