Au3 如何在GUI中调出 “浏览文件夹”对话框! 万分感谢!
本帖最后由 19377708 于 2010-9-8 13:45 编辑如何才能实现点击 GUI中浏览(&R)按钮就出现“浏览文件夹”对话框 ,并且把浏览的路径写入$Form1 = GUICreate("请选择游戏安装目录", 312, 115, 379, 143)当中,小弟刚刚接触Au3,请高手指点,最好有详细解释,非常感谢!
下面是GUI界面源码:
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("请选择游戏安装目录", 312, 115, 379, 143)
GUISetOnEvent($GUI_EVENT_CLOSE, "tuichu");退出按钮
$Button1 = GUICtrlCreateButton("确定(&O)", 33, 75, 75, 25, 0)
GUICtrlSetOnEvent($Button1, "queding");确定按钮
$Button2 = GUICtrlCreateButton("取消(&C)", 130, 75, 75, 25, 0)
GUICtrlSetOnEvent($Button2,"quxiao");取消按钮
$Input1 = GUICtrlCreateInput("请选择游戏安装目录", 8, 40, 217, 21)
$Button3 = GUICtrlCreateButton("浏览(&R)", 232, 40, 75, 25, 0)
GUICtrlSetOnEvent($Button3, "liulang");浏览按钮,点这个按钮就出现“浏览文件夹”对话框 ,并且把浏览的路径写入$Form1 = GUICreate("请选择游戏安装目录", 312, 115, 379, 143)当中,
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func liulang();浏览按钮,
exit
EndFunc
Func queding();确定按钮
exit
EndFunc
Func quxiao();取消按钮
exit
EndFunc
Func tuichu()
Exit
EndFunc
Func liulang();浏览按钮,
$ll=FileSelectFolder("浏览","")
If FileExists($ll) Then
GUICtrlSetData($Input1,$ll)
EndIf
EndFunc
感谢这位大哥,在你的帮助下,我的这个程序终于写成功了,非常感谢 ! {:face (114):}路过,还是要拿分的不然太不划算拉 我也路过学习一下GUI! 自带的帮助文件里有,自己看下 呵呵楼主在写什么东西 回复 1# 19377708
2 楼 回答正确! 学习了一点技巧 谢谢 学习了{:face (356):} 路过,还是要拿分的不然太不划算拉 对我很有帮助,谢谢兄弟解答 回复 2# shenrenba
谢谢诶 没太看懂,路过学习一下。 学习了!!
页:
[1]
2