#12004/12/29 16:44:46
多谢关照!!!
右击级联菜单原代码如下
==================================
popupHandle:=tMsCreatePopupList(WindowHandle)
result :=tMsAddItem(popupHandle,1,0,"第五章")
result :=tMsAddItem(popupHandle,1,1,"第一节")
result :=tMsAddItem(popupHandle,1,2,"第二节")
result :=tMsAddItem(popupHandle,1,3,"第三节")
result :=tMsAddItem(popupHandle,1,4,"第四节")
result :=tMsAddItem(popupHandle,1,5,"第五节")
result :=tMsAddItem(popupHandle,1,6,"第六节")
result :=tMsAddItem(popupHandle,1,7,"第七节")
result :=tMsAddItem(popupHandle,2,0,"-")
result :=tMsAddItem(popupHandle,3,0,"退出")
result :=tMsAddItem(popupHandle,4,0,"-")
result := tMsDisplayControl(popupHandle,CursorX,CursorY+40,0, 0, 1)
if result="第五章:第一节" then GoTo(IconID@"第五章第一节")
if result="第五章:第二节" then GoTo(IconID@"第五章第二节")
if result="第五章:第三节" then GoTo(IconID@"第五章第三节")
if result="第五章:第四节" then GoTo(IconID@"第五章第四节")
if result="第五章:第五节" then GoTo(IconID@"第五章第五节")
if result="第五章:第六节" then GoTo(IconID@"第五章第六节")
if result="第五章:第七节" then GoTo(IconID@"第五章第七节")
if result="退出" then GoTo(IconID@"主界面")
===================================
多谢多谢!! :p :p
编辑历史:[此帖最近一次被 Rock 编辑过(编辑时间:2004-12-29 18:01:04)]