太谢谢了,
基于上面的效果,以下内容在我机子无效果(我的AU3版本是:3.2.13.7.1)
$Button1 = GUICtrlCreateButton("Select PNG Folder", ($PNG_GUI[2]-115)/2, $PNG_GUI[3]-20, 115, 25, 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$var = FileSelectFolder("请选择一个包含PNG图片的文件夹:", "",1, @WorkingDir)
If $var<> "" Then
FileChangeDir($var)
$search = FileFindFirstFile("*.png")
If $search = -1 Then
MsgBox(0, "错误", "文件不存在!")
Else
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$pos = WinGetPos ($PNG_GUI[0],"")
GUIDelete ($PNG_GUI[0])
$PNG_GUI = CreateTransparentGUI("",$file,0,240,0,100,$pos[0],$pos[1])
$Label1 = GUICtrlCreateLabel("File Name : "&$file, 0, $PNG_GUI[3]-20, $PNG_GUI[2], 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Sleep(2000)
WEnd
GUICtrlDelete($Label1)
$Button1 = GUICtrlCreateButton("Select PNG Folder", ($PNG_GUI[2]-115)/2, $PNG_GUI[3]-20, 115, 25, 0)
EndIf
FileClose($search)
EndIf
EndSwitch
WEnd
[ 本帖最后由 xkbin 于 2008-8-29 18:02 编辑 ] |