快速开发平台--通过按钮选中指定菜单并转到相应的子窗体

时　间:2014-02-19 22:20:05
作　者:CQ   ID：30484  城市：福州
摘　要:子窗体间按菜单项切换通过按钮切换
正　文:

可在快速平台子窗体内设一个按钮，点击跳转转到相应项

Private Sub Command41_Click()

Dim intI As Integer
    For intI = 1 To Forms!sysfrmmain!ocxTreeMenu.Object.Nodes.Count
        If Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI).Text = "报废录入" Then            

        '指定菜单上结点，并转移到相应的子窗体
              If RunMenuCommand(Nz(Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI).Tag), Forms!sysfrmmain.sfrChild, Forms!sysfrmmain.lblNodePath) = -1 Then
               mlngCurrentNodeIndex = Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI).Index
               Set Forms!sysfrmmain.ocxTreeMenu.DropHighlight = Forms!sysfrmmain!ocxTreeMenu.Object.Nodes(intI)
    End If
 Exit For
        End If
    Next
End Sub