怎樣給易語言瀏覽器加個收藏夾？

——LZ請註意，建立壹個數據庫，名為“收藏夾”，設置好界面，如圖：我只是模仿操作，實際應用時改為LZ所設定的瀏覽器自身按鈕或內容。請樓主自行測試我的源碼，以便理解代碼的含義，我就不再羅嗦了。代碼可行！————

代碼：

.版本 2

.支持庫 iext

.程序集 窗口程序集1

.程序集變量 計次, 整數型

.程序集變量 位置, 整數型

.子程序 _按鈕1_被單擊

.如果真 (編輯框1.內容 ≠ “” 且 編輯框2.內容 ≠ “”)

打開 (取運行目錄 () ＋ “\\收藏夾.edb”, , , , , , )

.計次循環首 (取記錄數 () ＋ 1, 計次)

跳到 (計次)

.如果真 (編輯框2.內容 ＝ 讀 (“網址”))

信息框 (“書簽已存在！”, 48, “虎頭幫 X @_@~”)

跳出循環 ()

.如果真結束

.如果真 (計次 ＞ 取記錄數 ())

加空記錄 ()

寫 (“書簽名稱”, 編輯框1.內容)

寫 (“網址”, 編輯框2.內容)

位置 ＝ 超級列表框1.插入表項 (0, 編輯框1.內容, , , , )

超級列表框1.置標題 (位置, 1, 編輯框2.內容)

連續賦值 (“”, 編輯框1.內容, 編輯框2.內容)

.如果真結束

.計次循環尾 ()

關閉 ()

返回 ()

.如果真結束

信息框 (“請填寫完整信息！”, 48, “虎頭幫 X @_@~”)

.子程序 __啟動窗口_創建完畢

打開 (取運行目錄 () ＋ “\\收藏夾.edb”, , , , , , )

.計次循環首 (取記錄數 (), 計次)

跳到 (計次)

位置 ＝ 超級列表框1.插入表項 (0, 讀 (“書簽名稱”), , , , )

超級列表框1.置標題 (位置, 0, 讀 (“書簽名稱”))

超級列表框1.置標題 (位置, 1, 讀 (“網址”))

.計次循環尾 ()

關閉 ()

上一篇:微信中的“捂臉”表情是什麽意思？

下一篇:房地產開發企業計算土地增值稅為什麽不能抵扣印花稅？