自定义最小化按钮失去原来的最小化按钮动画

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 应用程序中出现的动画。

[编辑]：我安装的所有应用程序都有默认的最小化动画，因为它们都使用相同的 windows 栏，但是我的程序没有，因为我觉得它不太吸引人，所以我创建了自己的 Print 通过编程我自己的按钮我失去了动画。

Answer 1

任何应用程序最小化动画都在 windows 设置中，无论如何都可以关闭。如果您在用户配置文件系统属性设置中禁用它，我认为您不能强制执行它。这可以在 Advanced -> Performance

中的 sysdm.cpl 中找到

Answer 2

所以我发现问题是我的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 3

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

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

自定义最小化按钮失去原来的最小化按钮动画

Custom minimize button loses original minimize button animation

vb.net

animation

minimize