VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Новости
26.12.2008 Лимитный инвайт для тех, кто хочет присоединиться к VBNet.Su, но не может :)
vbnet-super
С наступающим!
join

18.12.2008 Увеличен размер поля для подписи. Разрешено использовать некоторые теги HTML.
Изменены правила форума, в подписи разрешено использовать партнерские ссылки. Ссылки в подписи могут использовать только те пользователи, которые разместили обратную ссылку на VBNet.Su на одном из сайтов, указанных в профиле. Проверка обратных ссылок производится в автоматическом режиме. Если у Вас возникнут какие-либо вопросы, обращайтесь к администратору.

15.12.2008 Открылась рассылка VBNet.Su!
Рассылка будет выходить автоматически, несколько раз в неделю. В рассылке будут содержаться последние обновления сайта (аналог RSS). Чтобы подписаться на рассылку VBNet.Su, перейдите по этой ссылке.
Архив новостей
Будь в теме
Внешние HDD на VBNet.Su
VBNet.Su рекомендуетTranscend StoreJet 250 Gb, внешний жесткий диск, USB (TS250GSJ25М)
Портативный внешний жестикй диск Transcend StoreJet 25 mobile, отличающийся повышенной устойчивостью к неблагоприятным воздействиям ударов, вибрации, пыли, влаги, жары и холода. Устройство весом 206 грамм находится в прочном корпусе с габаритами ... подробнее..
Цена: 3396 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Коды / Windows Forms /

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

Автор: .NetNinja | добавлено: 07 декабря 2008 / 17:40 | просмотров: 3363 (+3062)
Контрол, позволяющий установить различные эффекты (прозрачность, сворачивание, разворачивание и т.п.) при появлении формы.

Dim WindowAnimater As New WindowAnimator
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WindowAnimater.AnimationDirection = WindowAnimator.AnimateDirection.Horizontal_Negative
WindowAnimater.AnimationStyle = WindowAnimator.AnimateStyles.Blend
WindowAnimater.WindowHandle = Me.Handle
WindowAnimater.AnimateWindow()
End Sub
  1. Imports System.ComponentModel
  2. '*******************************************************************
  3. 'Различные эффекты появления формы
  4. 'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
  5. '*******************************************************************
  6.  
  7. Public Class WindowAnimator
  8.  Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal time As Integer, ByVal flags As Integer) As Boolean
  9.  
  10.  Public Enum AnimateStyles
  11.  Slide = 262144
  12.  Activate = 131072
  13.  Blend = 524288
  14.  Hide = 65536
  15.  Center = 16
  16.  End Enum
  17.  
  18.  Public Enum AnimateDirection
  19.  Horizontal_Positive = 1
  20.  Horizontal_Negative = 2
  21.  Vertical_Positive = 4
  22.  Vertical_Negative = 8
  23.  End Enum
  24.  
  25.  Private AniTime As Integer = 100
  26.  Private WinHandle As IntPtr
  27.  Private AniStyle As AnimateStyles = AnimateStyles.Blend
  28.  Private AniDirection As AnimateDirection = AnimateDirection.Horizontal_Negative
  29.  
  30.  <Category("Window Animator")> _
  31.  <Description("Gets/Sets the animation time in milliseconds.")> _
  32.  Public Property AnimationTime() As Integer
  33.  Get
  34.  AnimationTime = AniTime
  35.  End Get
  36.  Set(ByVal Value As Integer)
  37.  AniTime = Value
  38.  End Set
  39.  End Property
  40.  
  41.  <Category("Window Animator")> _
  42.  <Description("Gets/Sets the handle to the window to animate.")> _
  43.  Public Property WindowHandle() As IntPtr
  44.  Get
  45.  WindowHandle = WinHandle
  46.  End Get
  47.  Set(ByVal Value As IntPtr)
  48.  WinHandle = Value
  49.  End Set
  50.  End Property
  51.  
  52.  <Category("Window Animator")> _
  53.  <Description("Gets/Sets the animation style.")> _
  54.  Public Property AnimationStyle() As AnimateStyles
  55.  Get
  56.  AnimationStyle = AniStyle
  57.  End Get
  58.  Set(ByVal Value As AnimateStyles)
  59.  AniStyle = Value
  60.  End Set
  61.  End Property
  62.  
  63.  <Category("Window Animator")> _
  64.  <Description("Gets/Sets the animation direction.")> _
  65.  Public Property AnimationDirection() As AnimateDirection
  66.  Get
  67.  AnimationDirection = AniDirection
  68.  End Get
  69.  Set(ByVal Value As AnimateDirection)
  70.  AniDirection = Value
  71.  End Set
  72.  End Property
  73.  
  74.  Public Function AnimateWindow()
  75.  AnimateWindow(WindowHandle, AniTime, AniDirection Or AniStyle)
  76.  Return 0
  77.  End Function
  78.  
  79. End Class
* NetAnimateWindow.zip (25.04 Кб)
Смотрите также
Visual Basic .NET 2005 (Framework 2.0) Простой пример Drag & Drop
Автор: jmcilhinney | добавлено: 07 декабря 2008 / 17:46 | просмотров: 2321 (+2001)
Пример показывает, как можно перетаскивать мышкой элементы из одного списка (ListBox) в другой.

Visual Basic .NET 2005 (Framework 2.0) Эффект плавного исчезновения формы при закрытии
Автор: Неизвестно | добавлено: 07 декабря 2008 / 16:56 | просмотров: 2452 (+2180)
При закрытии, форма начинает плавно исчезать.

Visual Basic .NET 2005 (Framework 2.0) Переносимые вкладки в TabControl
Автор: Nick Thissen | добавлено: 07 декабря 2008 / 15:10 | просмотров: 2530 (+2325)
Пример показывает, как можно переносить мышкой вкладки в контроле TabControl (см. прикрепленный файл).

Visual Basic .NET 2005 (Framework 2.0) Popup-окна
Автор: jmcilhinney | добавлено: 07 декабря 2008 / 15:04 | просмотров: 1538 (+1328)
Реализация всплывающих окошек, как например в ICQ, QIP или Miranda (см. файл демо-проекта).

Visual Basic .NET 2005 (Framework 2.0) ToolStripRenderer в стиле Vista
Автор: Nick Thissen | добавлено: 07 декабря 2008 / 14:57 | просмотров: 4809 (+4559)
Реализация пользовательского ToolStripRenderer, позволяющего сделать ToolStrip в стиле Windows Vista.
У нас есть
Мозолистые пальцы
Всего:1260
С ногами:2520
Красные глаза
Всего:252
Левых:126
Правых:126
Горячие мозги
Всего:126
Левых:3
Правых:27
Еще какие-то:96
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuПрограммирование для Microsoft Windows на Microsoft Visual Basic .NET. Том 1
Ч. Петцольд, известный автор и один из пионеров Windows-программирования, в этой книге подробно и доходчиво рассказывает о возможностях Windows Forms — библиотеки классов Windows нового поколения для платформы .NET. Вы узнаете, как создавать динамические... подробнее..
Автор: Чарльз Петцольд
Цена: 271 руб. КУПИТЬ
Все книги на VBNet.Su
TOP 10 пользователей
Алексей Немиро65.2275660625+
Ігор47.181654625+
kibernetics16.0390645+
Kolyasik5.9658263125+
rublenko3.734375+
Arseny3.6845703125+
Skywalker2.904296875+
ostgals2.857421875+
5acredphoenix2.708994375+
andrey_z5z2.3857511875+
Все пользователи


Реклама: