用WindowsApi函数可以简单实现你说的要求
这是我用过的:
Private Declare Function AnimateWindow Lib "user32" Alias "AnimateWindow" (ByVal hwnd As IntPtr, ByVal dwTime As Integer, ByVal dwFlags As Integer) As Boolean
Const AW_HOR_POSITIVE As Integer = 1 '窗口显示动画,自定义窗体出现方式
Const AW_HOR_NEGATIVE As Integer = 2
Const AW_VER_POSITIVE As Integer = 4
Const AW_VER_NEGATIVE As Integer = 8
Const AW_CENTER As Integer = 1
Const AW_HIDE As Integer = 65536
Const AW_ACTIVATE As Integer = 131072
Const AW_SLIDE As Integer = 262144
Const AW_BLEND As Integer = 524288 '窗口显示动画,自定义窗体出现方式
函数调用比如:
AnimateWindow(Me.Handle, 1500, AW_HOR_NEGATIVE Or AW_SLIDE)
这是我用过的:
Private Declare Function AnimateWindow Lib "user32" Alias "AnimateWindow" (ByVal hwnd As IntPtr, ByVal dwTime As Integer, ByVal dwFlags As Integer) As Boolean
Const AW_HOR_POSITIVE As Integer = 1 '窗口显示动画,自定义窗体出现方式
Const AW_HOR_NEGATIVE As Integer = 2
Const AW_VER_POSITIVE As Integer = 4
Const AW_VER_NEGATIVE As Integer = 8
Const AW_CENTER As Integer = 1
Const AW_HIDE As Integer = 65536
Const AW_ACTIVATE As Integer = 131072
Const AW_SLIDE As Integer = 262144
Const AW_BLEND As Integer = 524288 '窗口显示动画,自定义窗体出现方式
函数调用比如:
AnimateWindow(Me.Handle, 1500, AW_HOR_NEGATIVE Or AW_SLIDE)