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 рекомендуетNokia E65, Mocca/Silver
Элегантный и функциональный слайдер - уникальный для класса бизнес-смартфонов аппарат подойдет как практичным деловым людям, так и бизнес-леди, придающим значение индивидуальности и дизайну.

Успевайте на работе больше благодаря разнообразным ... подробнее..
Цена: 9750 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Полезная информация
5acredphoenix
5acredphoenix
Видимо такая особенность у конструктора класса Cursor.
Юзайте API:

  1. Public Class Form1
  2.  
  3.    Private Declare Auto Function LoadCursorFromFile Lib "User32.dll" (ByVal lpFileName As String) As IntPtr
  4.  
  5.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.       Dim hCursor = LoadCursorFromFile("C:\Windows\Cursors\3dgarro.cur")
  7.       Me.Cursor = New Cursor(hCursor)
  8.    End Sub
  9.  
  10. End Class

http://vbnet.su/forum/single-38.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
Kolyasik
Kolyasik
  1.         Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=L:\Documents and Settings\Dully\Desktop\Базы\База 2002.mdb")
  2.         Dim Command As New OleDbCommand("Select Наименование From Клиенты", Conn)
  3.         Dim dr As OleDbDataReader
  4.         Dim MyTable As New DataTable
  5.         Dim dRow As DataRow
  6.  
  7.         MyTable.Columns.Add("Name")
  8.  
  9.         Try
  10.             Conn.Open()
  11.             dr = Command.ExecuteReader
  12.  
  13.         Catch ex As Exception
  14.         End Try
  15.  
  16.         While dr.Read()
  17.  
  18.             dRow = MyTable.NewRow
  19.             dRow("Name") = dr.Item(0)
  20.             MyTable.Rows.Add(dRow)
  21.  
  22.         End While
  23.  
  24.         DataGridView1.DataSource = MyTable
  25.  


сорь... ДатаБинд не от етого грида ;)
http://vbnet.su/forum/single-75.html
Больше полезной информации
Новые коды (обновлено: 25 мая 2009 / 01:42)
Visual Basic .NET (Framework x.x) HTML-код цвета без ColorTranslator
Автор: Ігор | добавлено: 25 мая 2009 / 01:42 | просмотров: 4594 (+3962)
Visual Basic .NET (Framework x.x) Позднее связывание
Автор: Ігор | добавлено: 10 мая 2009 / 03:26 | просмотров: 5518 (+4997)
Visual Basic .NET (Framework x.x) Пример контрола
Автор: Kolyasik | добавлено: 04 мая 2009 / 12:38 | просмотров: 5561 (+5051)
Visual Basic .NET (Framework x.x) Преобразование цвета в целое 32-битовое число и наоборот
Автор: Ігор | добавлено: 24 января 2009 / 04:39 | просмотров: 5694 (+5080)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация пользовательского CheckBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:50 | просмотров: 6985 (+6020)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация интерфейса WPF
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:45 | просмотров: 6278 (+5102)
Visual Basic .NET 2008 (Framework 3.0/3.5) Сортировка данных в ComboBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:40 | просмотров: 6485 (+5627)
Visual Basic .NET 2008 (Framework 3.0/3.5) ErrorProvider с использованием WPF
Автор: Rahul Singla | добавлено: 26 декабря 2008 / 09:33 | просмотров: 4925 (+4258)
Visual Basic .NET 2008 (Framework 3.0/3.5) ProgressBar как в IE 7
Автор: jebarson | добавлено: 26 декабря 2008 / 09:26 | просмотров: 6799 (+5543)
Visual Basic .NET 2008 (Framework 3.0/3.5) Использование WPF-контролов в Office 2007
Автор: Alessandro Del Sole | добавлено: 26 декабря 2008 / 09:20 | просмотров: 4689 (+3997)
Все коды
У нас есть
Мозолистые пальцы
Всего:1200
С ногами:2400
Красные глаза
Всего:240
Левых:120
Правых:120
Горячие мозги
Всего:120
Левых:3
Правых:27
Еще какие-то:90
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuADO.NET и создание приложений баз данных в среде Microsoft Visual Studio .NET
Никакое приложение – кроме, быть может, школьных да хитромудрых системных, в силу их специфики, – не может обойтись без хранения данных в сторонних хранилищах – будь то гигабайтовые базы на SQL Server, небольшие базы Access или плоские таблицы ... подробнее..
Автор: П. В. Шумаков
Цена: 242 руб. КУПИТЬ
Все книги на 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+
Все пользователи


Реклама: