[编程][菜单]Autohotkey快速自定义菜单函数

示例使用方法：在脚本目录建立一文件夹，名为”图标”,将一个名为ie.jpg的图片放入，然后放入按小键盘0就会看到效果

/*
脚本说明:以最少的代码快速创建自己的菜单;
zhanglei1371
*/
CreateMenu(菜单名,菜单项目,图标:="",第几个图标=0,子菜单=0,路径=""){
	图标:=(图标=""?路径:图标)
	fn:=Func("标签函数").bind(路径,菜单名,菜单项目)
	if 子菜单=0
		Menu,%菜单名%,add,%菜单项目%,%fn%
	else
		Menu,%菜单名%,add,%菜单项目%,:%菜单项目% ;%fn%
	SplitPath,图标,,,fileext
	if(fileext~="jpg|jpeg|ico|png|gif|bmp")
	Menu,%菜单名%,Icon,%菜单项目%,%图标%
	else
		Menu,%菜单名%,Icon,%菜单项目%,%图标%,%第几个图标%
}
标签函数(路径,菜单名,菜单项目){
	if 路径=
		gosub,%菜单项目%
	else
		Run, %路径%
}



;~ 使用示例:
numpad0::
	SetWorkingDir,%A_ScriptDir%\图标 ;脚本目录建立个图标文件夹
	CreateMenu("代码片段","代码片段1","shell32.dll",131,0) ;三级菜单
	CreateMenu("插入代码","代码片段","shell32.dll",151,1) ;二级子菜单
	CreateMenu("插入代码","运行记事本","shell32.dll",151,0,"notepad") ;二级子菜单
	CreateMenu("VBE","插入代码","ie.jpg",,1) ;一级菜单



	Menu,VBE,show
return



代码片段1:
	MsgBox 插入代码！
return