229989799 发表于 2017-4-5 08:36:01

如何支持多文件拖入呀??

本帖最后由 229989799 于 2017-4-5 14:37 编辑

测试过好像只能单文件拖入。。。。。如何支持多文件拖入呀??比如拖入多个exe后逐个运行?测试过好像只能单文件拖入

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("文件拖放测试", 262, 116, -1, -1,-1,$WS_EX_ACCEPTFILES)
$Combo1 = GUICtrlCreateCombo("", 8, 8, 241, 25)
$dropzone = GUICtrlCreateLabel("", 8,8, 241, 25)
GUICtrlSetBkColor($dropzone, $GUI_BKCOLOR_TRANSPARENT)
      GUICtrlSetState($dropzone, $GUI_DISABLE)
      GUICtrlSetState($dropzone, $GUI_DROPACCEPTED)
$Edit1 = GUICtrlCreateEdit("", 8, 48, 241, 57, BitOR($ES_READONLY,$ES_WANTRETURN), 0)


#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_DROPPED, "GUI_Drop")
GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_Exit")
GUISetState(@SW_SHOW)

While 1
      Sleep(100)
WEnd

Func GUI_Exit()
      Exit
EndFunc

func GUI_Drop()
      $file=@GUI_DragFile&"|"
      GUICtrlSetData($Combo1, $file,@GUI_DragFile)
EndFunc

Alam 发表于 2017-4-5 18:27:10

http://www.autoitx.com/forum.php?mod=viewthread&tid=5829&highlight=%CE%C4%BC%FE%CD%CF%B7%C5
页: [1]
查看完整版本: 如何支持多文件拖入呀??