怎样可以捕获工具栏中按钮的状态.txt

VB技巧问答10000例 VB技巧问答10000例

假 如 你 用 下 面 的 语 句 加 入 一 个 按 钮 ， 叫 bold： 
     Set btnX = Toolbar1.Buttons.Add(, "bold", , tbrCheck, _ 
     "bold") 
    你 可 以 检 查 Toolbar1.Buttons("bold").Value的 值 ， 如 果 该 值 为 tbrUnpressed， 表 示 按 钮 没 有 被 按 下 ， 如 果 为 tbrPressed表 示 被 按 下 。 检 查 工 作 通 常 是 在 toolbar1_ButtonClick事 件 中 完 成 的 。 
<END>