送分100:在VB6中如何动态的控制工具栏图标的显示与隐藏 在VB6中如何动态的控制工具栏图标的显示与隐藏 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '显示tbOperate.Buttons.Item("add").Visible = True'隐藏tbOperate.Buttons.Item("add").Visible = False 工具栏的显示与隐藏:Option Explicit Dim flagBar As BooleanPrivate Sub Command1_Click() If flagBar Then tbToolBar.Visible = True Else tbToolBar.Visible = False End If flagBar = Not flagBarEnd Sub vb 中的WebServices,基础问题,请不吝赐教 如何在RichTextBox1中插入文本?(类似记事本“编辑”--“时间/日期”命令功能) 请教一个Inet的问题,在线~~~ VB中如何创建程序的快捷方式(指在C:\目录下创建),并且如何在程序中调用执行 如何用VB实现词法分析程序的功能? 如何获取系统硬件配置信息??? 那位高手知道这个问题? set声明的变量需要先用dim声明吗? vb 怎么将字符串作为if的判断条件 如何在listbox中显示数据库的某一字段的内容 送积分了啊 VC代码转VB问题
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