Resolve AsTypeNames for UserForm controls.

Author: comintern

Rubberduck.Parsing/Symbols/DeclarationSymbolsListener.cs

@@ -9,6 +9,7 @@
 using System.Runtime.InteropServices;
 using Rubberduck.VBEditor.SafeComWrappers;
 using Rubberduck.VBEditor.SafeComWrappers.Abstract;
+using Rubberduck.VBEditor.SafeComWrappers.Office.Core.Abstract;
 
 namespace Rubberduck.Parsing.Symbols
 {
@@ -168,12 +169,13 @@ private void DeclareControlsAsMembers(IVBComponent form)
 
             foreach (var control in form.Controls)
             {
+                var typeName = control.TypeName();
                 // The as type declaration should be TextBox, CheckBox, etc. depending on the type.
                 var declaration = new Declaration(
                     _qualifiedName.QualifyMemberName(control.Name),
                     _parentDeclaration,
                     _currentScopeDeclaration,
-                    "Control",
+                    string.IsNullOrEmpty(typeName) ? "Control" : typeName,
                     null,
                     true,
                     true,

Rubberduck.VBEEditor/SafeComWrappers/Office.Core/Abstract/IControl.cs

@@ -1,4 +1,6 @@
 using System;
+using System.Runtime.InteropServices;
+using System.Runtime.InteropServices.ComTypes;
 using Rubberduck.VBEditor.SafeComWrappers.Abstract;
 
 namespace Rubberduck.VBEditor.SafeComWrappers.Office.Core.Abstract
@@ -7,4 +9,66 @@ public interface IControl : ISafeComWrapper, IEquatable<IControl>
     {
         string Name { get; set; }
     }
+
+    public static class ControlExtensions
+    {
+        public static string TypeName(this IControl control)
+        {
+            try
+            {
+                var dispatch = control.Target as IDispatch;
+                if (dispatch == null)
+                {
+                    return "Control";
+                }
+                ITypeInfo info;               
+                dispatch.GetTypeInfo(0, 0, out info);
+                string name;
+                string docs;
+                int context;
+                string help;
+                info.GetDocumentation(-1, out name, out docs, out context, out help);
+                return name;
+            }
+            catch
+            {
+                return "Control";
+            }
+        }
+
+        [ComImport]
+        [Guid("00020400-0000-0000-C000-000000000046")]
+        [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
+        interface IDispatch
+        {
+            [PreserveSig]
+            int GetTypeInfoCount(out int Count);
+
+            [PreserveSig]
+            int GetTypeInfo(
+                [MarshalAs(UnmanagedType.U4)] int iTInfo,
+                [MarshalAs(UnmanagedType.U4)] int lcid,
+                out ITypeInfo typeInfo);
+
+            [PreserveSig]
+            int GetIDsOfNames(
+                ref Guid riid,
+                [MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.LPWStr)]
+			string[] rgsNames,
+                int cNames,
+                int lcid,
+                [MarshalAs(UnmanagedType.LPArray)] int[] rgDispId);
+
+            [PreserveSig]
+            int Invoke(
+                int dispIdMember,
+                ref Guid riid,
+                uint lcid,
+                ushort wFlags,
+                ref System.Runtime.InteropServices.ComTypes.DISPPARAMS pDispParams,
+                out object pVarResult,
+                ref System.Runtime.InteropServices.ComTypes.EXCEPINFO pExcepInfo,
+                IntPtr[] pArgErr);
+        }        
+    }
 }