GUI控件拖放例子



#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)
;edit框平铺样式
;$Edit = GUICtrlCreateEdit("", 1, 1, 300, 200, $ES_READONLY+$ES_WANTRETURN,0)

    GUICtrlSetState(-1, $GUI_DropACCEPTED)

    GUISetState(@SW_SHOW)

    While GUIGetMsg() <> -3
        
    WEnd
    
EndFunc


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: GUI拖放 文件拖放
相关日志:
评论: 1 | 引用: 0 | 查看次数: 688
回复回复ferelove[2010-06-02 10:07 PM | del]
问题延伸,拖放的防呆措施,防止多次重复拖放。譬如:拖放到Input中,第1次拖放后获得文件路径和文件名,如果光标在INPUT中并未全选中文本(光标仅在某一位置上)再进行第2次拖放时,内容可就错乱了,从www.autoitx.com/thread-15160-1-2.html案例中找到了单个INPUT时的解决方法。但是,当有多个INPUT都有拖放功能时,譬如:有第2个Input、第3个Input……时,该方法无效了。请教解决方法。谢谢!
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 开启