求教:关于Toolbar的问题

Time_Lover 2004-10-17 03:14:01
toolbar上的粗体、斜体、下划线3个按钮,我可以让它更改字的效果,但是不能还原。代码如下:
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 2
If Button.Style = tbrCheck Then
RichTextBox1.Font.Bold = False
Else
RichTextBox1.Font.Bold = True
End If
Case 3
If Button.Value = tbrUnpressed Then
RichTextBox1.Font.Italic = True
Else
RichTextBox1.Font.Italic = False
End If
Case 4
If Button.Value = tbrUnpressed Then
RichTextBox1.Font.Underline = True
Else
RichTextBox1.Font.Underline = False
End If
End Select
End Sub
我怎么觉得有逻辑错误呢?tbrUnpressed是没有按下按钮 而粗体、斜体和下划线的值都是true和flase,但是代码一定要写成如果没有按下按钮 then RichTextBox1.Font.bold=真,才能有效,那不是很矛盾吗?没有按就更改字的效果,这点我想不通。
然后就是 button.value的2个值和button.style=tbrcheck有什么区别呢?如果用在这里,我感觉不到他们的区别,书上面是说tbrcheck是在第二次按这个按钮之前,它保持按下状态,功能是某种开关类型,而value的2个值只是判断按了和没有按。意义我觉得差不多,但是怎么才能知道在什么情况下,选择那个是最好的呢?
...全文
83 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lhxtx 2004-10-17
  • 打赏
  • 举报
回复
看看初时值
xiaoyuanzhi 2004-10-17
  • 打赏
  • 举报
回复
...
Time_Lover 2004-10-17
  • 打赏
  • 举报
回复
刚刚在基础类提过这个问题,但是有人告诉我 好像有什么问题,都不能回复这个,我现在试试

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧