红楼梦吃螃蟹是哪一回:VB 如何动态增加toolbar按钮

来源:百度文库 编辑:高校问答 时间:2024/05/10 19:40:08
按钮的Caption值从数据库中的字段中提取(假设已连接数据库,字段为rs.fields!toolbar)

Dim tb As Button
Set tb = Toolbar1.Buttons.Add(Index, "Key", "Caption", , ImageID)
'如果在工具栏追加则无需输入Index,其实只输入一个Caption就可以了
'tb 为刚刚增加的按钮,通过tb 的属性可以操作这个按钮