本帖最后由 pengmo 于 2011-7-3 15:48 编辑
回复 10# happytc
朋友 Happytc ,我使用Au3时间不长,这是第一次网论坛里粘贴代码,有不对的地方你多包涵。
我只是实现了,载入文件时弹出不同风格的对话框,不知道是不是你想要的。。。#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
InitGUI()
While 1
Sleep(500)
WEnd
; 初始化界面
Func InitGUI()
Global $GUI_Dlg_Main = GUICreate("文件夹",200,100)
Global $GUI_Btn_OldStyle = GUICtrlCreateButton("选择文件(旧样式)",50,20)
Global $GUI_Btn_NewStyle = GUICtrlCreateButton("选择文件(新样式)",50,50)
GUICtrlSetOnEvent ($GUI_Btn_OldStyle, "OnOldStyle")
GUICtrlSetOnEvent ($GUI_Btn_NewStyle, "OnNewStyle")
GUISetOnEvent($GUI_EVENT_CLOSE, "OnClose")
GUISetState(@SW_SHOW)
EndFunc
Func OnClose()
GUIDelete($GUI_Dlg_Main)
Exit
EndFunc
; 旧的样式,是VC6.0样式
Func OnOldStyle()
_WinAPI_GetOpenFileName("选择文件", "文本文件 (*.txt)|Au3 文件 (*.au3)|所有文件 (*.*)", ".", "", _
"", 2, BitOR($OFN_ALLOWMULTISELECT, $OFN_EXPLORER), $OFN_EX_NOPLACESBAR, $GUI_Dlg_Main)
EndFunc
; 新的样式,是XP默认样式。
Func OnNewStyle()
FileOpenDialog("选择文件", "", "文本文件 (*.txt)|Au3 文件 (*.au3)|所有文件 (*.*)", 1 + 4 )
EndFunc
|