各位朋友，请问下这样的菜单可以用VB实现吗？怎么实现呢？
看图：
我想实现侧栏的菜单，而且是这样树形的。
有什么办法呢？ 我是菜鸟。
[最优解释]
这个和你的有点像
http://www.codefans.net/soft/5686.shtml
我是用 vb 菜单控件作为关键词搜索的。
[其他解释]
可以实现，不过要费一些功夫，这让我想起了一个控件，XPButton
[其他解释]
也可用VB自带的控件组合.
用一个picturebox做容器.
列表的话可以用treeview,或用toolbar,效果会好一点
按钮的话,可以用小picturebox做容器,再加image做图像,lable写文字.有第三方的按钮控件是最好了.
[其他解释]
可以通过纯代码实现，如下
Public je As Integer '记忆菜单上次数值，实现数据传送
Private Sub Command_menu_Click(Index As Integer)
cmove 4, Index
End Sub
Private Sub cmove(s As Integer, i As Integer) '菜单智能移动函数代码
Dim j As Integer
Dim X, Y, z, x1, y1 As Integer
X = s
Y = s
z = s
x1 = s
j = 0
Do While s > 0
If je > i Then
Do While X > i
Do While Y >= X
j = j + 360
Y = Y - 1
Loop
Command_menu(X).top = Picmenu_bg.ScaleHeight - j
X = X - 1
Loop
Else
'-----------------向上代码
For X = 0 To i
For Y = 0 To X
j = j + 360
Next
Command_menu(X).top = j - 360
j = 0
Next
End If
s = s - 1
For y1 = 0 To x1
If y1 = i Then
Picmenu_qg(y1).Visible = True
Picmenu_qg(y1).top = Command_menu(y1).top + Command_menu(y1).Height
If y1 <> z Then
Picmenu_qg(y1).Height = Command_menu(y1 + 1).top - Picmenu_qg(y1).top
Else
Picmenu_qg(y1).Height = Picmenu_bg.ScaleHeight - Command_menu(y1).top - Command_menu(y1).Height
End If
Else
Picmenu_qg(y1).Visible = False
End If
Next
Loop
je = i
End Sub
[其他解释]
这要个控件。
------其他解决方案--------------------
要什么控件呀，哪能下不？
[其他解释]
我这有两个很接近的，功能完全相同，样式有些许区别而已。要的话留下mail.
