1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Shape – Timer - Vscrollbar


  1. Statuss

    Statuss Bilgiliyim rank8

    Kayıt:
    25 Haziran 2008
    Mesajlar:
    1.178
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    the wrong place
    Kod:
    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
    Visual Basic
    Kolaygelsin