没有知道 发表于 2009-1-23 10:37:45

AU3怎么做出这种效果

请问高手们AU3怎么做这样的自定义路径的新件文件夹。

[ 本帖最后由 没有知道 于 2009-1-24 19:30 编辑 ]

rchockxm 发表于 2009-1-23 11:22:48


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

$Form1 = GUICreate("Form1", 625, 445, 193, 125)
$Input1 = GUICtrlCreateInput("", 88, 96, 217, 21)
$Button1 = GUICtrlCreateButton("Button1", 312, 88, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                         Case$Button1
                                                   $var = FileSelectFolder("请选择一个文件夹：", "", 7)
                                                   If Not @error Then
                                                         GUICtrlSetData($Input1, $var)
                                                   EndIf
        EndSwitch
WEnd


應該是這樣子吧 :face (31):

958806868 发表于 2009-1-23 11:45:07

使用 FileSelectFolder ( "对话框提示文本", "根目录" [, 标志 [, "起始目录"]] )
根目录 文件树的根目录。使用 "" 表示以桌面为根目录。
标志 1 = 显示“新建文件夹”按钮

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

$Form1 = GUICreate("自定义文件夹路径", 625, 445, 193, 125)
$Input1 = GUICtrlCreateInput("", 88, 96, 217, 21)
$Button1 = GUICtrlCreateButton("浏览", 325, 93, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case$Button1
                   $var = FileSelectFolder("请选择一个文件夹：", "", 7)
                        If Not @error Then
                   GUICtrlSetData($Input1, $var)
                EndIf
        EndSwitch
WEnd



[ 本帖最后由 958806868 于 2009-1-23 11:46 编辑 ]

没有知道 发表于 2009-1-23 14:07:43

非常感谢,偶去试试

YoDe 发表于 2009-1-26 15:21:55

学习了 非常谢谢

jericho0711 发表于 2012-1-13 15:28:09

新手學習，感謝了...
页: [1]
查看完整版本: AU3怎么做出这种效果