我在一个窗体之中加入了一个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按的下去之后能让他一直保持按下去的样子而不弹起来呢??
望得到大家的帮助,谢谢大家!!
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按的下去之后能让他一直保持按下去的样子而不弹起来呢??
望得到大家的帮助,谢谢大家!!
试试看
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