toolbar的使用问题

Question

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
       Case 1 '保存
            Case 2 '取消
       Case 3 '打印预览
       Case 4 '打印
       Case 6
End Select
End Sub

Answer 1

更好的方法是用Select Case Button.Key来区别,这样对编程者来说,更直观些,代码维护会更容易,因为索引与功能的对应关系很难记住,而且设计时删除按钮,索引值也会变,这样代码就要改动,用Key就避免了上述问题.
比较下面两段代码,体会一下区别:
1.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
      Case 1 '保存
            Case 2 '取消
      Case 3 '打印预览
      Case 4 '打印
      Case 6
End Select
End Sub '******************************
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
      Case "Save"
      Case "Cancle"
      Case "Preview"
      Case "Print"
      Case "Exit"
End Select
End Sub 

Answer 2

'******************************
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
      Case "Save"
      Case "Cancle"
      Case "Preview"
      Case "Print"
      Case "Exit"
End Select
End Sub   不好意思,Select Case语句后面的部分忘改了.