1. Reklam


    1. bestsro
      joysro
      anafor
      anafor
      viki
      darkroad
      bosalan

Shape – Timer - Vscrollbar


  1. Statuss

    Statuss Bilgiliyim

    Kayıt:
    25 Haziran 2008
    Mesajlar:
    1.174
    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