Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - .NetNinja -

Visual Basic .NET - Окна и формы

Все примеры / Интерфейс / Окна и формы

Различные эффекты появления формы

Автор: .NetNinja | добавлено: 06.03.2010, 17:00 | просмотров: 4333 (1+) | комментариев: 0 | рейтинг: *x10
Контрол, позволяющий установить различные эффекты (прозрачность, сворачивание, разворачивание и т.п.) при появлении формы.

Инструкции

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
Файлы NetAnimateWindow.zip (25,04 Кб)
Об авторе

.NetNinja

Нет информации об авторе...
.NetNinja
Другие примеры этого автора (всего: 2)
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики