找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 文件拖曳问题（已解决）
返回列表 发新帖
查看: 12171|回复: 13

[GUI管理] 文件拖曳问题（已解决）

 火.. [复制链接]
wujianfu
发表于 2010-5-2 21:57:46 | 显示全部楼层 |阅读模式
本帖最后由 wujianfu 于 2010-5-3 13:04 编辑

我编了个计算MD5值的工具，但在使用过程出现了一些问题，如下：
将文件拖曳到input1控件后，会在input1控件中显示被拖曳文件的路径。但是第二次拖曳时的返回值是接在第一次拖曳的返回值后面，即第一次拖曳的返回值并没有被清除，而是两次的结果混在一起了。
我的问题是：如何在在拖曳后清除原来input1中的路径，即只显示刚刚被拖曳文件的路径。这个问题困扰我很久了，问高手指点一下。

以下是截图：

第一次拖曳


第二次拖曳

附上源码：
  1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
  2. #AutoIt3Wrapper_icon=G:\素材大全\图标资源\系统图标\51(1).ico
  3. #AutoIt3Wrapper_Res_Comment=计算文件的MD5值
  4. #AutoIt3Wrapper_Res_Description=计算文件的MD5值
  5. #AutoIt3Wrapper_Res_Fileversion=1.0
  6. #AutoIt3Wrapper_Res_LegalCopyright=阿福所有 侵权不究
  7. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
  8. #include <ButtonConstants.au3>
  9. #include <EditConstants.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #include <ACN_HASH.au3>
  13. Global $Hash,$FileHandle,$Filename,$Buffersize=0x20000
  14. #Region ### START Koda GUI section ### Form=
  15. $Form1 = GUICreate("计算文件的MD5值", 364, 71, -1, -1,-1,$WS_EX_ACCEPTFILES)
  16. GUISetIcon("G:\素材大全\图标资源\系统图标\51(1).ico", -1)
  17. $Input1 = GUICtrlCreateInput("浏览或拖曳一个文件到这里", 8, 8, 297, 21)
  18. GUICtrlSetState($Input1,$GUI_DROPACCEPTED)
  19. $Button1 = GUICtrlCreateButton("浏览", 312, 4, 43, 25)
  20. $Input2 = GUICtrlCreateInput("", 8, 40, 297, 21)
  21. $Button2 = GUICtrlCreateButton("复制", 312, 36, 43, 25)
  22. GUISetState(@SW_SHOW)
  23. #EndRegion ### END Koda GUI section ###

  25. While 1
  26.         $nMsg = GUIGetMsg()
  27.         Switch $nMsg
  28.                 Case $GUI_EVENT_CLOSE
  29.                         Exit
  30.                 Case $Button2
  31.                         ClipPut(GUICtrlRead($Input2))
  32.                         MsgBox(0,"结果","已将MD5值复制到剪贴板!",2)
  33.                 Case $Button1
  34.                         $Filename=FileOpenDialog("选择文件","","所有文件(*.*)")
  35.                         If @error<>1 Then
  36.                                 GUICtrlSetData($Input1,$Filename)
  37.                 MD5()
  38.                         EndIf        
  39.         Case $GUI_EVENT_DROPPED
  40.                         $Filename=GUICtrlRead($Input1)
  41.                         If StringInStr($Filename,"|")<>0 Then
  42.                                 GUICtrlSetData($Input1,"浏览或拖曳一个文件到这里")
  43.                                 MsgBox(16,"错误","一次只能拖曳一个文件！",5)
  44.                         Else
  45.                 MD5()
  46.             EndIf                                
  47.         EndSwitch
  48. WEnd
  49. Func MD5()
  50.         GUICtrlSetData($Input2,"计算中,请稍等...")
  51.     $FileHandle=FileOpen($Filename,16)
  52.     $MD5CTX=_MD5Init()
  53.     For $i=1 To Ceiling(FileGetSize($Filename)/$Buffersize)
  54.                 _MD5Input($MD5CTX,FileRead($FileHandle,$Buffersize))
  55.     Next
  56.         $Hash=_MD5Result($MD5CTX)
  57.         FileClose($FileHandle)
  58.     $Hash=StringTrimLeft($Hash,2)
  59.     $Hash=StringUpper($Hash)
  60.         GUICtrlSetData($Input2,$Hash)
  61. EndFunc        
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

评分

参与人数 1金钱 +10 收起 理由
afan + 10 感谢主动将修改帖子分类为[已解决]，请继续 ...

查看全部评分

回复

举报

大绯狼
发表于 2010-5-2 22:18:42 | 显示全部楼层
我这里测试正常= =
回复

举报

wujianfu
 楼主| 发表于 2010-5-2 22:38:07 | 显示全部楼层
回复 2# 大绯狼
你先拖曳一次，然后将光标定位到上次结果的某个位置中，再拖曳一次试试。还有如果上次结果是处于选中状态的话，再拖曳是没有问题的。
回复

举报

afan
发表于 2010-5-3 10:52:24 | 显示全部楼层
简单改几行
  1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=G:\素材大全\图标资源\系统图标\51(1).ico
  3. #AutoIt3Wrapper_Res_Comment=计算文件的MD5值
  4. #AutoIt3Wrapper_Res_Description=计算文件的MD5值
  5. #AutoIt3Wrapper_Res_Fileversion=1.0
  6. #AutoIt3Wrapper_Res_LegalCopyright=阿福所有 侵权不究
  7. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
  8. #include <ButtonConstants.au3>
  9. #include <EditConstants.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #include <ACN_HASH.au3>
  13. Global $Hash, $FileHandle, $Filename, $Buffersize = 0x20000
  14. #Region ### START Koda GUI section ### Form=
  15. $Form1 = GUICreate("计算文件的MD5值", 364, 71, -1, -1, -1, $WS_EX_ACCEPTFILES)
  16. GUISetIcon("G:\素材大全\图标资源\系统图标\51(1).ico", -1)

  18. $Button1 = GUICtrlCreateButton("浏览", 312, 4, 43, 25)
  19. $Input2 = GUICtrlCreateInput("", 8, 40, 297, 21)
  20. $Button2 = GUICtrlCreateButton("复制", 312, 36, 43, 25)
  21. $Input1 = GUICtrlCreateInput("浏览或拖曳一个文件到这里", 8, 8, 297, 21)
  22. GUICtrlSetState(-1, 8)
  23. ;GUICtrlSetState(-1, 128) ;禁用
  24. $Filename = GUICtrlRead($Input1)
  25. GUISetState(@SW_SHOW)
  26. #EndRegion ### END Koda GUI section ###

  28. While 1
  29.         $nMsg = GUIGetMsg()
  30.         Switch $nMsg
  31.                 Case $GUI_EVENT_CLOSE
  32.                         Exit
  33.                 Case $Button2
  34.                         ClipPut(GUICtrlRead($Input2))
  35.                         MsgBox(0, "结果", "已将MD5值复制到剪贴板!", 2)
  36.                 Case $Button1
  37.                         $Filename = FileOpenDialog("选择文件", "", "所有文件(*.*)")
  38.                         If @error <> 1 Then
  39.                                 GUICtrlSetData($Input1, $Filename)
  40.                                 MD5()
  41.                         EndIf
  42.                 Case $GUI_EVENT_DROPPED
  43.                         $_Filename = ControlCommand($Form1, '', $Input1, 'GetSelected', '')
  44.                         If StringInStr($_Filename, "|") <> 0 Then
  45.                                 GUICtrlSetData($Input1, "浏览或拖曳一个文件到这里")
  46.                                 MsgBox(16, "错误", "一次只能拖曳一个文件！", 5)
  47.                                 GUICtrlSetData($Input1, $Filename)
  48.                         Else
  49.                                 GUICtrlSetData($Input1, $_Filename)
  50.                                 MD5()
  51.                                 $Filename = $_Filename
  52.                         EndIf
  53.         EndSwitch
  54. WEnd
  55. Func MD5()
  56.         GUICtrlSetData($Input2, "计算中,请稍等...")
  57.         $FileHandle = FileOpen($_Filename, 16)
  58.         $MD5CTX = _MD5Init()
  59.         For $i = 1 To Ceiling(FileGetSize($_Filename) / $Buffersize)
  60.                 _MD5Input($MD5CTX, FileRead($FileHandle, $Buffersize))
  61.         Next
  62.         $Hash = _MD5Result($MD5CTX)
  63.         FileClose($FileHandle)
  64.         $Hash = StringTrimLeft($Hash, 2)
  65.         $Hash = StringUpper($Hash)
  66.         GUICtrlSetData($Input2, $Hash)
  67. EndFunc   ;==>MD5
复制代码
回复

举报

wujianfu
 楼主| 发表于 2010-5-3 13:03:17 | 显示全部楼层
回复 4# afan
之前有想过通过获取被选中字符串来达到重写inpu的目的，但苦于不知到获取选中字符串的函数，现在终于知道了，非常感谢楼主的帮助！
回复

举报

woeiwoei
发表于 2010-5-14 11:48:49 | 显示全部楼层
强烈学习~~~
回复

举报

kswdiy
发表于 2010-5-24 15:29:49 | 显示全部楼层
恩  学习中。。。。。
回复

举报

dajun
发表于 2010-5-25 06:06:51 | 显示全部楼层
备以后查阅
回复

举报

ferelove
发表于 2010-6-8 08:46:28 | 显示全部楼层
谢谢4楼的方法挺好用。
当有多个Input时，我用该方法总是起不到效果。
请教当有多个拖曳的Input都要判断时，如何实现？谢谢！
回复

举报

haorui658
发表于 2011-7-19 14:55:22 | 显示全部楼层
解决了我一个难题, 虽说和问题不太相关
回复

举报

fhp2009
发表于 2011-8-24 20:42:14 | 显示全部楼层
把每次拖曳过来的文件用个数组记录下来，拖曳新的文件时挨个判断一下全路径即可，因为在拖曳过程中文件名和文件路径不会改变，且同一个路径下不会用同名文件。
回复

举报

user11
发表于 2012-4-21 00:48:54 | 显示全部楼层
MARK  学习一下，这个备用
回复

举报

hnfeng
发表于 2014-6-4 15:41:30 | 显示全部楼层
谢谢4楼的代码
收藏一下备用
回复

举报

zxxputian2
发表于 2018-5-27 20:27:11 | 显示全部楼层
谢谢楼主提供
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2026-9-20 23:15 , Processed in 0.061355 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表