/// <summary> /// Imports standard module to the active VB project. /// If already exists, VBE will generate unique name automatically /// </summary> /// <param name="vbe">a reference to the VBE</param> /// <param name="item">a form to be imported</param> /// <param name="shouldOverride">true if the component should be overridden</param> public virtual void Import(Microsoft.Vbe.Interop.VBE vbe, Component item, bool shouldOverride) { VBProject vbProject = vbe.ActiveVBProject; vbProject.VBComponents.Import(item.FullPath); }
public void OnConnection(object application, ext_ConnectMode ConnectMode, object AddInInst, ref System.Array custom) { vbe = ((VBIDE.VBE) application); // VBEのメニューにコマンドを登録 Office.CommandBar cmdBar = vbe.CommandBars[1]; cmdBarPopup = (Office.CommandBarPopup)cmdBar.Controls.Add(Office.MsoControlType.msoControlPopup, Type.Missing, Type.Missing, Type.Missing, Type.Missing); cmdBarPopup.Caption = "&Comment"; // コメントアウト コマンド Office.CommandBarButton cmdCommentOut; cmdCommentOut = (Office.CommandBarButton)cmdBarPopup.Controls.Add(Office.MsoControlType.msoControlButton, Type.Missing, Type.Missing, Type.Missing, true); cmdCommentOut.Caption = "&Comment Out"; cmdCommentOut.ShortcutText = "'"; cmdCommentOut.Click += new Office._CommandBarButtonEvents_ClickEventHandler(cmdCommentOut_Click); cmdCommentOut.Visible = true; // Globalコメント コマンド Office.CommandBarButton cmdGlobalComment; cmdGlobalComment = (Office.CommandBarButton)cmdBarPopup.Controls.Add(Office.MsoControlType.msoControlButton, Type.Missing, Type.Missing, Type.Missing, true); cmdGlobalComment.Caption = "&Global Comment"; cmdGlobalComment.ShortcutText = "'***"; cmdGlobalComment.Click += new Office._CommandBarButtonEvents_ClickEventHandler(cmdGlobalComment_Click); cmdGlobalComment.Visible = true; // Privateコメント コマンド Office.CommandBarButton cmdPrivateComment; cmdPrivateComment = (Office.CommandBarButton)cmdBarPopup.Controls.Add(Office.MsoControlType.msoControlButton, Type.Missing, Type.Missing, Type.Missing, true); cmdPrivateComment.Caption = "&Private Comment"; cmdPrivateComment.ShortcutText = "'---"; cmdPrivateComment.Click += new Office._CommandBarButtonEvents_ClickEventHandler(cmdPrivateComment_Click); cmdPrivateComment.Visible = true; // 日付コメント コマンド Office.CommandBarButton cmdDateComment; cmdDateComment = (Office.CommandBarButton)cmdBarPopup.Controls.Add(Office.MsoControlType.msoControlButton, Type.Missing, Type.Missing, Type.Missing, true); cmdDateComment.Caption = "&Date Comment"; cmdDateComment.ShortcutText = "' yyyy/mm/dd"; cmdDateComment.Click += new Office._CommandBarButtonEvents_ClickEventHandler(cmdDateComment_Click); cmdDateComment.Visible = true; }