Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как принимать значения от перетаскивания мышкой / 18 сообщений из 18, страница 1 из 1
07.09.2009, 03:39
    #36180938
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Дайте пожалуйста совет: как можно принять значение перемещая ссилку или файл с проводника на окно VB с помощю мыши. В даном примере меня интересую ссилки интернет. Я хочу перетащить ссилку сышкой из адресного окна (URL) на окно VB приложения, чтоб в списке автоматически добавлялась данная ссилка. Тоже самое интересует когда беру в интернете картинку в опере и перетаскиваю на адресную строку или закладку, в результате вижу адрес картинки и картинку, но тут я уверен что это не делает сама опера.

с уважением Андрей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2009, 07:54
    #36340184
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Блин, разве нет решений? Очень нужно. Хочу перетащить файл с проводника на форму VB программы. Как же это делаеться ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2009, 10:15
    #36340379
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Андрей159Блин, разве нет решений? Очень нужно. Хочу перетащить файл с проводника на форму VB программы. Как же это делаеться ?Лет 10 этим уже не занимался, сейчас поэксперементировал, кое что вспомнил.
Приведу пример для Visual Basic 5.0, думаю что и в других версиях прокатит.

Создадим форму, например Form1, у неё в свойствах OLEDropMode ручками вместо None установим Manual.

Далее напишем такой обработчик:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim f
 
 MsgBox "Количество файлов (папок) перетянутых на форму =" & Data.Files.Count
 For Each f In Data.Files
  MsgBox f
 Next f
End Sub

Если запустить эту программу, то появиться пустая форма.
Если потом зайти в проводник, выделить пару папок и файлов и перетянуть на форму, то выскочит окно сообщений, которое выдаст количество перетягиваемых объектов, а затем будут выведен список папок и файлов.
Сразу скажу, что для перетягивания ссылки из браузера на форму этот метод не подойдёт, но думаю, что он решается примерно таким-же способом.
Почитайте про методы Drag and Drop.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2009, 19:57
    #36344519
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Отлично! Спасибо большое. По ходу там мож и текст и файлы принимать от перетаскивания. Круто! Не думал что в такой способ все решится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
26.02.2014, 14:58
    #38573004
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Djon PlayerЕсли запустить эту программу, то появиться пустая форма.
Если потом зайти в проводник, выделить пару папок и файлов и перетянуть на форму, то выскочит окно сообщений, которое выдаст количество перетягиваемых объектов, а затем будут выведен список папок и файлов.


Ничего не понимаю..
Почему у меня не получается это воспроизвести? Файлы не перетягиваются.. При перетягивании иконка мыши как перечеркнутый кружочек. Может дело в ОС? У меня 7.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 15:09
    #38573032
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
у неё в свойствах OLEDropMode ручками вместо None установим Manual.

Сделали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 15:10
    #38573035
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Antonariy у неё в свойствах OLEDropMode ручками вместо None установим Manual.

Сделали?

Естественно )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 15:38
    #38573081
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
А другая ОС есть? Там работает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 15:45
    #38573091
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Antonariy,

Не пробовал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 16:13
    #38573146
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
У меня на семерке этот проект работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 16:20
    #38573156
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
проверил на семерке 64 бит - работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 16:35
    #38573181
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
И у меня на другом компе работает.. ХР..
В чем может быть проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 18:25
    #38573373
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Может быть в этом проблема? При компиляции ругается на эту строчку (см.картинку)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 18:27
    #38573377
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Это правда уже другой проект.
Тот первый, пример, почему то уже заработал. Как то странно..

А, не понятно, что такое Data.
Ясно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 20:41
    #38573505
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
DragDrop и OLEDragDrop это разные события. Первое отвечает за перемещение собственных контролов формы, а второе за перетаскивание из/в окно программы снаружи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 21:26
    #38573543
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
Antonariy,

Всё, разобрался, спасибо!

P.S. Но на моем ПК все равно не работает. Инода работает. Закономерность не ясна.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 21:56
    #38573556
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
donpauls
Тебе бейси криком кричит ошибку и показывает, а ты её ещё здесь выкладываешь с картинкой.
Нет что бы прочитать о чём орёт бесик! Не объявлена переменная!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2014, 21:59
    #38573557
donpauls
donpauls
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как принимать значения от перетаскивания мышкой
alex77755donpauls
Тебе бейси криком кричит ошибку и показывает, а ты её ещё здесь выкладываешь с картинкой.
Нет что бы прочитать о чём орёт бесик! Не объявлена переменная!

С этим уже разобрался, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как принимать значения от перетаскивания мышкой / 18 сообщений из 18, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 154ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156492]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 14ms
total:  154ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]