Public Sub ClosingTranstitions() Opacity = 1 Dim tr_form = New Transition(New TransitionType_EaseInEaseOut(200)) tr_form.add(Me, "Opacity", 0.0) Dim tr_Title = New Transition(New TransitionType_EaseInEaseOut(200)) tr_Title.add(Title, "Left", 0) Dim tr_Content = New Transition(New TransitionType_EaseInEaseOut(300)) tr_Content.add(Content, "Left", -10) tr_Title.run() tr_form.run() tr_Content.run() End Sub Public Event TransitionCompletedEvent As EventHandler(Of Transition.Args) 'This event is raised when transitions are complete Private Sub theHandlerFunction(sender As Object, args As Transition.Args) Handles Me.TransitionCompletedEvent MsgBox("Closing") End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)