Question

在vb中我怎么用toolbar1工具栏上的“工具按钮”来替换一组“按钮的控件数组”呢？求助高人解答？

下面是按钮控件数组事件的代码：command2分成了3个分别是command2（0）比较，command2（1）上传，command2（2）下传

现在我用toolbar1建立了飞工具栏，上面分别有：比较，上传，下传的工具按键，现在我想用工具条上的这几个按键来替换command2来触发这个事件，请问应该怎么替换，如能解决问题，好评且加悬赏
上面的代码顶上的两条：Private Sub Command2_Click(Index As Integer)
Dim tempSum As Integer

Answer 1

Private Sub Command2_Click(Index As Integer)
    MsgBox Index
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "key1"            '这是属性页中的【关键字】
            Command2_Click (1)
        Case "key2"            '这是属性页中的【关键字】
            Command2_Click (2)
                        
            
    End Select
End Sub

追问

哦 非常谢谢你的回答哦 我现在是想直接把command2直接替换掉，就是窗体上不用command2了 应该怎么做呀？

追答

那就直接将Command2_Click名称改一下，可以改成：MyFunction等等你想要的名字，然后在窗体将这几个按钮删除就行了

（不改名字直接删除也可以，那样的话Command2_Click就变成了有一个参数的函数其本质和普通函数一样）

★你亦可在Case中加入相应的代码，但是建议使用函数调用。

追问

直接删除了 还可以接着调用吗？怎么用函数调用呢 ？亲帮帮忙吧 现在给你加悬赏

追答