3个回答
展开全部
'为 Toolbar 创建对象变量。
Dim btnX As Button
'用 Add 方法将按钮对象添加到 Buttons 集合中。创建
'每个按钮后,设置 Description 和 ToolTipText 属性。
Toolbar1.Buttons.Add , , , tbrSeparator
Set btnX = Toolbar1.Buttons.Add(, , "open", tbrDefault)
btnX.ToolTipText = "Open File"
btnX.Description = btnX.ToolTipText
Dim btnX As Button
'用 Add 方法将按钮对象添加到 Buttons 集合中。创建
'每个按钮后,设置 Description 和 ToolTipText 属性。
Toolbar1.Buttons.Add , , , tbrSeparator
Set btnX = Toolbar1.Buttons.Add(, , "open", tbrDefault)
btnX.ToolTipText = "Open File"
btnX.Description = btnX.ToolTipText
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这是一个人以前的回答,看看会有帮助
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询