VBNet - Форум - А можно?

Вопрос: А можно? Добавлено: 22.05.10 23:41

Автор вопроса: UnDeAdZak

Подскажите пожалуйста, у меня вопрос: вот у меня есть форма, мне надо перетянуть на неё иконку файла ,чтобы после отпускания её я получил адрес файла. Насколько я понимаю, тут надо использовать Drag&Drop, но я не совсем понимаю, как. подскажите пожалуйста, коротеньким примером.
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 23.05.10 00:00
	форма, мне надо перетянуть на неё иконку файла это что значит? Ответить

Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #2	Добавлено: 23.05.10 00:30
	Это значит человек хочет перетащить на свою форму файл например из эксплорэра Ответить

Номер ответа: 3 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #3	Добавлено: 23.05.10 11:49
	SmithТипо того. Но я не совсем понимаю, как юзать Drag&rop.Подскажите пожалста! Ответить

Номер ответа: 4 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #4	Добавлено: 23.05.10 13:25
	Посмотри примеры в MSDN, или поищи готовый пример на codeproject.com, я думаю найдешь быстро Ответить

Номер ответа: 5 Автор ответа: BOLT Вопросов: 1 Ответов: 2	Профиль \| \| #5	Добавлено: 23.05.10 15:19
	Option Explicit Private Sub Form_Load() Me.OLEDropMode = 1 End Sub Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Integer For i = 1 To Data.Files.Count 'Начинаем цикл получения имен бросаемых файлов Me.Print Data.Files.Item(i) 'Добавляем имя файла в листбокс Next i End Sub Ответить

Номер ответа: 6 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #6	Добавлено: 23.05.10 16:49
	Форум - .NET Ответить

Номер ответа: 7 Автор ответа: Сurious Вопросов: 7 Ответов: 18	Профиль \| \| #7	Добавлено: 10.06.10 21:05
	Я обычно делаю так: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AllowDrop = True End Sub Private Sub Form_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop Dim file() As String = e.Data.GetData(DataFormats.FileDrop, True) Dim files() As String = e.Data.GetData(DataFormats.FileDrop, True) If InStr(files(0), "Здесь пишем формат файла, в данном случае .ico") Then ListBox1.Items.Add(file(0)) 'Добавляем наш файл в List Box End If End Sub Private Sub Form_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim files() As String = e.Data.GetData(DataFormats.FileDrop, True) e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.None End If End Sub Ответить

Страница: 1 |