vb里怎么样能使toolbar活动

Question

一切都好用了就是缺点什么
怎么样能使做好的toolbar活动起来
就是toolbar可以托动的，就象IE没有工具栏没有锁定那样似乎很简单哈哈
请各位帮下忙

Answer 1

Tollbar1.Align = vbAlignNone
Tollbar1.Left = x
Tollbar1.Top = y

Answer 2

Tollbar1.Left = x 
Tollbar1.Top = y不能在该控件中设置'left'属性

Answer 3

谁说拖不动？下面简单代码，双击工具栏至有黑框不要放开，拖拖看。Option Explicit
Dim x1 As Single, y1 As SinglePrivate Sub Form_DragDrop(Source As Control, x As Single, y As Single)
Toolbar1.Left = x - x1
Toolbar1.Top = y - y1
Toolbar1.DragMode = vbManual
End Sub
Private Sub Form_Load()
Toolbar1.Align = vbAlignNone
'下面一句不重要，为了好看
Toolbar1.Width = Toolbar1.Width / 2End SubPrivate Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
x1 = x
y1 = y
Toolbar1.DragMode = vbAutomatic
End Sub

Answer 4

你用用看 Microsoft Windows Comm Controls-3.60 这个控件
这个控件是个容器，可以把 ToolBar 创建在里面，然后设置一下
CoolBar这个控件就可以了