bu kodlarla visual basic içersinde bir formu titrek hale getirebilirsiniz
öncelikle form'a bir adet Timer ve bir adet HscrollBar koyuyoruz.
Sonra timer nesnesinin properties kısmında interval değerini 10 yapıyoruz.
Timer nesnesiyle işimiz bittikten sonra scrollbar'ın properties kısmında max değerine kafamıza göre bir sayı atıyoruz (çok uçmamak lazım ben 500 yaptım). Min değerini ise 0 yapın.
code kısmına gelince...
öncelikle form'a bir adet Timer ve bir adet HscrollBar koyuyoruz.
Sonra timer nesnesinin properties kısmında interval değerini 10 yapıyoruz.
Timer nesnesiyle işimiz bittikten sonra scrollbar'ın properties kısmında max değerine kafamıza göre bir sayı atıyoruz (çok uçmamak lazım ben 500 yaptım). Min değerini ise 0 yapın.
code kısmına gelince...
Kod:
Dim tt As Boolean
Dim sY As Integer
Private Sub Form_Load()
sY = 100
End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
If tt = True Then
Me.Top = Me.Top + sY
Me.Left = Me.Left + sY
tt = False
Else
Me.Top = Me.Top - sY
Me.Left = Me.Left - sY
tt = True
End If
End Sub
