简单的问题，怎么我在Toolbar里把按钮设置成分隔符没有效果？

Question

样式选择了3_tbrSeparator，但是并没有出现一条竖线一样的分隔符。应该怎么做？

Answer 1

作为分隔符的按扭设置为3_tbrSeparator,图标按扭默认样式

Answer 2

对呀，我也设置按钮是3_tbrSeparator样式，可它就是一点反应都没有。

Answer 3

假如有5个按扭,设置1,3,5为默认,2,4为3_tbrSeparator

Answer 4

请各位帮我看到一下这代码怎么关闭窗口的时候，取消、确定都关闭呢？
代码是这样子的:请那位懂的帮我改一下，多谢！！
  private sub form_unload(cacel as intger)
    dim rs as string
    rs="你想退出系统吗？"
   if msgbox(rs,vbokcacel+vbextamiat,"警告！")=VBYSE THEN
      cacel=1
   else
      cacel=0
   endif
end sub

Answer 5

注:
ils1:imageList
tlb1:toolbar  With ils1
        .ListImages.Clear
        .ImageHeight = 16
        .ImageWidth = 16
        '
        'Add/Edit/Del/Save/Cancel/Find/Sort/First/Previous/Next/Last/Page/Exit
        
        .ListImages.Add 1, "Add", LoadResPicture("Add", vbResIcon)
        .ListImages.Add 2, "Edit", LoadResPicture("Edit", vbResIcon)
        .ListImages.Add 3, "DELETE", LoadResPicture("Delete", vbResIcon)
        .ListImages.Add 4, "Save", LoadResPicture("Save", vbResIcon)
        .ListImages.Add 5, "Cancel", LoadResPicture("UnDo", vbResIcon)
        .ListImages.Add 6, "Find", LoadResPicture("Find", vbResIcon)
        .ListImages.Add 7, "Sort", LoadResPicture("Sort", vbResIcon)
        .ListImages.Add 8, "Refresh", LoadResPicture("Refresh", vbResIcon)
        .ListImages.Add 9, "First", LoadResPicture("First", vbResIcon)
        .ListImages.Add 10, "Previous", LoadResPicture("Previous", vbResIcon)
        .ListImages.Add 11, "Next", LoadResPicture("Next", vbResIcon)
        .ListImages.Add 12, "Last", LoadResPicture("Last", vbResIcon)
        .ListImages.Add 13, "Page", LoadResPicture("Page", vbResIcon)
        .ListImages.Add 14, "Exit", LoadResPicture("Exit", vbResIcon)
               
    End With  With tlb1
        .ImageList = ils1
        .AllowCustomize = False
        .Appearance = cc3D
        .BorderStyle = ccNone
        .TextAlignment = tbrTextAlignBottom
        .Style = tbrStandard
        
        .Buttons.Add 1, , , 3
        .Buttons.Add 2, "Add", "新增", , 1 
        .Buttons.Add 3, "Edit", "编辑", , 2 
        .Buttons.Add 4, "Delete", "删除", , 3 
        .Buttons.Add 5, , , 3
        .Buttons.Add 6, "Save", "保存", , 4 
        .Buttons.Add 7, "Cancel", "取消", , 5 
        .Buttons.Add 8, , , 3
        .Buttons.Add 9, "Find", "筛选", , 6 
        .Buttons.Add 10, "Sort", "排序", 5, 7  
        
            .Buttons(10).ButtonMenus.Add 1, "SortByCode", "按工号"
            .Buttons(10).ButtonMenus.Add 2, "SortByTimeCardID", "按考勤卡号"
            .Buttons(10).ButtonMenus.Add 3, "SortByName", "按姓名"   
        
        .Buttons.Add 11, , , 3
        .Buttons.Add 12, "Refresh", "刷新", , 8  
        .Buttons.Add 13, , , 3
        .Buttons.Add 14, "Exit", "退出", , 14   
    End With

Answer 6

private sub form_QueryUnload(cacel as intger)
    dim rs as string
    rs="你想退出系统吗？"
   if msgbox(rs,vbokcacel+vbextamiat,"警告！")=VBNO THEN cacel=1end sub

Answer 7

不知是我软件问题，还是什么没做足：
操作如图
http://www.mornsoft.cn/a1.jpg一样的没那条像竖线一样的分隔符，痛苦呀。

Answer 8

把Style属性设为tbrFlat即可
呵呵,早把图贴出来,至于这多麻烦吗?

Answer 9

怎么会有那么多代码的?右键==>属性==>按钮选项卡==>样式  选择  4-tbarplaceholder