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

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

2024-12-29 23:39:39

推荐回答（1个）

回答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