Question

vb6.0 工具栏按钮涉及权限的问题，工具栏与菜单相连，菜单的权限没有问题，可是对工具栏没有一点用

If Left(gbytZyQX, 1) = 1 Then Exit Sub
mnuXtGzrydj.Enabled = False
mnuXtWplbdj.Enabled = False
mnuXtSjwh.Enabled = False
mnuWpdjlt.Enabled = CBool(Mid(gbytZyQX, 2, 1) + Mid(gbytZyQX, 3, 1))
mnuWlcx.Enabled = CBool(Mid(gbytZyQX, 4, 1))
mnuWlhz.Enabled = CBool(Mid(gbytZyQX, 5, 1))

Private Sub tbToolBar_ButtonClick(ByVal button As MSComctlLib.button)

Select Case button.Index
Case 1
mnuXtGzrydj_Click
Case 2
mnuXtWplbdj_Click
Case 3
mnuXtSjwh_Click
Case 4
mnuWpdjlt_Click
Case 5
mnuWlcx_Click
Case 6
mnuWlhz_Click
End Select
End Sub

Answer 1

Toolbar1.Buttons(i).Enabled =False
设置 第i个按钮不可用，i为1-N