［求助］怎麽讓菜單項響應窗體啊~

bryki

>.<

我做了個窗體...直接在那個那個打VBAIDE進去的那個什麽來著可以運行得

然後我又找了段加菜單的代碼...也可以的

但是找不到菜單響應窗體事件的代碼..

就是比如我加了菜單項叫ENJOY(&E)的..然後怎麽能點這個菜單就跳出我已經編好的一個窗體....我只找的到那個OPEN的...

請高手們幫幫忙...告訴我下改在哪寫些什麽代碼

laoliu09

楼上的是哪里的朋友啊？幸亏我还懂得繁体字！呵呵！菜单只能运行一个宏，所以需要点击菜单运行窗体，就把窗体启动代码写作一个宏里面！

例如

sub form_show()

useform1.show

end sub

用菜单启动上面的宏即可！

烟雨.江南

实际上在菜单的命令行写上：

vbastmt userform.show

就可以了。

laoliu09

vbastmt?呵呵！原来还有这个东东啊，又学习了！

bryki

laoliu09发表于2007-5-24 15:55:00楼上的是哪里的朋友啊？幸亏我还懂得繁体字！呵呵！菜单只能运行一个宏，所以需要点击菜单运行窗体，就把窗体启动代码写作一个宏里面！例如sub form_show()useform1.showend sub用菜单启动上面

bryki

烟雨.江南发表于2007-5-24 17:45:00实际上在菜单的命令行写上： vbastmt userform.show 就可以了。

>.<不行诶...出错..

我菜单的代码是这样的

Public Sub TextInsertMenu()
Dim Cumegr As AcadMenuGroup
Set Cumegr = ThisDrawing.Application.MenuGroups.Item(0)
Dim newmenu As AcadPopupMenu
Set newmenu = Cumegr.Menus.Add("TextInsert(&X)")
newmenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub

紫色狂澜

  ' 定义当前菜单组的变量
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application. _
                                    MenuGroups.Item(0)
   
    ' 创建新菜单
    Dim newMenu As AcadPopupMenu
  '---------------------------------------------------------------------------------------------
    Set newMenu = currMenuGroup.Menus.Add("KKS处理")
   
    ' 声明表示菜单项的变量
    Dim newMenuItem As AcadPopupMenuItem

    ' 并创建菜单项
    Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, _
        "填充KKS码到块属性", "-VBARUN ShowUserForm" & vbCr)   '将菜单与宏对应
       
    ' 在菜单栏上显示菜单
    On Error Resume Next
    currMenuGroup.Menus.InsertMenuInMenuBar "KKS处理", ""
'------------------------------------------------------------------------------------------------

End Sub


Sub ShowUserForm()
UserForm.Show

End Sub

把菜单中的文字换成你的就行了

bryki

终于好了....谢谢你哈~