如何使MDI窗体里PictureBox能够拖动改变大小？就像VB的工具栏一样。

[laisiwei]

要求：
拖动的时候应以虚线形式拖动，而不直接改变PictureBox的大小。（拖好了再变） 就像VB的工具栏一样。

分不够再加

[Fancly]

呵呵
错了，在mdi窗体里面我是改变鼠标的形状
不是用image

[Fancly]

不是在mdi窗体我才用上面的办法

[laisiwei]

那怎么实现虚线的效果呢？

[Fancly]

刚开始没用虚线的效果，后来就改用activebar了

[eastom]

up

[laisiwei]

up

[egxsun]

看来只能用activebar了？

[laisiwei]

up

[yk84]

当然不是.虚线效果可以用DrawFocusRect

[laisiwei]

up

[laisiwei]

up

[laisiwei]

up

[pigpag]

复杂……如果要求高的话，我看还是控件……

[laisiwei]

up

[laisiwei]

up

[laisiwei]

up

[laisiwei]

up

[fionfrankie]

用spliterBar,免费的！跟vb工具栏一样.

[laisiwei]

up

[hhjjhjhj]

picture1里面放一个picture2

Dim xx

Private Sub MDIForm_Load()
With Picture2
.Appearance = 0
.BorderStyle = 0
.BackColor = &H8000000F
.DragMode = 1
.MousePointer = 9
.Top = -10000
.Height = 100000
.Width = 50
.Left = Picture1.Width - 100
End With
End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.Width = xx
Picture2.Left = Picture1.Width - 100
End Sub

Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
xx = X
End Sub
Private Sub MDIForm_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.Width = xx
Picture2.Left = Picture1.Width - 100
End Sub

Private Sub MDIForm_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
xx = X
End Sub