怎样在ＶＢ中添加工具条

1、在工具栏中添加复选（切换）按钮

工具栏中的复选按钮是指当按钮被按下以后就保持被按下的状态，只有下次再按才会d起来，这就是工具栏的复选切换状态。要实现这样的效果，必须将它的STYLE属性设为tbrCheck，这个设置可以在工具栏的属性页中完成。方法是右击工具栏并选择Properties选项以打开属性页，单击属性页的Buttons选项卡，选择要用的按钮，将它的形式STYLE设为tbrCheck即可。

2、在工具栏中添加组合框和其他控件

通过将按钮的STYLE属性设为tbrPlaceholder在工具栏中设置空间，可以将组合框和其他控件添加到工具栏中，我们以组合框为例来看看具体步骤：

1）右击工具栏并选择Properties选项打开属性页，单击属性页的Buttons选项卡；

2）在要添加组合框的地方添加一个新的按钮；

3）把新按钮的STYLE属性设为tbrPlaceholder，这样按钮不会显现出来，而只是一片空白，用来设置组合框；

4）在width框中输入一个值，这是预留给组合框的空间的宽度；

5）点击确定后，在工具栏的空白处新画一个组合框，注意一定要新画；

6）其他 *** 作与原来相同。

3、怎样做出象IE一样的平面工具栏

IE、WORD等流行软件的工具栏在通常状态下是平面的，只有当鼠标移过时才会突起，这样的效果通过VB工具栏本身是无法实现的，虽然可以用贴图的方法来模拟这种效果但却十分麻烦，简便的方法是通过调用WIN32 API函数来实现。其思路是用SendMessage函数向工具栏发送设置显示样式TB_SETSTYLE的消息来改变工具栏的显示效果。

两个单选按钮将自动成为一个组，只有一个可以是选择状态（这个和“复选”按钮是不同的），但VB没有对这个“组”的管理，所以你需要遍历这两个单选按钮（多个选项也是同样处理），假设两个单选按钮名字为：opt1,opt2

If opt1.Value = vbChecked then

Text1.Text = "你选择了第一个选项"

Elseif opt2.Value = vbChecked Then '这里因为只有两个选项，可以直接用：Else

Text1.Text = "你选择了第二个选项"

End If

---