首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

各位朋友,请教下这样的菜单可以用VB实现吗?如何实现呢

2013-03-26 
各位朋友,请问下这样的菜单可以用VB实现吗?怎么实现呢?看图:我想实现侧栏的菜单,而且是这样树形的。有什么

各位朋友,请问下这样的菜单可以用VB实现吗?怎么实现呢?
看图:
各位朋友,请教下这样的菜单可以用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

热点排行