为winform添加过渡效果?

时间:2013-07-06 20:46:34

标签: vb.net winforms

我想知道是否有一种方法可以为我的winforms添加过渡效果。

我的应用程序(vb.net)上有大约3个winforms,它们在屏幕顶部打开。我的客户关注美学,所以过渡是表单在被调用时显示的一个要求。

也许过渡并不准确。我的意思是让表单在调用时从左向右移动。或从上到下。

是否有任何资源可以帮助实现这一目标?

1 个答案:

答案 0 :(得分:2)

最简单的方法是使用一个定时器并在一两秒内增加不透明度。

http://msdn.microsoft.com/library/system.windows.forms.form.opacity.aspx

一个例子:

Form1中:

Public Class Form1

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim f As Form2
        f = New Form2
        f.Timer1.Enabled = True
        f.Timer1.Interval = 5
        f.Opacity = 0
        f.ShowDialog(Me)
    End Sub

End Class

Form2:

Public Class Form2
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity >= 1 Then
            Timer1.Stop()
            Exit Sub
        End If
        Me.Opacity += 0.05
    End Sub
End Class