回答編集履歴

修正

2020/04/29 12:32

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

@@ -4,220 +4,4 @@
-```C#
-using System;
-using System.Runtime.InteropServices;
-using System.Text;
-namespace ExcelVbaExt
-{
-    [ComVisible(true)]
-    [ClassInterface(ClassInterfaceType.AutoDual)]
-    public class InnerClass
-    {
-        public int WHnd;
-        public string APPName;
-        public int Left;
-        public int Top;
-        public int Right;
-        public int Bottom;
-    }
-    [ComVisible(true)]
-    [ClassInterface(ClassInterfaceType.AutoDual)]
-    public class ClassApp
-    {
-        public InnerClass[] Interface;
-    }
-    [ComVisible(true)]
-    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
-    public interface IWindowWhnd
-    {
-        ClassApp WindowTitleList();
-    }
-    [ClassInterface(ClassInterfaceType.None)]
-    public class WindowWhnd : IWindowWhnd
-    {
-        public static ClassApp _hWndList;
-        public static int count;
-        [DllImport("user32.dll")]
-        private static extern bool GetWindowRect(IntPtr hwnd, out RECT lpRect);
-        [StructLayout(LayoutKind.Sequential)]
-        private struct RECT
-        {
-            public int left;
-            public int top;
-            public int right;
-            public int bottom;
-        }
-        [DllImport("user32.dll")]
-        [return: MarshalAs(UnmanagedType.Bool)]
-        private extern static bool EnumWindows(EnumWindowsDelegate lpEnumFunc, IntPtr lparam);
-        [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
-        private static extern int GetWindowText(IntPtr hWnd, StringBuilder lpString, int nMaxCount);
-        [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
-        private static extern int GetWindowTextLength(IntPtr hWnd);
-        [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
-        private static extern int GetClassName(IntPtr hWnd, StringBuilder lpClassName, int nMaxCount);
-        private delegate bool EnumWindowsDelegate(IntPtr hWnd, IntPtr lparam);
-        public ClassApp WindowTitleList()
-        {
-            count = 0;
-            _hWndList = new ClassApp();
-            _hWndList.Interface = new InnerClass[1];
-            EnumWindows(new EnumWindowsDelegate(EnumWindowCallBack), IntPtr.Zero);
-            return _hWndList;
-        }
-        private static bool EnumWindowCallBack(IntPtr hWnd, IntPtr lparam)
-        {
-            int textLen = GetWindowTextLength(hWnd);
-            if (0 < textLen)
-            {
-                StringBuilder tsb = new StringBuilder(textLen + 1);
-                GetWindowText(hWnd, tsb, tsb.Capacity);
-                RECT rect;
-                bool flag = GetWindowRect(hWnd, out rect);
-                _hWndList.Interface[count] = new InnerClass();
-                _hWndList.Interface[count].WHnd = (int)hWnd;
-                _hWndList.Interface[count].APPName = tsb.ToString();
-                _hWndList.Interface[count].Left = rect.left;
-                _hWndList.Interface[count].Top = rect.top;
-                _hWndList.Interface[count].Right = rect.right;
-                _hWndList.Interface[count].Bottom = rect.bottom;
-                count += 1;
-                Array.Resize(ref _hWndList.Interface, count+1);
+Array.Resize(ref _hWndList.Interface, count **+1** );
-            }
-            return true;
-        }
-    }
-}
-```