Отправляет email-рассылки с помощью сервиса Sendsay

Статьи по Visual Basic.NET

  Все выпуски  

Операция Drag and Drop для элементов управления ListView


Информационный Канал Subscribe.Ru

Visual Basic.NET
Лучшие статьи с сайта www.p-lib.pp.ru
  Главная | Новости | Статьи | Каталог | Софт | Регистрация | Поиск

Если вам интересен язык VisualC++, то вы можете подписаться на рассылку Статей по Visual C++.

Приглашаем авторов статей к сотрудничеству с сайтом. Для того чтобы разместить на сайте статью надо заполнить форму или связаться с нами по E-Mail

Предлагаем владельцам сайтов добавить сабя в каталог на нашем сайте.

Новые статьи на сайте

1. Загрузка файлов из Интернета
Описываются методы класса WebClient. В частности на примере загрузки картинки и текстового файла из Интернета.

2. Как получить текушее время?
Описывается метод для получения текущего времени.

3. Как убрать значок выполняемого приложения из строки состояния Windows
В статье расказывается как убрать значёк программы из строки состояния Windows. В Visual Basic.NET это очень просто.

4. Алгоритм Кнута-Морриса-Пратта
При построении конечного автомата для поиска подстроки в тексте легко построить переходы из начального состояния в конечное принимающее состояние: эти переходы помечены символами подстроки.

5. Задание фонового рисунка его прорисовкой
Фоновый рисунок можно создать, выведя его в контекст графического устройства формы, т. е. обработав событие Paint или реализовав метод OnPaintBackground.

6. Двойная буферизация
Для пердотвращения мерцания при перерисовке изображения используют двойную буферизацию. Она обеспечивает построение изображения сначало в памяти.

7. Переопределение событий
При расширении функциональных возможностей компонентов часто возникает необходимость переопределить события так, чтобы при их генерации происходилоне только выбрасывание соответствующего объекта.

8. Создание многопоточного приложения в VB.NET
В Visual Basic 6 разработка многопоточных приложений была утомительной задачей - создание новых потоков порождало многочисленные ошибки. В VB.NET картина полностью изменилась, сейчас Вы имеете простоту и мощность Java во время работы с потоками.

Свежие компьютерные новости

24.12.2005 Продолжится рост рынка ноутбуков
24.12.2005 "Яндекс" будет показывать контекстную рекламу на обычных сайтах
24.12.2005 Евросоюз угрожает Microsoft новыми штрафами
23.12.2005 IDC предсказывает снижение темпов роста рынка ПК
23.12.2005 Полуторакилограммовый субноутбук Asus U5A
23.12.2005 Кадр дня: Концепт-компьютеры на базе Windows
23.12.2005 Nokia представила SDK для разработки игр
23.12.2005 На Mail.Ru открылась автомобильная барахолка
23.12.2005 Intel и BMW подписали партнёрское соглашение
23.12.2005 Бритни Спирс возглавила рейтинг запросов Yahoo

Операция Drag and Drop для элементов управления ListView

Следующий пример демонстрирует то, как для элементов управления ListView можно программировать операции Drag and Drop. В форме имеются два списка ListView. Один из них заполнен и состоит из двух столбцов, в то время как другой пуст. Использую операции Drag and Drop, можно буксировать элементы из первого списка во второй, заполняя его. Для реализации этого проекта достаточно в код сгенерированный мастером проекта, добавить инструкции:

Private IsMouseDown As Boolean = False

Private Sub Form1_Load(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles MyBAse.Load
    Dim il As ImageList = New ImageList()
    il.Images.Add(New System.Drawing.Icon("c:\usa.ico"))
    il.Images.Add(New System.Drawing.Icon("c:\rus.ico"))
    Dim items(2) As String

    ListView1.View = View.Details
    ListView1.SmallImageList = il
    ListView1.Columns.Add("Город", 100, HorizontalAlignment.Left)
    ListView1.Columns.Add("Продажи", 100, HorizontalAlignment.Left)
    items(0) = "Нью-Йорк" : items(1) = "234214"
    ListView1.Items.Add(New ListViewItem(items, 0))
    items(0) = "Бостон" : items(1) = "66465"
    ListView1.Items.Add(New ListViewItem(items, 0))
    items(0) = "Нью-Йорк" : items(1) = "234214"
    ListView1.Items.Add(New ListViewItem(items, 0))
    items(0) = "Новосибирск" : items(1) = "456343"
    ListView1.Items.Add(New ListViewItem(items, 1))
    items(0) = "Москва" : items(1) = "999999"
    ListView1.Items.Add(New ListViewItem(items, 1))
    items(0) = "Санкт-Пететбург" : items(1) = "555555"
    ListView1.Items.Add(New ListViewItem(items, 1))

    ListView2.View = View.Details
    ListView2.SmallImageList = il
    ListView2.Columns.Add("Город", 100, HorizontalAlignment.Left)
    ListView2.Columns.Add("Продажи", 100, HorizontalAlignment.Left)
    ListView2.AllowDrop = True
End Sub

Private Sub ListView1_MouseDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.MouseEventArgs) _
  Handles ListView1.MouseDown
    IsMouseDown = True
End Sub

Private Sub ListView2_DragDrop(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.DragEventArgs) _
  Handles ListView2.DragDrop
    Dim txt As String, imageIndex As Integer
    GetItem(ListView1, txt, imageIndex)
    ListView2.Items.Add(New ListViewItem(txt.Split(","), imageIndex))
    IsMouseDown = False
End Sub

Private Sub ListView2_DragEnter(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.DragEventArgs) _
  Handles ListView2.DragEnter
    If (e.Data.GetDataPresent(DataFormats.Text)) Then
        e.Effect = DragDropEffects.Copy
    Else
        e.Effect = DragDropEffects.None
    End If
End Sub

Private Sub ListView1_MouseMove(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.MouseEventArgs) _
  Handles ListView1.MouseMove
    If Not IsMouseDown Or (e.Button = MouseButtons.Right) Then Return
    Dim txt As String, imageIndex As Integer
    If (ListView1.SelectedIndices.Count > 0) Then
        GetItem(ListView1, txt, imageIndex)
        listview1.DoDragDrop(txt, DragDropEffects.Copy or DragDropEffects.Move)
    End If
End Sub

Private Sub GetItem(ByVal lw As ListView, _
  ByRef txt As String, _
  ByRef imageIndex As Integer)
    If (lw.SelectedIndices.Count > 0) Then
        Dim lvi As ListViewItem = lw.SelectedItems(0)
        txt = ""
        Dim i As Integer
        For i = 0 To lvi.SubItems.Count - 1
            txt += lvi.SubItems(i).Text + ","
        Next
        txt = txt.Substring(0, txt.Length - 1)
        imageIndex = lvi.ImageIndex
    End If
End Sub

Исходник к статье вы можете скачать здесь.

Книги с Озона

Visual Basic .NET. Библия пользователя Visual Basic .NET. Библия пользователя

Visual Basic .NET - результат самых решительных изменений, когда-либо сделанных в популярном языке Visual Basic. Эта книга, написанная командой экспертов Visual Basic .NET, поможет вам овладеть всеми нюансами платформы .NЕТ, будь вы ветеран Visual Basic 6 или разработчик на АSР, или даже просто новичок в программировании. Начав с обзора новых объектно-ориентированных свойств, авторы познакомят вас с основами языка Visual Basic, со средой разработки Visual Studio .NET, технологиями АDО.NЕТ и ХМL и объяснят на примерах, как создавать формы Windows, приложения АSР.NЕТ и Web-сервисы.

Заказать на Озоне

Visual Basic .NET. Библия пользователя Microsoft Visual Basic .NET 2003. Русская версия. Шаг за шагом (+ CD-ROM)

Visual Basic .NET 2003 - это профессиональная среда для разработки приложений, а практическое руководство из серии "Шаг за шагом" - быстрый путь к ее освоению.
Настоящее руководство с помощью пошаговых упражнений, примеров кода, подсказок по оптимизации и советов из реального мира проведет вас от основ программирования к высокоэффективной работе в Visual Basic .NET 2003. Эта книга содержит все, что требуется для перехода к созданию программного обеспечения, использующего .NET!
Вы освоите элементы управления из Toolbox, новые инструменты для отладки и структурные обработчики ошибок и научитесь создавать неотразимый интерфейс пользователя, изучите методы из библиотек классов .NET Framework 1.1, сможете управлять данными в программах с помощью коллекций, массивов и методик обработки строк, автоматизировать приложения Microsoft Office и управлять процессами, управлять формами Windows, создавать графику и анимационные эффекты. Вы научитесь составлять код для принтеров и диалоговые окна для печати, управлять базами данных Access, создавать собственные приложения баз данных, отображать документы HTML с помощью Microsoft Internet Explorer, использовать веб-формы для создания интерфейсов Интернет. Все файлы упражнений и примеры кода на Visual Basic .NET 2003 имеются на прилагаемом к книге CD-ROM.

Заказать на Озоне

Visual Basic .NET. Библия пользователя Использование Microsoft Visual Basic .NET. Специальное издание

Мы живем в такое время, которое можно назвать чудесным для программистов на Visual Basic. Что же касается Visual Basic .NET, то он заметно отличается от своих предшественников. И даже если вы годами программировали на Visual Basic, то все равно на вас теперь свалилось слишком много нового. Visual Basic .NET, начиная с полностью обновленного пользовательского интерфейса и заканчивая новыми возможностями языка и изменениями в архитектуре - это шаг вперед в эволюции Visual Basic. Книга будет полезна всем, независимо от уровня квалификации. Если вы еще никогда не использовали Visual Basic, то в первых главах найдете пошаговые инструкции по работе в среде Visual Basic. Что же касается пользователей предыдущих версий Visual Basic, то они (опытные или нет) обязательно оценят, как много и подробно говорится в книге о новых возможностях. Эти пользователи оценят и описание отличий VB.NET от предыдущих версий. Ну а как же читатели, для которых программирование в целом является чем-то новым? Они должны обратить внимание.

Заказать на Озоне



Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.visualbnet
Архив рассылки
Отписаться Вебом Почтой
Вспомнить пароль

В избранное