送分100：在VB6中如何动态的控制工具栏图标的显示与隐藏

在VB6中如何动态的控制工具栏图标的显示与隐藏 --------------------编程问答--------------------

'显示

tbOperate.Buttons.Item("add").Visible = True

'隐藏

tbOperate.Buttons.Item("add").Visible = False

--------------------编程问答-------------------- 工具栏的显示与隐藏:

Option Explicit

    Dim flagBar As Boolean

Private Sub Command1_Click()

    If flagBar Then

        tbToolBar.Visible = True

    Else

        tbToolBar.Visible = False

    End If

    flagBar = Not flagBar

End Sub

--------------------编程问答--------------------

引用 1 楼 leftie 的回复:

VB code'显示tbOperate.Buttons.Item("add").Visible=True'隐藏tbOperate.Buttons.Item("add").Visible=False

Ding............
--------------------编程问答-------------------- 顶。。。。 --------------------编程问答-------------------- `````````````````` --------------------编程问答--------------------

引用 1 楼 leftie 的回复:

VB code'显示tbOperate.Buttons.Item("add").Visible=True'隐藏tbOperate.Buttons.Item("add").Visible=False

顶这个,另一种方法:也可以用空图片替代 --------------------编程问答-------------------- 在网络上你只要虚心、肯问、不吝啬，你就会有大收获。 --------------------编程问答-------------------- 此法只能隐藏一个按钮，而不是全部
显然LZ没说是全部还是一个

引用 1 楼 leftie 的回复:

VB code'显示tbOperate.Buttons.Item("add").Visible=True'隐藏tbOperate.Buttons.Item("add").Visible=False

--------------------编程问答-------------------- 单个图标，谢谢大家。
--------------------编程问答-------------------- 看来问题已经解决了 --------------------编程问答--------------------

补充：VB ,  网络编程