自己写一个插件也很简单,几句话而已 新建一个“外接程序”工程,给这个事件编写代码 '当 IDE 中的菜单被单击时,这个事件被激活 Private Sub MenuHandler_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean) Dim i As Long For i = VBInstance.Windows.Count To 1 Step -1 If VBInstance.Windows(i).Type = vbext_wt_CodeWindow Or VBInstance.Windows(i).Type = vbext_wt_Designer Then VBInstance.Windows(i).Close End If Next End Sub
新建一个“外接程序”工程,给这个事件编写代码
'当 IDE 中的菜单被单击时,这个事件被激活
Private Sub MenuHandler_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
Dim i As Long
For i = VBInstance.Windows.Count To 1 Step -1
If VBInstance.Windows(i).Type = vbext_wt_CodeWindow Or VBInstance.Windows(i).Type = vbext_wt_Designer Then
VBInstance.Windows(i).Close
End If
Next
End Sub
1.MZTools 你google一下。
2.用CodeHelp,我每天用,方便,稳定!
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=62468&lngWId=1
有源码,您只要编译一下,然后在菜单中选择安装。