Контрол, позволяющий установить различные эффекты (прозрачность, сворачивание, разворачивание и т.п.) при появлении формы.
Инструкции
Dim WindowAnimater As New WindowAnimator Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load WindowAnimater.AnimationDire ction = WindowAnimator.AnimateDirectio n.Horizontal_Negative WindowAnimater.AnimationStyl e = WindowAnimator.AnimateStyles.B lend WindowAnimater.WindowHandle = Me.Handle WindowAnimater.AnimateWindow () End Sub
Код
Imports System.ComponentModel
'*******************************************************************
'Различные эффекты появления формы
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
Public Class WindowAnimator
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As Integer) As Boolean
Public Enum AnimateStyles
Slide = 262144
Activate = 131072
Blend = 524288
Hide = 65536
Center = 16
End Enum
Public Enum AnimateDirection
Horizontal_Positive = 1
Horizontal_Negative = 2
Vertical_Positive = 4
Vertical_Negative = 8
End Enum
Private AniTime As Integer = 100
Private WinHandle As IntPtr
Private AniStyle As AnimateStyles = AnimateStyles.Blend
Private AniDirection As AnimateDirection = AnimateDirection.Horizontal_Negative
<Category("Window Animator")> _
<Description("Gets/Sets the animation time in milliseconds.")> _
Public Property AnimationTime() As Integer
Get
AnimationTime = AniTime
End Get
Set(ByVal Value As Integer)
AniTime = Value
End Set
End Property
<Category("Window Animator")> _
<Description("Gets/Sets the handle to the window to animate.")> _
Public Property WindowHandle() As IntPtr
Get
WindowHandle = WinHandle
End Get
Set(ByVal Value As IntPtr)
WinHandle = Value
End Set
End Property
<Category("Window Animator")> _
<Description("Gets/Sets the animation style.")> _
Public Property AnimationStyle() As AnimateStyles
Get
AnimationStyle = AniStyle
End Get
Set(ByVal Value As AnimateStyles)
AniStyle = Value
End Set
End Property
<Category("Window Animator")> _
<Description("Gets/Sets the animation direction.")> _
Public Property AnimationDirection() As AnimateDirection
Get
AnimationDirection = AniDirection
End Get
Set(ByVal Value As AnimateDirection)
AniDirection = Value
End Set
End Property
Public Function AnimateWindow()
AnimateWindow(WindowHandle, AniTime, AniDirection Or AniStyle)
Return 0
End Function
End Class
Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.