陌上风 发表于 2008-5-29 23:50:53

如何打开文件夹对话框？



如图，选择要打开的文件夹，并返回值赋输入框


[ 本帖最后由 陌上风 于 2008-5-30 00:38 编辑 ]

马甲 发表于 2008-5-30 00:14:29

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 284, 78, 193, 125)
$Input1 = GUICtrlCreateInput("", 32, 24, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 168, 24, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

netegg 发表于 2008-5-30 00:36:12

$listitem = GUICtrlRead($hLIST)
$listtext = GUICtrlRead($listitem, 1)
guisetdate($input, $listtext)]
不太清楚你的树形列表是用基本库作的，还是UDF做的，刚才那个只能在基本库用,这个是UDF里的

[ 本帖最后由 netegg 于 2008-5-30 00:41 编辑 ]

陌上风 发表于 2008-5-30 00:38:09

谢谢！:face (38):

xyhqqaa 发表于 2011-5-5 22:50:37

看看。。。。。。。。。
页: [1]
查看完整版本: 如何打开文件夹对话框？