Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
973 B
1
Indexable
Never
Option Explicit

Private Sub btnAnimate_Click()
    Dim i As Integer
    Dim x As Integer
    Dim y As Integer
    
    ' Düğmeyi başlangıç pozisyonuna taşıyın
    x = btnAnimate.Left
    y = btnAnimate.Top
    
    ' Düğmeyi hareket ettirme döngüsü
    For i = 1 To 10
        ' Düğmeyi sağa doğru hareket ettirin
        x = x + 10
        btnAnimate.Left = x
        ' Kısa bir bekleme süresi ekleyin (100 ms)
        Application.Wait (Now + TimeValue("0:00:01"))
        ' UserForm'u yenilemek için DoEvents kullanın
        DoEvents
    Next i
    
    ' Döngü tamamlandığında düğmeyi başlangıç pozisyonuna geri taşıyın
    For i = 1 To 10
        ' Düğmeyi sola doğru hareket ettirin
        x = x - 10
        btnAnimate.Left = x
        ' Kısa bir bekleme süresi ekleyin (100 ms)
        Application.Wait (Now + TimeValue("0:00:01"))
        ' UserForm'u yenilemek için DoEvents kullanın
        DoEvents
    Next i
End Sub