在VB工程中如何实现浮动工具栏？比如就像VB6开发环境中的工具箱那样。

Question

用CoolBar+ToolBar。设成Flat风格或者用第三方控件ActiveBar 2.0

Answer 1

用toolbar控件，在其property pages中的general页中将style设置为1－tbrflat即可。

Answer 2

CoolBar + ToolBar 好像不能拉下来！
我也在寻求答案！
我知道好像要调用 API 才行！不是很简单！

Answer 3

用代码能写出来。用Frmae框与picture就可以做出来！调用API，但都是很简单的。

Answer 4

用代码能写出来。用Frmae框与picture就可以做出来！调用API，但都是很简单的。

Answer 5

在www.21code.com的窗体部分源代码中有下载，非常不错的代码     以上回答，仅代表个人观点   大家静静地，心平气和地做技术吧！   我是小山，我喜欢VB，现在学习C#和.net   欢迎您使用： SourceCode Explorer(源代码数据库)
         来自： Http://www.dapha.net
     个人主页： Http://Shawls.Yeah.Net
       E-Mail： [email protected]
           QQ： 9181729

Answer 6

在微软的很多软件（如WORD）的工具栏中，都采用一种浮动按纽，即正常情况下按纽的图标呈灰色，当鼠标移动到某一按纽时，该按纽自动向上凸起且变为彩色，并在按纽的右下方有一标签提示该按纽的功能，鼠标移开后又自动还原，这种按纽用VB实现时，方法如下：
1.先用绘图工具作出按纽图标后存盘（如1.bmp），再用图象处理软件将该图标转换为灰度图或浮雕图后再存盘（如2.bmp）。
2.运行VB，建立一新窗体（如form1）。
3.在窗体上需要建立按纽的位置处建立一图片框（如image1），其大小和图标相同，并将其picture属性设为2.bmp。
4.在image1周围建立由四个长度相同的line控件（如line1~4）组成的方框，方框要比image1控件稍大，否则达不到预计效果，将上面和左边的颜色设成白色，下面和右边的设成黑色，并将四个line控件的visible属性都设成false。
5.在程序中加入以下内容即可：
Private Sub Image1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)
Image1.Picture=LoadPicture("c:\1.bmp")
Line1.Visible=True 
Line2.Visible=True 
Line3.Visible=True 
Line4.Visible=True 
End Sub
Private Sub Form1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)
Image1.Picture=LoadPicture("c:\2.bmp")
Line1.Visible=False 
Line2.Visible=False
Line3.Visible=False
Line3.Visible=False
End Sub 
::这是个好办法 但是一但需要按扭多的话，是很占空间的
可以使用 API 但不好学

Answer 7

在www.createsky.com上找到一个控件，还行。