我在一个窗体之中加入了一个VerticalMenu.ocx,有三个Menu,第一个Menu有3个Item,有如下的代码,希望能在点击第一个Menu的第一个Item的时候,能装入一个窗体。
Private Sub lzh_MenuItemClick(MenuNumber As Long, MenuItem As Long)
If lzh.MenuCur = 1 Then
If lzh.MenuItemCur = 1 Then
Load Form2
Form2.Show
Form2.a.Text = lzh.MenuItemCur
End If
End If
End Sub
  可是运行后无论点击第一个Menu的任何一个Item都能装入窗体,我明明有判断语句呀????
  另外我还想请教一下,怎样才能作成想FrontPage那样的,在他的垂直菜单的某一个Item按的下去之后能让他一直保持按下去的样子而不弹起来呢??
  望得到大家的帮助,谢谢大家!!

解决方案 »

  1.   

    用MenuNumber 或 MenuItem的值来选择!
    试试看
      

  2.   

    Private Sub VerticalMenu1_MenuItemClick(MenuNumber As Long, MenuItem As Long)
        Select Case MenuNumber
            Case 1 '第1个Menu被点击
               Select Case MenuItem
                    Case 1 '第1个Menu的第1个Item被点击
                        Form1.show
                    Case 2 '第1个Menu的第2个Item被点击
                        
                    Case 3 '第1个Menu的第3个Item被点击
                        
                End Select
            Case 2 '第2个Menu被点击
                Select Case MenuItem
                End Select
            Case 3 '第3个Menu被点击
                Select Case MenuItem
                End Select
        End Select
    End Sub
      

  3.   

    想让垂直菜单的某一个Item按的下去之后能让他一直保持按下去的样子而不弹起来,可以考虑用图标的方法当它被按下后,用一个被按下状态的图标来替换原先的图标,使之看上去像被按下弹不起来了。