求教:关于Toolbar的问题
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个值只是判断按了和没有按。意义我觉得差不多,但是怎么才能知道在什么情况下,选择那个是最好的呢?