Question

我想知道是否有一种方法可以保持原始动画，以使我的VB应用程序尽可能接近原始动画。

Private Sub Minimize_Click(sender As Object, e As EventArgs) Handles Minimize.Click
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
End Sub

我希望最小化动作能够播放大多数（如果不是全部）Windows应用程序中出现的动画。

[编辑]：我安装的所有应用程序都具有默认的最小化动画效果，因为它们都使用相同的窗口栏，但是我的程序却没有，因为我觉得它不是很吸引人，因此我自己编写了Print，我自己编写了按钮失去动画。

Answer 1

所以我发现问题是我的formborderstyle属性设置为none，而动画设置为none时却不显示动画，因此我解决了这个问题，但是即使它起作用了，情况也会更加恶化。现在，除非有人找到解决方案，否则我将完全不使用动画。谢谢。

Private Sub Minimize_Click(sender As Object, e As EventArgs) Handles Minimize.Click    
    Me.FormBorderStyle = FormBorderStyle.FixedSingle
    Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
    Me.FormBorderStyle = FormBorderStyle.None
End Sub

Answer 2

您可以使用不透明度来创建各种动画。

Private Sub Minimize_Click(sender As Object, e As EventArgs) Handles Minimize.Click
    For disapper As Single = 1.0! To 0 Step -0.2!
        Me.Opacity = disapper
        'Me.Refresh()
        System.Threading.Thread.Sleep(50)
    Next
    Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
    Me.Opacity = 1.0!
End Sub

Answer 3

任何应用最小化动画都在Windows设置中，并且可以随时关闭。我认为，如果在用户配置文件的“系统属性”设置中将其禁用，则无法强制执行。可以在sysdm.cpl中的Advanced-> Performance

中找到

自定义最小化按钮会丢失原始的最小化按钮动画

3 个答案: