vb程序，帮我看看哪里错了~

Question

本帖最后由 bcrun 于 2010-12-05 21:45:17 编辑

Answer 1

Private Sub Toolbarl_buttonClick (ByVal Button As MSComctlLib.Button)
 这行 倒数第十行

Answer 2

Private Sub Toolbarl_buttonClick (ByVal Button As MSComctlLib.Button)
  Select Case Button.Index
  Case1: mnuAdd_Click
  Case2: mnuDelete_Click
  Case3: mnuEdit_Click
  Case4: mnuAbout_Click
  Case5: mnuFind_Click
  Case6: mnuEnd_Click
  End Select
End Sub   
================
这里好像画蛇添足了 你再看看toolbar的用法 如果你你没添加错的话
CASE1 就是表示你点击了toolbar中第一个按钮
应该直接在 case1 后写 
frmAddUser.Show
frmAddUSer.cmdAdd.Enabled =True
等内容
例如：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index
Case 1
Frm_mode.ShowFrm_trans.Hidefrm_maintenance.Hide
Frm_print.HideCase 2
Frm_trans.ShowFrm_mode.Hidefrm_maintenance.Hide
Frm_print.Hide
Case 3
frm_maintenance.ShowFrm_mode.Hide
Frm_trans.HideFrm_print.Hide
Case 4
Frm_print.ShowFrm_mode.Hide
Frm_trans.Hide
frm_maintenance.Hide
Case 5
EndEnd SelectEnd Sub

Answer 3

郁闷~ 图片发不上来呀
   我弄的是一个窗口，里面有几个菜单
  菜单 标题 名称
主菜单 文件 mnuFile
子菜单 注销 mnuChangeUser
- mnuFenge1
退出 mnuEnd
主菜单 用户管理 mnuUser
子菜单 添加 mnuAdd
修改 mnuEdit
删除 mnuDelete
- mnuFenge2
查找 mnuFind
主菜单 统计 mnuShow
子菜单 按性别 mnuShowXb
按年龄 mnuShowAge
主菜单 帮助 mnuHelp
子菜单 关于 mnuAbout