Автор Тема: Drag'n'drop файла на форму, и получение полного пути к файлу.  (Прочитано 3569 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн _Lexa98_ [?]

  • EnfRoll
  • Осваивающий
  • **
  • Сообщений: 551
  • Репутация: 25
  • Пол: Мужской
    • dedUct
    • Награды
  • Версия AutoIt: 3.3.14.0
Drag'n'drop файла на форму, и получение полного пути к файлу.
Как это сделать?

Русское сообщество AutoIt


Оффлайн madmasles [?]

  • Глобальный модератор
  • *
  • Сообщений: 7790
  • Репутация: 2317
  • Пол: Мужской
  • Награды За модерирование форума
    • Награды
  • Версия AutoIt: 3.3.x.x

Оффлайн _Lexa98_ [?]

  • EnfRoll
  • Осваивающий
  • **
  • Сообщений: 551

  • Автор темы
  • Репутация: 25
  • Пол: Мужской
    • dedUct
    • Награды
  • Версия AutoIt: 3.3.14.0
Как выделить путь из этого:
Код: AutoIt [Выделить]
#NoTrayIcon

$Gui = GUICreate("Aut2Exe",  300, 94, -1, -1, -1, 0x00000010)

$filemenu = GUICtrlCreateMenu ("Файл")
$Readme = GUICtrlCreateMenuitem ("О программе",$filemenu)
$Quit = GUICtrlCreateMenuitem ("Выход",$filemenu)

$Input1 = GUICtrlCreateLabel('', 0, 0, 300, 94)
GUICtrlSetState(-1, 136)
GUICtrlCreateLabel ("Кинь сюда файл для конвертации", 10,2,280,17)

GUISetState ()

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = -13


               $filename=StringRegExp(@GUI_DRAGFILE,4)  ;<-------Этого


            ; Case $msg = $folder1
                ; $folder01 = FileOpenDialog("Указать файл", @WorkingDir & "", "Все файлы (*.*)", 1 + 4 )
                ; If @error Then ContinueLoop
                ; GUICtrlSetData($Input1, $folder01)
               
            Case $msg = $Readme
                MsgBox(0, 'Readme', 'Compiler')
            Case $msg = -3 Or $msg = $Quit
                Exit
        EndSelect
    WEnd
 

« Последнее редактирование: Декабрь 23, 2011, 12:32:15 от _Lexa98_ »

Русское сообщество AutoIt

Re: Drag'n'drop файла на форму, и получение полного пути к файлу.
« Ответ #2 Отправлен: Декабрь 23, 2011, 12:27:06 »

Оффлайн AZJIO [?]

  • VIP
  • *
  • Сообщений: 2740
  • Репутация: 1143
    • мой сайт
    • Награды
  • Версия AutoIt: 3.3.8.1
_Lexa98_
Код: AutoIt [Выделить]
$Gui = GUICreate("Aut2Exe", 300, 94, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateLabel('', 0, 0, 300, 94)
GUICtrlSetState(-1, 128 + 8)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = -13
            MsgBox(0, 'Сообщение', @GUI_DragFile)
        Case $msg = -3
            Exit
    EndSelect
WEnd


Русское сообщество AutoIt

Re: Drag'n'drop файла на форму, и получение полного пути к файлу.
« Ответ #3 Отправлен: Декабрь 23, 2011, 14:07:30 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
7 Ответов
12439 Просмотров
Последний ответ Февраль 17, 2011, 19:23:02
от Yashied
9 Ответов
5295 Просмотров
Последний ответ Декабрь 19, 2011, 13:01:52
от belotooth
0 Ответов
975 Просмотров
Последний ответ Август 27, 2015, 03:17:03
от CreatoR
3 Ответов
1696 Просмотров
Последний ответ Март 01, 2016, 12:33:31
от pvnn
4 Ответов
1709 Просмотров
Последний ответ Апрель 01, 2016, 06:37:04
от pvnn
2 Ответов
1281 Просмотров
Последний ответ Январь 20, 2017, 23:11:27
от reset86
3 Ответов
1024 Просмотров
Последний ответ Март 20, 2017, 17:44:17
от maxd2007
4 Ответов
940 Просмотров
Последний ответ Август 08, 2017, 06:55:38
от musicstashall
5 Ответов
699 Просмотров
Последний ответ Июнь 18, 2018, 08:03:37
от pvnn
1 Ответов
417 Просмотров
Последний ответ Март 24, 2019, 18:24:46
от CreatoR