- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
AU3任务管理器源代码(国外英语资料)
AU3任务管理器源代码
#包括金 guiconstants。
#包括金 guilistview。
#包括金的文件。
;感谢psaltyds的UDF ..
选择(guioneventmode ,1)
$ =“SBA任务管理器”
#区# # #开始KODA GUI截面# # #形式=
1美元= guicreate($标题,633, 447, 193,125)
listview1美元= guictrlcreatelistview(“名|优先|路径| CPU | MEM |日期|大小”,0, 0, 494,446)
GUICtrlSendMsg(1,0x101e,0, 70)
GUICtrlSendMsg(1,0x101e,1, 70)
GUICtrlSendMsg(1,0x101e,2, 70)
GUICtrlSendMsg(1,0x101e,3, 70)
GUICtrlSendMsg(1,0x101e,4, 70)
GUICtrlSendMsg(1,0x101e,5, 70)
GUICtrlSendMsg(1,0x101e,6, 70)
GUICtrlSendMsg(1,0x101e,7, 70)
_setlist($ listview1)
美元($ listview1)= guictrlcreatecontextmenu菜单
deltask美元= guictrlcreatemenuitem(“任务”菜单,美元)
复制= guictrlcreatemenuitem(copy美元,美元的菜单)
guictrlsetonevent(deltask美元,“_endtask”)
guictrlsetonevent($复制,“_copyitem”)
Button1美元= guictrlcreatebutton(“结束任务”,528, 416, 75,25, 0)
GUICtrlSetOnEvent(1,“_endtask”)
美元guictrlcreatebutton button2 =(“导出列表”,528, 389, 75,25, 0)
GUICtrlSetOnEvent(1,“_exportlist”)
guisetonevent(gui_event_close美元,“_exit”)
guisetstate(@ sw_show)
#铁心端部定点# # # KODA GUI部分# # #结束
而1
_updatelist($ listview1)
美元guigetmsg() NMSG =
走
功能_exit()
出口
endfunc
功能_getlistitems(合段)
美元= GUICtrlGetHandle(合段)名单
全球sreturn美元=”
我= 0美元_guictrllistview_getitemcount($列表)
狮子王= _guictrllistview_getitemtextarray美元(美元美元的清单,我)
如果sreturn美元=”然后
sreturn美元= $ TLK [ 1 ]和“-” $ TLK [ 2 ]和“-” $ TLK [ 3 ]和“-” $ TLK [ 4 ]和“-” $ TLK [ 5 ]和“-” $ TLK [ 6 ]和“-” $狮子王[ 7 ]
其他的
sreturn美元和= @ CRLF $ TLK [ 1 ]和“-” $ TLK [ 2 ]和“-” $ TLK [ 3 ]和“-” $ TLK [ 4 ]和“-” $ TLK [ 5 ]和“-” $ TLK [ 6 ] ““ $ TLK [ 7 ]
endif
下一个
返回的sreturn
endfunc
功能_exportlist()
美元($ listview1)_getlistitems allitems =
文件大小= filesavedialog(保存的任务。, ,文本文件(*. txt)|所有文件(*。*)”)
如果$ = ,然后返回- 1
_filecreate(文件)
如果_filewritetoline($ 1美元的文件,操作,1)= 1
MsgBox(32,$标题,“成功创建任务文件”和“CRLF和path:“ $文件)
其他的
MsgBox(16,$标题,“错误创建任务文件”和“CRLF和path:“ $文件)
endif
endfunc
功能_endtask()
1美元= StringSplit(guictrlread(guictrlread($ listview1)),“| ,1)
processclose(1美元[ 1 ])
endfunc
功能_copyitem()
ClipPut(guictrlread(guictrlread($ listview1)))
endfunc
功能_setlist(合段)
文档评论(0)