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

bryki · 发表于 2007-5-24 14:45:00

>.
我做了個窗體...直接在那個那個打VBAIDE進去的那個什麽來著可以運行得
然後我又找了段加菜單的代碼...也可以的
但是找不到菜單響應窗體事件的代碼..
就是比如我加了菜單項叫ENJOY(&E)的..然後怎麽能點這個菜單就跳出我已經編好的一個窗體....我只找的到那個OPEN的...
請高手們幫幫忙...告訴我下改在哪寫些什麽代碼

laoliu09 · 发表于 2007-5-24 15:55:00

楼上的是哪里的朋友啊？幸亏我还懂得繁体字！呵呵！菜单只能运行一个宏，所以需要点击菜单运行窗体，就把窗体启动代码写作一个宏里面！
例如
sub form_show()
useform1.show
end sub
用菜单启动上面的宏即可！

烟雨.江南 · 发表于 2007-5-24 17:45:00

实际上在菜单的命令行写上：
vbastmt userform.show
就可以了。

laoliu09 · 发表于 2007-5-24 18:52:00

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

bryki · 发表于 2007-5-27 01:45:00

>.
我菜单的代码是这样的
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

紫色狂澜 · 发表于 2007-5-27 13:21:00

  ' 定义当前菜单组的变量
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 · 发表于 2007-5-28 09:57:00

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

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

发表回复

精选推荐