求助-菜鸟
本帖最后由 babicy 于 2014-1-2 21:32 编辑#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\work\脚本\终端脚本\me\快速启动\form1.kxf
Dim $Button,$i,$x,$y,$j=1,$qdname,$var,$path1,$path2,$path3,$var1,$m
$path1=@ScriptDir&"\启动工具.ini"
$path2=@ScriptDir&"\启动文件.ini"
$path3=@ScriptDir&"\sys.ini"
$Form1_1 = GUICreate("tfire快速启动", 234, 363, 188, 124)
$Tab1 = GUICtrlCreateTab(8, 48, 217, 297)
$TabSheet1 = GUICtrlCreateTabItem("常用工具")
$Group1 = GUICtrlCreateGroup("", 16, 88, 201, 249)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("常用文件")
$Group2 = GUICtrlCreateGroup("", 16, 88, 201, 249)
;$Button2 = GUICtrlCreateButton("添加", 24, 104, 42, 42)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$i=IniRead($path3,"qdxiang","xmshu","-1")
$x=IniRead($path3,"fristwz","x","-1")
$y=IniRead($path3,"fristwz","y","-1")
While $j<=$i
$qdname=IniRead($path1,"qdname","qd"&$j,"-1")
$Button[$i] = GUICtrlCreateButton($qdname, $x, $y, 42, 42)
$j=$j+1
WEnd
$x=$x+48
IniWrite($path3,"endwz","x",$x)
IniWrite($path3,"endwz","y",$y)
IniWrite($path3,"endwz","j",$j)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$var = FileOpenDialog("选择一个文件",".\", "所有文件(*.*)", 1)
IniWrite($path1,"workpath","path"&$j,$var)
$var1=StringSplit($var,'\',1)
$m=$var1
$i=IniRead($path3,"endwz","j","-1")
$x=IniRead($path3,"endwz","x","-1")
$y=IniRead($path3,"endwz","y","-1")
IniWrite($path1,"workpath","path"&$i,$var)
IniWrite($path1,"qdname","qd"&$i,$var1[$m])
$Button[$i] = GUICtrlCreateButton($var1[$m], $x, $y, 42, 42)
Case $Button
;$var=IniRead($path1,"workpath","path2","-1")
MsgBox(4096,"",$var)
;Run($var)
EndSwitch
WEnd执行后,马上出现msgbox(4096,"",$var)为什么 自己 解决了
页:
[1]