toolbar菜单问题?

sym1978 2003-11-22 10:23:22
http://www.8dl.com.cn/sym/popmenu.gif

想做如上图时,VB想在他的下拉菜单中点击写代码,请问应该如何写
Private Sub Tbmenu_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim SqlField As String
Dim i As Integer
Select Case Button.Key
Case "all" '全选Ctrl+A
Case "drop" '他的为占位下拉菜单的主键
End Select

End sub
以上代码是写在点击Toolbar,如何在Case "Drop"内写别个的代码
...全文
64 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
czwwh 2003-11-22
  • 打赏
  • 举报
回复
在ButtonMenuClick事件中捕获, ButtonMenu.Key
zhujiechang 2003-11-22
  • 打赏
  • 举报
回复
toolbar在设计时就可以添加菜单,然后在buttonmenuclick中判断就可以
czwwh 2003-11-22
  • 打赏
  • 举报
回复
根据Button.Key
3661512 2003-11-22
  • 打赏
  • 举报
回复
在ButtonMenuClick事件里写,如:
Private Sub Tbmenu_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "BCOLOR" '
Msgbox "你按下了关键字为BCOLOR的键"
Case "BUNCOLOR" '黑白
Msgbox "你按下了关键字为BUNCOLOR的键"
End Select
End Sub
kimurakenshin 2003-11-22
  • 打赏
  • 举报
回复
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Key

case "1"
事件
case "2"
事件
case "3"
事件
End Select

End Sub

??????????

7,770

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧