• 下載source code - 4.58 KB

介紹 這個類自動建立最近的選單項。這個類非常容易使用，非常有用。您只需要建立一個選單按鈕 (使用索引0來定義一個控制陣列)，定義一個檔案來儲存最近的專案，如果需要，可以呼叫AddItem方法。這個類會自動建立所有的選單按鈕， 刪除舊按鈕，用專案名稱設定按鈕標題，用專案資料值設定按鈕標記屬性。你也可以設定 最近項的最大計數，當您新增已經存在的項時，類將刪除舊項並在開始時設定新項(因此它將是列表中的第一個)。 如何使用 這個類非常容易使用。你只需要將這個類新增到你的專案中，定義最近專案的最大數量(預設是5)，建立一個選單按鈕(索引0來定義) 控制陣列)，僅此而已。 函式/潛艇 AddItem(按值傳遞str_name字串,按值傳遞str_data字串)——最近插入新項名稱str_name和價值str_dataData(按值傳遞指數整數)字串,返回最近的專案資料(值)名稱(按值傳遞指數整數)字串,返回最近專案nameLoadFile(按值傳遞str_file字串)布林——從檔案載入最近的專案;如果失敗，返回falseRemoveItem(ByVal索引為整數)—刪除最近的itemSaveData(ByVal str_file為字串)—將最近的項儲存到fileSetMenu(ByRef objMenu為物件)—建立選單項 示例(使用最近項的程式碼) 隱藏,複製Code

'show tag (data of recent item), button caption is
' recent item name
Private Sub buttRecent_Click(Index As Integer)
    MsgBox Me.buttRecent(Index).Tag
End Sub

'add new item to recent
Private Sub buttSave_Click()
    recent.AddItem Me.txtName.Text, Me.txtVal.Text
    recent.setMenu Me.buttRecent
End
 
 Sub

'load item on form load
Private Sub Form_Load()
    recent.MaxCount = 5 'number of recent items to display
    recent.LoadFile App.Path & "
ec.txt"
    'add items to control array buttRecent,
    ' class will do this (remove all items,and add new)
    recent.setMenu Me.buttRecent
End Sub

'
 
save items to file on form terminate
Private Sub Form_Terminate()
    recent.SaveData App.Path & "
ec.txt"
    Set recent = Nothing
End Sub

本文轉載於：http://www.diyabc.com/frontweb/news2512.html