Titreyen Form

Yazar jawscod2

ö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…

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

Bu yazı toplamda 51, bugün ise 0 kez görüntülenmiş

Bu Yazıyı Paylaşın