创建一个简单的通讯录程序
添加时间: 2007-7-4 3:45:50 作者: 第九软件网 阅读次数:582 来源: http://www.d9soft.com
③拖入一个计算图标，命名为“给xb赋值”，在其中输入以下内容：
CallSprite(@"xb", #AddItem,"男")
CallSprite(@"xb", #AddItem,"女")
④拖入一个交互图标，命名为“选择”。拖一个群组图标到该交互图标的右边，命名为“确定”，在弹出的响应类型对话框中选择Button，单击“OK”关闭对话框，双击图标“确定”上方的响应图标，在弹出的按钮响应属性设置对话框中按图14.16所示进行设置。
双击“确定”群组图标打开其流程窗口。拖入一个计算图标，命名为“增加记录”，在其中输入以下内容：
--获得四个控件图标中的值
tem[1]:=GetSpriteProperty(@"xm", #text)
tem[2]:=GetSpriteProperty(@"xb", #text)
tem[3]:=GetSpriteProperty(@"nl", #text)
tem[4]:=GetSpriteProperty(@"dh", #text)
--判断xm图标中的值是否为空,即是否输入了姓名
if tem[1]<>"" then
--如果输入了姓名就在列表最后增加一个元素
geshu:=geshu+1
wen[geshu]:=[#name:tem[1],#sex:tem[2],#age:tem[3],#tel:tem[4]]
j:=geshu
else
--否则就显示出错信息,并根据用户的选择给出不同的反应
xuan:=MessageBox(WindowHandle, "没输入姓名，不能添加记录！", "出错", 21)
-- 4=Retry, 2=Cancel
if xuan=4 then GoTo(IconID@"xm")
end if
拖一个擦除图标到“增加记录”的下方，该图标要擦除的是四个控件图标和按钮“确定”以及将要增加的按钮“取消”。
再拖入一个计算图标，命名为“返回”，在其中输入以下内容：
GoTo(IconID@"显示记录")
关闭“确定”的流程窗口回到“添加”图标的流程窗口，选中图标“确定”，再按Ctrl+C键，然后在“确定”图标的右边单击鼠标，将粘贴指针移到此处，按Ctrl+V键。将新粘贴过来的图标改名为“取消”。
双击图标“取消”打开其流程窗口，删除计算图标“增加记录”。
⑸关闭群组图标“添加”的流程窗口回到主流程窗口，.拖一个计算图标到“添加”图标的右边，命名为“退出”，在其中输入以下内容：
--创建一个Fileio Xtra的子对象
zil:=NewObject("fileio")
--以只写方式打开文本文件
CallObject(zil, "openFile", FileLocation^"ziliao.txt",2)
--删除该文件
CallObject(zil, "delete")
--创建一个同名文件
CallObject(zil, "createFile", FileLocation^"ziliao.txt")
--关闭文本文件
CallObject(zil, "closeFile")
--依次把列表中的值添加到文本文件中
repeat with i:=1 to geshu
str:=wen[i][#name]^" "^wen[i][#sex]^" "^wen[i][#age]^" "^wen[i][#tel]^"\r"
AppendExtFile(FileLocation^"ziliao.txt",str)
end repeat
AppendExtFile(FileLocation^"ziliao.txt","-1")
Quit()
5．整个程序的流程如图14.17所示。
图 14.17 程序流程图
创建一个简单的通讯录程序(3) 第 [1] [2] [3] [4] 下一页
上一篇文章: Authorware三个应用实例 下一篇文章: Authorware中控制动画的播放