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, перейдите по этой ссылке.
Архив новостей
Будь в теме
КПК и коммуникаторы
VBNet.Su рекомендуетHTC P3400 (Gene)
Ростест

HTC P3400 производит впечатление слегка модернизированного Qtek s200, который заметно сбросил вес, лишился IrDA и обзавёлся фирменным разъёмом HTC ExtUSB. Доказательством использования в новинке старых наработок служит и ... подробнее..
Цена: 8350 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Коды / Windows Forms /

Простой пример Drag & Drop

Автор: jmcilhinney | добавлено: 07 декабря 2008 / 17:46 | просмотров: 2318 (+1998)
Пример показывает, как можно перетаскивать мышкой элементы из одного списка (ListBox) в другой.
  1. '*******************************************************************
  2. 'Простой пример Drag & Drop
  3. 'Для работы примера, разместите на форме два ListBox.
  4. 'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
  5. '*******************************************************************
  6.  
  7. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  8.   'включаем Drga'n'Drop
  9.   Me.ListBox1.AllowDrop = True
  10.   Me.ListBox2.AllowDrop = True
  11.   'Заполняем списки каким-то данными
  12.   Me.ListBox1.Items.AddRange(New String() {"List 1, Item 1", _
  13.                                            "List 1, Item 2", _
  14.                                            "List 1, Item 3", _
  15.                                            "List 1, Item 4", _
  16.                                            "List 1, Item 5"})
  17.   Me.ListBox2.Items.AddRange(New String() {"List 2, Item 1", _
  18.                                            "List 2, Item 2", _
  19.                                            "List 2, Item 3", _
  20.                                            "List 2, Item 4", _
  21.                                            "List 2, Item 5"})
  22. End Sub
  23.  
  24. Private Sub ListBox_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ListBox1.MouseDown, ListBox2.MouseDown
  25.   Dim source As ListBox = DirectCast(sender, ListBox)
  26.   For index As Integer = 0 To source.Items.Count - 1
  27.     If source.GetItemRectangle(index).Contains(e.Location) Then
  28.       source.DoDragDrop(source, DragDropEffects.Move)
  29.       Exit For
  30.     End If
  31.   Next
  32. End Sub
  33.  
  34. Private Sub ListBox_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) Handles ListBox1.DragEnter, ListBox2.DragEnter
  35.   Dim source As ListBox = DirectCast(sender, ListBox)
  36.   If e.Data.GetDataPresent("System.Windows.Forms.ListBox", False) AndAlso _
  37.      e.Data.GetData("System.Windows.Forms.ListBox", False) IsNot source Then
  38.     e.Effect = DragDropEffects.Move
  39.   End If
  40. End Sub
  41.  
  42. Private Sub ListBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles ListBox1.DragDrop, ListBox2.DragDrop
  43.   Dim source As ListBox = DirectCast(sender, ListBox)
  44.  
  45.   If e.Data.GetDataPresent("System.Windows.Forms.ListBox", False) Then
  46.     Dim data As ListBox = DirectCast(e.Data.GetData("System.Windows.Forms.ListBox", False), ListBox)
  47.     If data IsNot source Then
  48.       Dim item As Object = data.SelectedItem
  49.       data.Items.Remove(item)
  50.       Dim location As Point = source.PointToClient(New Point(e.X, e.Y))
  51.       Dim dropIndex As Integer = -1
  52.       For index As Integer = 0 To source.Items.Count - 1
  53.         If source.GetItemRectangle(index).Contains(location) Then
  54.           dropIndex = index
  55.           Exit For
  56.         End If
  57.       Next
  58.       If dropIndex = -1 Then
  59.         source.Items.Add(item)
  60.       Else
  61.         source.Items.Insert(dropIndex, item)
  62.       End If
  63.     End If
  64.   End If
  65. End Sub
Смотрите также
Visual Basic .NET 2005 (Framework 2.0) Различные эффекты появления формы
Автор: .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

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

Visual Basic .NET 2005 (Framework 2.0) Переносимые вкладки в TabControl
Автор: Nick Thissen | добавлено: 07 декабря 2008 / 15:10 | просмотров: 2528 (+2323)
Пример показывает, как можно переносить мышкой вкладки в контроле 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 | просмотров: 4806 (+4556)
Реализация пользовательского ToolStripRenderer, позволяющего сделать ToolStrip в стиле Windows Vista.
У нас есть
Мозолистые пальцы
Всего:1260
С ногами:2520
Красные глаза
Всего:252
Левых:126
Правых:126
Горячие мозги
Всего:126
Левых:3
Правых:27
Еще какие-то:96
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuVisual Basic .NET. Разработка классов. Справочник
Каждый раз, когда вы пишете код VB.NET, вы разрабатываете класс. Знание того, чем можно наполнять классы и что это означает для среды выполнения .NET, является основой для получения максимальных преимуществ от использования Visual Basic .NET. Объяснение ... подробнее..
Автор: Энди Ольсен, Дэмон Эллисон, Джеймс Спир
Цена: 83 руб. КУПИТЬ
Все книги на 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+
Все пользователи


Реклама: