如何让输入框只接受拖放？

palkiller

func _run($usr,$dom,$pwd)
HotKeySet("{ENTER}", "null")       
GUIDelete($begin)
GuiCreate("运行", 160, 100,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS),$WS_EX_ACCEPTFILES)
$EdtFile = GuiCtrlCreateInput("", 1, 1, 158, 98,$ES_AUTOHSCROLL)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
GuiSetState()
$File=""
While 1
        $msg = GUIGetMsg()
        $sfile=GUICtrlRead($EdtFile)
        $ext=StringRight($sFile,4)
        if  $msg = $GUI_EVENT_CLOSE then
                Exit
        Else
                if $sFile = $File Then
                        ContinueLoop
                Else
                        If $ext<>".exe" And $ext<>".com" And $ext<>".bat" And $ext<>".cmd"  And $ext<>".scr" And $ext<>".lnk" Then
                                MsgBox(0,"出错了:(",$sfile&"不是一个可执行文件！")
                                $File = $sFile
                                ContinueLoop
                        Else
                                if $ext=".lnk" Then
                                        $lnk=FileGetShortcut(FileGetLongName($sFile))
                                        $file=$sfile
                                        $pid=runas($usr,$dom,$pwd,0,$lnk[0],@SystemDir)
                                Else
                                        $File = $sFile
                                        $pid = runas($usr,$dom,$pwd,0,$file,@SystemDir)
                                EndIf
                                ContinueLoop
                        EndIf
                endif
        EndIf
WEnd
EndFunc


今天做的一个脚本的子函数，请教一下高手大大们，如何能实现$EdtFile这个输入框只接受拖放，不接受键盘输入？

[ 本帖最后由 palkiller 于 2008-9-24 08:00 编辑 ]

huangke

不知道怎么做，帮你顶一下吧`

palkiller

汗...昨天想到一个idea...去判断输入的字符数是否为1，如果是1，则自动清空...但还是跟自己想实现的效果有很大的出入...

sanhen

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

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $hGui,$Edit
  
   ;$parent1 = GUICreate("Parent1")
    $hGui= GUICreate("Parent1", 300, 200, -1, -1, -1, $WS_EX_ACCEPTFILES)
    $Edit = GUICtrlCreateEdit("", 1, 1, 200, 100, $ES_AUTOVSCROLL + $WS_VSCROLL+$ES_READONLY) 
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
 
    GUISetState(@SW_SHOW)

    While GUIGetMsg() <> -3
        
    WEnd
    
EndFunc

palkiller

谢谢楼上两位...三恨的脚本解决了俺的问题...之前思路走到误区了，用GuiCtrlCreateInput()函数一路走到了黑...三恨能否帮俺看到热键的那个提问贴？现在就差那个未能解决了，谢了先...

wsfda

也帮助了我，谢谢