一路繁花相送戴维凡:VB 如何动态增加toolbar按钮

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/15 17:34:56
按钮的Caption值从数据库中的字段中提取(假设已连接数据库,字段为rs.fields!toolbar)

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