动态加载菜单
现在菜单工具中添加如图所示菜单
写代码动态加载:需要一个 加载一次,不能一次加载n个
Array1 = Split(SQL, ",", , vbTextCompare)
Mnu_NMRadius(0).Caption = Array1(0) '第一个已经存在 无需动态加载
For i = 1 To UBound(Array1)
Load Mnu_NMRadius(i)
Mnu_NMRadius(i).Caption = Array1(i)
Next
动态加载菜单
现在菜单工具中添加如图所示菜单
写代码动态加载:需要一个 加载一次,不能一次加载n个
Array1 = Split(SQL, ",", , vbTextCompare)
Mnu_NMRadius(0).Caption = Array1(0) '第一个已经存在 无需动态加载
For i = 1 To UBound(Array1)
Load Mnu_NMRadius(i)
Mnu_NMRadius(i).Caption = Array1(i)
Next