Private Sub rtftext_SelChange()
  fmainform.tbtoolbar .Buttons("粗体").Value = IIf(rtftext.SelBold, tbrPressed, tbrUnpressed)
  fmainform.tbtoolbar .Buttons("斜体").Value = IIf(rtftext.SelItalic, tbrPressed, tbrUnpressed)
  fmainform.tbtoolbar .Buttons("下划线").Value = IIf(rtftext.SelUnderline, tbrPressed, tbrUnpressed)
  fmainform.tbtoolbar .Buttons("左对齐").Value = IIf(rtftext.Selselalignment = rtfLeft, tbrPressed, tbrUnpressed)
  fmainform.tbtoolbar .Buttons("居中").Value = IIf(rtftext.Selselalignment = rtfCenter, tbrPressed, tbrUnpressed)
  fmainform.tbtoolbar .Buttons("右对齐").Value = IIf(rtftext.Selselalignment = rtfRight, tbrPressed, tbrUnpressed)
End Sub
说是无效或不合理的引用,指针在。buttons处,请大虾们帮帮忙呀,哪里错了呀

解决方案 »

  1.   

    fmainform.tbtoolbar .Buttons(1).Value
    ()里面应该是索引值
      

  2.   

    fmainform.tbtoolbar .Buttons("粗体").Value
    不会是多了个空格吧?括号里的 ("粗体")必须是对应菜单项的"KEY"值哦
      

  3.   

    fmainform.tbtoolbar .Buttons(1).Value
    ()里面应该是索引值能说具体一点吗?什么的索引值呀
      

  4.   

    你设计toolbar的时候右键属性里每个按钮都有一个"索引"啊
    你用的不是中文版的VB?
    结帖率:0.00% 不是什么好事