ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как принимать значения от перетаскивания мышкой
18 сообщений из 18, страница 1 из 1
Как принимать значения от перетаскивания мышкой
    #36180938
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Дайте пожалуйста совет: как можно принять значение перемещая ссилку или файл с проводника на окно VB с помощю мыши. В даном примере меня интересую ссилки интернет. Я хочу перетащить ссилку сышкой из адресного окна (URL) на окно VB приложения, чтоб в списке автоматически добавлялась данная ссилка. Тоже самое интересует когда беру в интернете картинку в опере и перетаскиваю на адресную строку или закладку, в результате вижу адрес картинки и картинку, но тут я уверен что это не делает сама опера.

с уважением Андрей
...
Рейтинг: 0 / 0
07.09.2009, 03:39
| Ответить | Цитировать | Написать  
Как принимать значения от перетаскивания мышкой
    #36340184
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Блин, разве нет решений? Очень нужно. Хочу перетащить файл с проводника на форму VB программы. Как же это делаеться ?
...
Рейтинг: 0 / 0
01.12.2009, 07:54
| Ответить | Цитировать | Написать  
Как принимать значения от перетаскивания мышкой
    #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
01.12.2009, 10:15
| Ответить | Цитировать | Написать  
Как принимать значения от перетаскивания мышкой
    #36344519
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Отлично! Спасибо большое. По ходу там мож и текст и файлы принимать от перетаскивания. Круто! Не думал что в такой способ все решится.
...
Рейтинг: 0 / 0
02.12.2009, 19:57
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как принимать значения от перетаскивания мышкой
    #38573004
donpauls
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
donpauls
Гость
Djon PlayerЕсли запустить эту программу, то появиться пустая форма.
Если потом зайти в проводник, выделить пару папок и файлов и перетянуть на форму, то выскочит окно сообщений, которое выдаст количество перетягиваемых объектов, а затем будут выведен список папок и файлов.


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

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

Сделали?

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

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

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

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

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

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


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