●預覽成品: 您可以輸入多條信息保存起來,也可查閱已存入的某條信息。
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。
●逐步說明:
1)該實例總共有兩個關鍵幀。
每一幀的Actions為:stop。
2)選中第1個關鍵幀,工作區中有兩個文本框,小文本框的屬性為:
表示在此輸入想保存的信息。大文本框的屬性為:
即輸出已保存的信息。用鼠標雙擊提交按鈕,進入按鈕屬性對話框,切換到Actions選項卡,裡面的程序為: On (Release) Set Variable: "namecount" = namecount + 1 Set Variable: "name" & namecount = entered Set Variable: "temp" = Eval("name" & namecount) Set Variable: "names" = names & namecount & ". " & temp & newline Set Variable: "entered" = "" End On 表示當執行該按鈕時,輸入的信息即保存起來,並顯示在大文本框中。打開查找按鈕屬性對話框,切換到Actions選項卡,裡面的程序為:
即跳轉到第2幀。
3)選中第2個關鍵幀,這裡也有兩個文本框和兩個按鈕。
小文本框的屬性為:
表示在此輸入想查找的內容,大文本框的屬性為:
表示在此輸出查找結果。打開提交按鈕屬性對話框,切換到Actions選項卡,裡面的程序為:
On (Release)
Set Variable: "Index" = 1
Set Variable: "found" = false
Loop While (Index <= namecount and not found)
If (Eval ("name" & Index) eq nametofind)
Set Variable: "found" = true Set Variable: "searchresults" = "您要找的數據在第 " & Index & newline & newline & ( Index - 1) & ". " & (Eval("name" & (Index - 1))) & newline & Index & ". " & (Eval("name" & Index)) & newline & ( Index + 1) & ". " & (Eval("name" & (Index + 1)))
Else
Set Variable: "Index" = Index + 1
End If
End Loop
If (found = false)
Set Variable: "searchresults" = "沒有您要找的數據……"
End If
Set Variable: "nametofind" = ""
End On
該段程序表示查尋輸入的信息,如找到了,則在大文本框中顯示,如找不到,則顯示「沒有您要找的數據……」信息。打開後退按鈕屬性對話框,切換到Actions選項卡,裡面的程序為如圖所示:
表示回到第1幀。