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处,请大虾们帮帮忙呀,哪里错了呀
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处,请大虾们帮帮忙呀,哪里错了呀
()里面应该是索引值
不会是多了个空格吧?括号里的 ("粗体")必须是对应菜单项的"KEY"值哦
()里面应该是索引值能说具体一点吗?什么的索引值呀
你用的不是中文版的VB?
结帖率:0.00% 不是什么好事