.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
组合框1.现行选中项 = 0
.子程序 _按钮1_被单击
.局部变量 Ret, 整数型
.如果真 (删全部空 (编辑框1.内容) = “”)
返回 ()
.如果真结束
Ret = API_发送消息 (组合框1.取窗口句柄 (), 344, 0, 编辑框1.内容)
.如果 (Ret = -1)
组合框1.加入项目 (编辑框1.内容, )
.否则
信息框 (“项目已经存在,不能重复添加。”, 16, “错误”)
组合框1.现行选中项 = Ret
.如果结束
.子程序 _按钮2_被单击
.局部变量 Ret, 整数型
.如果真 (删全部空 (编辑框1.内容) = “”)
返回 ()
.如果真结束
Ret = API_发送消息 (列表框1.取窗口句柄 (), 399, 0, 编辑框1.内容)
.如果 (Ret ≠ -1)
列表框1.现行选中项 = Ret
.否则
信息框 (“没有找到。”, 16, “错误”)