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
页:
[1]