使用toolbar控件时,我看到别人的程序点击工具栏上的按钮时,按钮呈现pressed(压下)状态,再点击其他按钮时,那个呈现pressed状态的按钮就会弹起,而刚刚被点击的按钮就会压下。怎么我的程序我点击工具栏上按钮时button按下后就立马弹起,而不是希望中的压下状态。
如果我在程序中的toolbar_buttonclick事件中通过程序将
toolbar.buttons(index).value的值设置为1(tbrPressed)时倒是可以让被点击的按钮压下,可当我点击工具栏的其他按钮时该按钮却不按照希望的那样弹起来,即使在程序中设置toolbar.buttons(index).value为tbrUnpressed也不行。是不是我在toolbar的属性哪里设漏了,我找了半天也没找到原因在哪里
如果我在程序中的toolbar_buttonclick事件中通过程序将
toolbar.buttons(index).value的值设置为1(tbrPressed)时倒是可以让被点击的按钮压下,可当我点击工具栏的其他按钮时该按钮却不按照希望的那样弹起来,即使在程序中设置toolbar.buttons(index).value为tbrUnpressed也不行。是不是我在toolbar的属性哪里设漏了,我找了半天也没找到原因在哪里
解决方案 »
- 高手请帮帮我,关于进程的!
- 使用TCP协议,服务器端一个IP地址,一个端口,这样一个进程最大可以承载多少人(C/S聊天软件,服务器转发模式)?
- create table SeekResult ( 名次 integer,地区 nvarchar(50),分数 single(8,2))
- 换了份工作
- 求救!DOC、EXCEL问题!
- 郁闷,散分
- 请教大家一个问题
- 各位大虾:请问run-time error一般有那些原因引起的?有没有相关的资料……
- 我急需要vb控制注册表的完整的代码,要有详细的说明
- vb6操作图片文件
- 请问如何把一个Byte数组中的内容复制到另外一个数组中呢?
- 请教~~请帮我看看这段代码~~
Private Sub Form_Load()
On Error Resume Next
For i = 1 To 8
Toolbar1.Buttons.Add i, Chr(i + 64), i
Next
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Button.Value = tbrPressed
Toolbar1.Refresh
MsgBox Button.Caption
End Sub
将我的这段代码粘贴到你的工程里测试看看!Option ExplicitPrivate Sub Form_Load()
'增加按钮
Toolbar1.Left = Form1.ScaleLeft
Toolbar1.Width = Form1.ScaleWidth
Toolbar1.Buttons.Clear
Toolbar1.Buttons.Add , , , 0 '增加一个普通按钮
Toolbar1.Buttons.Add , , , 3 '增加一个分割符按钮
Toolbar1.Buttons.Add , , , 2 '增加一个按钮组,注意,要整对出现,Style必须是2
'其实上面这一行可以不要,你可以看看如果不要会有些什么出现
Toolbar1.Buttons.Add , "Option1", , 4 '增加一个长度可变的按纽,Style必须是4
Toolbar1.Buttons.Add , "Option2", , 4 '增加一个长度可变的按纽,Style必须是4
Toolbar1.Buttons.Add , , , 2 '增加一个按钮组,注意,前面出现一个,这里要出现一个,Style必须是2
'如果上面的按钮组没有创建,这行也不要
'将OptionBox放入到ToolBar里面
Set Option1.Container = Toolbar1
Set Option2.Container = Toolbar1
Toolbar1.Buttons("Option1").Width = Option1.Width
Toolbar1.Buttons("Option2").Width = Option2.Width
Option1.Top = Toolbar1.Buttons("Option1").Top
Option1.Left = Toolbar1.Buttons("Option1").Left
Option1.Height = Toolbar1.Buttons("Option1").Height
Option2.Top = Toolbar1.Buttons("Option2").Top
Option2.Left = Toolbar1.Buttons("Option2").Left
Option2.Height = Toolbar1.Buttons("Option2").Height
End Sub代码说复杂也不算复杂,都是一些定位语句,其实可以不要的。
好了,大功告成,给分吧!!!
你好,问题解决,非常感谢,不过我看别人的源码好像没看到类似的代码,也许是我看得不仔细,我回去好好看看。
hereticclub(雪狐):
也很感谢你的热心帮助,可是你的方案对于我的问题并不合适,但我仍然很感谢你