问一个非常简单的问题。解决立即给分。

Question

在Toolbar的单击事件里
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
  
        Case "New"
            optAdd.SetFocus
            optAdd.Value = True
            
            Call optAdd_Click
            
        Case "publish"
            If optAdd.Value = True Then
                Call optAdd_Click
            End If
            If optModi.Value = True Then
                Call TxtQuoteNum_Validate(True)
            End If
            
        Case "Save"
            
            Call CmdSave_Click
            
         Case "query"
            
              Call cmdQuoteNum_Click
'        Case "first", "last"
           ' Movedata Button.Index
        Case "first"             '最前
            rstt.MoveFirst
            TxtQuoteNum.Text = Trim(rstt.Fields("quote_num"))
            Call TxtQuoteNum_Validate(False)
end select ------------------------------------------------------------------
我现在有窗体的菜单内想调用Toolbar的"first"，请问如何实现？
Private Sub Mnu_first_Click()
*********************************************
*********************************************
*********************************************    
End Sub

Answer 1

Private Sub Mnu_first_Click()
    Toolbar1_ButtonClick Toolbar1.Buttons("first") 
End Sub