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
VBNet.Su рекомендуетSamsung R510-FS06
Ноутбук Samsung R510 это идеальный баланс функциональности, стиля и цены, который произведёт впечатление даже на самых требовательных пользователей. Покупатели ноутбуков, к примеру студенты, профессионалы, проводящие много времени в разъездах, — ... подробнее..
Цена: 29390 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Полезная информация
Алексей Немиро
Алексей Немиро
CType(frm, Form1).Preved()
при условии, что frm - это экземпляр Form1
В Form1 есть Public Sub Preved()

См. также:
Form.MdiChildren
http://vbnet.su/forum/single-285.html
Алексей Немиро
Алексей Немиро
  1. Public Class Form1
  2.   '*******************************************************************
  3.   'Реализация Drag'n'Drop из TreeView в DataGridView
  4.   'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
  5.   '*******************************************************************
  6.  
  7.   Dim TreeView1 As New TreeView()
  8.   Dim DataGridView1 As New DataGridView()
  9.  
  10.   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  11.     TreeView1.AllowDrop = True
  12.     TreeView1.Width = 200
  13.     TreeView1.Dock = DockStyle.Left
  14.     TreeView1.Nodes.Add("Ветка 1")
  15.     TreeView1.Nodes.Add("Ветка 2")
  16.     TreeView1.Nodes.Add("Ветка 3")
  17.     AddHandler TreeView1.ItemDrag, AddressOf TreeView1_ItemDrag
  18.     AddHandler TreeView1.DragEnter, AddressOf TreeView1_DragEnter
  19.  
  20.     DataGridView1.AllowDrop = True
  21.     DataGridView1.Dock = DockStyle.Fill
  22.     For i As Integer = 1 To 5
  23.       Dim c As New DataGridViewTextBoxColumn()
  24.       c.HeaderText = "Колонка " & i.ToString()
  25.       c.Width = 100
  26.       DataGridView1.Columns.Add(c)
  27.     Next
  28.     DataGridView1.Rows.Add("Ячейка", "Еще одна", "И еще")
  29.     DataGridView1.Rows.Add("Ячейка", "Еще одна", "И еще")
  30.     DataGridView1.Rows.Add("Ячейка", "Еще одна", "И еще")
  31.     AddHandler DataGridView1.DragDrop, AddressOf DataGridView1_DragDrop
  32.     AddHandler DataGridView1.DragEnter, AddressOf DataGridView1_DragEnter
  33.  
  34.     Me.Controls.Add(DataGridView1)
  35.     Me.Controls.Add(TreeView1)
  36.   End Sub
  37.  
  38.   Private Sub TreeView1_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs)
  39.     Dim sourceNode As TreeNode = CType(e.Item, TreeNode)
  40.     DoDragDrop(e.Item.ToString(), DragDropEffects.Move Or DragDropEffects.Copy)
  41.   End Sub
  42.  
  43.   Private Sub TreeView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
  44.     If (e.Data.GetDataPresent(DataFormats.Text)) Then
  45.       e.Effect = DragDropEffects.Move
  46.     Else
  47.       e.Effect = DragDropEffects.None
  48.     End If
  49.   End Sub
  50.  
  51.   Private Sub DataGridView1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
  52.     If e.Data.GetDataPresent(GetType(System.String)) Then
  53.       Dim baluba As String = e.Data.GetData(GetType(System.String))
  54.       DataGridView1.CurrentCell.Value = baluba
  55.     End If
  56.   End Sub
  57.  
  58.   Private Sub DataGridView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs)
  59.     e.Effect = DragDropEffects.Copy
  60.   End Sub
  61. End Class

http://vbnet.su/forum/single-55.html
Алексей Немиро
Алексей Немиро
  1. 'не забываем указать путь к файлу базы данных MS Access
  2. Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\test.mdb")
  3.   conn.Open() 'открываем соединение
  4.   Dim cmd As New OleDbCommand("SELECT * FROM table1", conn) 'готовим запрос для выполнения
  5.   Dim DA As New OleDbDataAdapter(cmd) ' создаем DataAdapter
  6.   Dim DT As New DataTable("MyDataTable") 'создаем таблицу
  7.   DA.Fill(DT) 'заполняем таблицу данными
  8.   DataGridView1.DataSource = DT 'указываем таблицу в качестве источника данных для DataGridView1
  9. End Using 'закрываем соединиение, уничтожаем объект

http://vbnet.su/forum/single-88.html
Больше полезной информации
Новые коды (обновлено: 25 мая 2009 / 01:42)
Visual Basic .NET (Framework x.x) HTML-код цвета без ColorTranslator
Автор: Ігор | добавлено: 25 мая 2009 / 01:42 | просмотров: 4500 (+3868)
Visual Basic .NET (Framework x.x) Позднее связывание
Автор: Ігор | добавлено: 10 мая 2009 / 03:26 | просмотров: 5420 (+4899)
Visual Basic .NET (Framework x.x) Пример контрола
Автор: Kolyasik | добавлено: 04 мая 2009 / 12:38 | просмотров: 5462 (+4952)
Visual Basic .NET (Framework x.x) Преобразование цвета в целое 32-битовое число и наоборот
Автор: Ігор | добавлено: 24 января 2009 / 04:39 | просмотров: 5584 (+4970)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация пользовательского CheckBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:50 | просмотров: 6834 (+5869)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация интерфейса WPF
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:45 | просмотров: 6104 (+4928)
Visual Basic .NET 2008 (Framework 3.0/3.5) Сортировка данных в ComboBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:40 | просмотров: 6334 (+5476)
Visual Basic .NET 2008 (Framework 3.0/3.5) ErrorProvider с использованием WPF
Автор: Rahul Singla | добавлено: 26 декабря 2008 / 09:33 | просмотров: 4838 (+4171)
Visual Basic .NET 2008 (Framework 3.0/3.5) ProgressBar как в IE 7
Автор: jebarson | добавлено: 26 декабря 2008 / 09:26 | просмотров: 6665 (+5409)
Visual Basic .NET 2008 (Framework 3.0/3.5) Использование WPF-контролов в Office 2007
Автор: Alessandro Del Sole | добавлено: 26 декабря 2008 / 09:20 | просмотров: 4597 (+3905)
Все коды
У нас есть
Мозолистые пальцы
Всего:1200
С ногами:2400
Красные глаза
Всего:240
Левых:120
Правых:120
Горячие мозги
Всего:120
Левых:3
Правых:27
Еще какие-то:90
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuАнализ требований и определение архитектуры решений на основе Microsoft.Net (+ CD-ROM)
Этот учебный курс посвящен созданию архитектуры программных решений в среде Microsoft.NET. Вы познакомитесь с каркасом Microsoft Solutions Framework (MSF), в том числе с моделью процессов MSF и ее этапами: созданием общей картины решения, планированием,... подробнее..
Автор:
Цена: 408 руб. КУПИТЬ
Все книги на 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+
Все пользователи


Реклама: