添加到最近-自动创建最近的项目

• 下载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