ZV006加载“插件01”菜单

清风明月名字

ZV006加载“插件01”菜单
Private Sub CommandButton31_Click()
'加栽并且显示菜单插件5.mnc
        '获得相对路径
    Dim strpath As String '当前工程所在的路径
    '获得当前dvb工程的全名
    strpath = ThisDrawing.Application.VBE.activevbproject.FileName
    '取得左边的字符即路径长度为总长减dvb工程的名长度
    strpath = Left$(strpath, Len(strpath) - Len("邓细木的宏DXM.dvb"))
   
'加栽并且显示菜单
        
        ThisDrawing.Application.MenuGroups.Load strpath & "插件01.mnu"
End Sub