VB6 doesn't crash immediately, but crashes straight after that

adds a *complete* VB6 interop, implements some members, confirms GUIDs
and enum types for ProjectsEvents and ComponentsEvents. Adds an extra
exception handler for _hasPictureProperty. CommandBarButton events
aren't wiring up, bacause Office 97 disn't have a click event on
CommandBarButtons

Author: ThunderFrame

Rubberduck.VBEEditor/SafeComWrappers/Office.Core/CommandBarButton.cs

@@ -1,6 +1,7 @@
 using System;
 using System.Drawing;
 using System.Windows.Forms;
+using System.Runtime.InteropServices;
 using Microsoft.CSharp.RuntimeBinder;
 using Rubberduck.VBEditor.SafeComWrappers.MSForms;
 using Rubberduck.VBEditor.SafeComWrappers.Office.Core.Abstract;
@@ -153,6 +154,11 @@ private bool HasPictureProperty
                     _hasPictureProperty = false;
                 }
 
+                catch (COMException)
+                {
+                    _hasPictureProperty = false;
+                }
+
                 return _hasPictureProperty.Value;
             }
         }

Rubberduck.VBEEditor/SafeComWrappers/VB6/VBComponents.cs

@@ -13,10 +13,8 @@ namespace Rubberduck.VBEditor.SafeComWrappers.VB6
 {
     public class VBComponents : SafeComWrapper<VB.VBComponents>, IVBComponents
     {
-        //TODO - This is currently the VBA Guid, and it need to be updated when VB6 support is added.
-        private static readonly Guid VBComponentsEventsGuid = new Guid("0002E116-0000-0000-C000-000000000046");
+        private static readonly Guid VBComponentsEventsGuid = new Guid("0002E193-0000-0000-C000-000000000046");
 
-        //TODO - These *should* be the same, but this should be verified.
         private enum ComponentEventDispId
         {
             ItemAdded = 1,

Rubberduck.VBEEditor/SafeComWrappers/VB6/VBE.cs

@@ -1,8 +1,12 @@
 using System;
 using System.Linq;
+using System.Runtime.InteropServices;
+using System.Text;
 using Rubberduck.VBEditor.Application;
 using Rubberduck.VBEditor.SafeComWrappers.Abstract;
+using Rubberduck.VBEditor.SafeComWrappers.Office.Core;
 using Rubberduck.VBEditor.SafeComWrappers.Office.Core.Abstract;
+using Rubberduck.VBEditor.WindowsApi;
 using VB = Microsoft.VB6.Interop.VBIDE;
 
 namespace Rubberduck.VBEditor.SafeComWrappers.VB6
@@ -21,59 +25,70 @@ public object HardReference
 
         public string Version
         {
-            get { return IsWrappingNullReference ? string.Empty : Target.get_Version(); }
+            get { return IsWrappingNullReference ? string.Empty : Target.Version; }
         }
 
         public ICodePane ActiveCodePane
         {
-            get { throw new NotImplementedException(); }
-            set { throw new NotImplementedException(); }
+            get { return new CodePane(IsWrappingNullReference ? null : Target.ActiveCodePane); }
+            set { if (!IsWrappingNullReference) Target.ActiveCodePane = (VB.CodePane)value.Target; }
         }
 
         public IVBProject ActiveVBProject
         {
-            get { throw new NotImplementedException(); }
-            set { throw new NotImplementedException(); }
+            get { return new VBProject(IsWrappingNullReference ? null : Target.ActiveVBProject); }
+            set { if (!IsWrappingNullReference) Target.ActiveVBProject = (VB.VBProject)value.Target; }
         }
 
         public IWindow ActiveWindow
         {
-            get { throw new NotImplementedException(); }
+            get { return new Window(IsWrappingNullReference ? null : Target.ActiveWindow); }
         }
 
         public IAddIns AddIns
         {
-            get { throw new NotImplementedException(); }
+            get { return new AddIns(IsWrappingNullReference ? null : Target.Addins); }
         }
 
         public ICodePanes CodePanes
         {
-            get { throw new NotImplementedException(); }
+            get { return new CodePanes(IsWrappingNullReference ? null : Target.CodePanes); }
         }
 
         public ICommandBars CommandBars
         {
-            get { throw new NotImplementedException(); }
+            get { return new CommandBars(IsWrappingNullReference ? null : Target.CommandBars); }
         }
 
         public IWindow MainWindow
         {
-            get { throw new NotImplementedException(); }
+            get
+            {
+                try
+                {
+                    return new Window(IsWrappingNullReference ? null : Target.MainWindow);
+                }
+                catch (InvalidComObjectException)
+                {
+                    return null;
+                }
+            }
         }
 
         public IVBComponent SelectedVBComponent
         {
-            get { throw new NotImplementedException(); }
+            get { return new VBComponent(IsWrappingNullReference ? null : Target.SelectedVBComponent); }
         }
 
         public IVBProjects VBProjects
         {
-            get { return new VBProjects(IsWrappingNullReference ? null : Target.get_VBProjects()); }
+            get { return new VBProjects(IsWrappingNullReference ? null : Target.VBProjects); }
         }
 
         public IWindows Windows
         {
-            get { throw new NotImplementedException(); }
+            get { return new Windows(IsWrappingNullReference ? null : Target.Windows); }
+
         }
 
         //public override void Release(bool final = false)
@@ -91,7 +106,7 @@ public IWindows Windows
 
         public override bool Equals(ISafeComWrapper<VB.VBE> other)
         {
-            return IsEqualIfNull(other) || (other != null && other.Target.get_Version() == Version);
+            return IsEqualIfNull(other) || (other != null && other.Target.Version == Version);
         }
 
         public bool Equals(IVBE other)
@@ -111,7 +126,28 @@ public IHostApplication HostApplication()
 
         public IWindow ActiveMDIChild()
         {
-            throw new NotImplementedException();
+            const string mdiClientClass = "MDIClient";
+            const int maxCaptionLength = 512;
+
+            IntPtr mainWindow = (IntPtr)MainWindow.HWnd;
+
+            IntPtr mdiClient = NativeMethods.FindWindowEx(mainWindow, IntPtr.Zero, mdiClientClass, string.Empty);
+
+            IntPtr mdiChild = NativeMethods.GetTopWindow(mdiClient);
+            StringBuilder mdiChildCaption = new StringBuilder();
+            int captionLength = NativeMethods.GetWindowText(mdiChild, mdiChildCaption, maxCaptionLength);
+
+            if (captionLength > 0)
+            {
+                try
+                {
+                    return Windows.FirstOrDefault(win => win.Caption == mdiChildCaption.ToString());
+                }
+                catch
+                {
+                }
+            }
+            return null;
         }
 
         public bool IsInDesignMode

Rubberduck.VBEEditor/SafeComWrappers/VB6/VBProjects.cs

@@ -11,10 +11,8 @@ namespace Rubberduck.VBEditor.SafeComWrappers.VB6
 {
     public class VBProjects : SafeComWrapper<VB.VBProjects>, IVBProjects
     {
-        //TODO - This is currently the VBA Guid, and it need to be updated when VB6 support is added.
-        private static readonly Guid VBProjectsEventsGuid = new Guid("0002E103-0000-0000-C000-000000000046");
+        private static readonly Guid VBProjectsEventsGuid = new Guid("0002E190-0000-0000-C000-000000000046");
 
-        //TODO - These *should* be the same, but this should be verified.
         private enum ProjectEventDispId
         {
             ItemAdded = 1,
@@ -112,7 +110,6 @@ public override int GetHashCode()
         private bool _eventsAttached;
         private void AttachEvents()
         {
-            throw new NotImplementedException("Correct the Guid (see comment above), verify the DispIds, then remove this throw.");
             if (!_eventsAttached && !IsWrappingNullReference)
             {
                 _projectAdded = OnProjectAdded;