Primer 6.- Upotreba kontrole Animation iz skupa komponenti Microsoft Windows Common Controls-2 5.0

Prethodna strana

Private Sub Command1_Click()

If Command1.Caption = "POKRENI ANIMACIJU" Then

    With CommonDialog1

        .FileName = App.Path & "\rotatingstorage.avi"

    End With

    With Animation1

        .AutoPlay = True

        .Open CommonDialog1.FileName

    End With

    Command1.Caption = "ZAUSTAVI ANIMACIJU"

Else

    Animation1.Close

    Command1.Caption = "POKRENI ANIMACIJU"

End If

End Sub

Slika 6.- Izgled forme za primer 6:

Prethodna strana