关于vlaue属性问题的求教 - VB6论坛

问题点数：0 回复次数：1

关于vlaue属性问题的求教

Private Sub Form_Load()
Text1.Text = "我们不在起义了杂饿么还呢吧时个毫敌后风景画法"
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Toolbar1.Style = tbrFlat
Toolbar1.TextAlignment = tbrTextAlignRight
End If
End Sub
Private Sub Option2_Click()
If Option1.Value = True Then
Toolbar1.Style = tbrStandard
Toolbar1.TextAlignment = tbrTextAlignBottom
  End If
End Sub
Private Sub Option3_Click()
If Option1.Value = True Then
Toolbar1.Style = tbrStandard
Toolbar1.TextAlignment = tbrTextAlignRight
Toolbar1.BorderStyle = ccFixedSingle
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
  If Button.Value = tbrPressed Then
   Text1.FontBold = True
   Else
   Text1.FontBold = False
   End If
Case 2
  If Button.Value = tbrPressed Then
   Text1.FontItalic = True
   Else
   Text1.FontItalic = False
   End If
Case 3
If Button.Value = tbrPressed Then
  Text1.FontUnderline = True
  Else
  Text1.FontUnderline = False
  End If
Case 4
If Button.Value = tbrPressed Then
  Text1.FontStrikethru = True
  Else
   Text1.FontStrikethru = False
   End If
End Select
End Sub
我做的一个toolbar工具栏的练习，但是value属性好象不起作用，不同。button.value，请大侠看看哪里出问题了

搜索更多相关主题的帖子: vlaue　属性　