mnucontrol.bas

一个交通专用的gis-T系统

Attribute VB_Name = "MnuCon"
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Public Sub MnuControl()

Main.mnudir.Enabled = False '数据导入菜单不可用
Main.mnuopenproject.Enabled = True
Main.mnulayers.Enabled = True
Main.mnuthemein.Enabled = True
Main.mnunode.Enabled = True
Main.mnulink.Enabled = True
Main.mnuTools.Enabled = True
Dim i
For i = 6 To 25
    Main.Toolbar1.Buttons(i).Visible = True
Next i

End Sub

Public Sub MnuUnuse()

Main.mnudir.Enabled = True '数据导入菜单不可用
Main.mnuopenproject.Enabled = False
Main.mnulayers.Enabled = False
Main.mnuthemein.Enabled = False
Main.mnunode.Enabled = False
Main.mnulink.Enabled = False
Main.mnuTools.Enabled = False
Dim i
For i = 6 To 25
    Main.Toolbar1.Buttons(i).Visible = False
Next i


End Sub