Question

vb中toolbar上面有多个图标时,怎样才能单个的写代码?

Answer 1

Private Sub tlb_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "k1"
mnuTablePatientAdd_Click
Case "k2"
munTableCheckAdd_Click
Case "k3"
munTableCheckRegist_Click
Case "k4"
munTableCheckSetResult_Click
Case "k5"
mnuTablePatientOther_Click
Case "k6"
munTableCheckOther_Click
Case "k7"
Form_Activate
End Select
End Sub
‘’‘’‘’‘’‘’‘’‘’‘
其中 tlb是toolbar的名字
"k1" "k2"这些是每个toolbar按钮的key

追问

您好

这个怎么回事啊？