［求助］怎麽讓菜單項響應窗體啊~
>.我做了個窗體...直接在那個那個打VBAIDE進去的那個什麽來著可以運行得
然後我又找了段加菜單的代碼...也可以的
但是找不到菜單響應窗體事件的代碼..
就是比如我加了菜單項叫ENJOY(&E)的..然後怎麽能點這個菜單就跳出我已經編好的一個窗體....我只找的到那個OPEN的...
請高手們幫幫忙...告訴我下改在哪寫些什麽代碼
楼上的是哪里的朋友啊？幸亏我还懂得繁体字！呵呵！菜单只能运行一个宏，所以需要点击菜单运行窗体，就把窗体启动代码写作一个宏里面！
例如
sub form_show()
useform1.show
end sub
用菜单启动上面的宏即可！
实际上在菜单的命令行写上：
vbastmt userform.show
就可以了。
vbastmt?呵呵！原来还有这个东东啊，又学习了！
>.
我菜单的代码是这样的
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
把菜单中的文字换成你的就行了
终于好了....谢谢你哈~
页:
[1]