Soru Döngüyü 1 defa bitirmek hk.

[MOZCELİK53]

Merhaba aşağıdaki kodlara ne eklemem gerekiyor döngüyü bir sefer çalışıp bitirmesi userform un kapanması için ?

Private Sub UserForm_activate()

Running = True
Call Animation2


End Sub

Private Sub Animation2()

Dim y As Integer
Dim MyTimer As Double

MyTimer = Timer
Do
On Error Resume Next
UserForm1.Image99.Picture = LoadPicture _
(ThisWorkbook.Path & "\NEWSS\Images\Animation\Pulser\lop\" & y & ".Gif")

Do
Loop While Timer - MyTimer < 1

If y = 100 Then
y = 1
Else
y = y + 1
End If

DoEvents
Loop

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Running = False

End Sub

 

[Muzaffer Ali]

Merhaba.

Aynı kodları birden fazla kez çalıştırmak için döngü kullanılır.
Tam olarak ne yapmak istiyorsunuz?
Döngüyü bir kere döndürmek ile hiç döngü kullanmamak aynı şey.
Neden döngü kullanmak zorundasınız?

 

[MOZCELİK53]

Merhaba.

Aynı kodları birden fazla kez çalıştırmak için döngü kullanılır.
Tam olarak ne yapmak istiyorsunuz?
Döngüyü bir kere döndürmek ile hiç döngü kullanmamak aynı şey.
Neden döngü kullanmak zorundasınız?

Animasoyunun bir defa çalışıp kapanmasını istiyorum userform un sürekli tekrar ediyor

 

[Muzaffer Ali]

O kodları silin yerine aşağıdaki kodları kullanın.

Private Sub UserForm_activate()
    Call Animation2
End Sub

Private Sub Animation2()
    Dim y As Integer
    Do
        On Error Resume Next
        UserForm1.Image99.Picture = LoadPicture(ThisWorkbook.Path & "\NEWSS\Images\Animation\Pulser\lop\" & y & ".Gif")
        If y = 100 Then
            Exit Do
        Else
            y = y + 1
        End If
        DoEvents
    Loop
End Sub

 

[MOZCELİK53]

O kodları silin yerine aşağıdaki kodları kullanın.

Private Sub UserForm_activate()
    Call Animation2
End Sub

Private Sub Animation2()
    Dim y As Integer
    Do
        On Error Resume Next
        UserForm1.Image99.Picture = LoadPicture(ThisWorkbook.Path & "\NEWSS\Images\Animation\Pulser\lop\" & y & ".Gif")
        If y = 100 Then
            Exit Do
        Else
            y = y + 1
        End If
        DoEvents
    Loop
End Sub

Çok yaşa Muzaffer Bey Allah razı olsun .

 

[Muzaffer Ali]

Allah senden de razı olsun. Kolay gelsin.