На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Как пользоваться (OLE)Drag&Drop
    Как пользоваться Drag&Drop и OLEDragDrop?
    Как, например, узнать путь файла используя OLEDragDrop?
    Приведите примеры plz!
      Посмотри пример когда-то писал.
      Прикреплённый файлПрикреплённый файл2.zip (2.5 Кбайт, скачиваний: 135)
        Вот более точный пример с коммертариями (нужно положить на форму ListBox с именем по умолчанию List1):
        ExpandedWrap disabled
          Option Explicit
          'Written by SCINER: lenar2003 mail ru
           
          Private Sub Form_Load()
            'устанавливаем возможность принятия
            List1.OLEDropMode = vbOLEDropManual
          End Sub
           
          Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
            Dim szFile
            'если перетащили файл(ы) тогда перечисляем их в списке
            If Data.GetFormat(vbCFFiles) Then
              For Each szFile In Data.Files
                Call List1.AddItem(szFile)
              Next
            'если перетащили текст тогда показываем его в диалоге
            ElseIf Data.GetFormat(vbCFText) Then
              Call MsgBox(Data.GetData(vbCFText), vbInformation)
            End If
          End Sub
           
          Private Sub List1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
            'если перетащили файл(ы) или текст, тогда разрешаем перетаскивание
            If Data.GetFormat(vbCFFiles) Or Data.GetFormat(vbCFText) Then
            'иначе отказываемся принимать
            Else
              Effect = vbDropEffectNone
            End If
          End Sub
        1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0202 ]   [ 15 queries used ]   [ Generated: 8.07.25, 18:18 GMT ]