編集履歴

質問編集履歴

修正

2020/04/29 10:50

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -286,6 +286,12 @@
             count = 1;
+            _hWndList = new ClassApp();
+            _hWndList.Interface = new InnerClass[1];
             EnumWindows(new EnumWindowsDelegate(EnumWindowCallBack), IntPtr.Zero);

リスト修正しました

2020/04/29 10:50

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -124,7 +124,7 @@
-'''VBA
+```VBA
 Sub Vba()

rev

2020/04/29 10:34

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -116,6 +116,38 @@
+もちろん、呼び出しのエントリポイントの外にクラス宣言があり
+このまま走らせても、「インデックスが配列の境界外」というエラーになってしまいます。
+'''VBA
+Sub Vba()
+Set DLL = New ExcelVbaExt.WindowWhnd
+Dim com As Variant
+Set com = DLL.WindowTitleList
+c = com.Interface
+End Sub
+```
 ```C#
 using System;

rev

2020/04/29 09:34

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -107,3 +107,211 @@
 の例がありましたが、C#のソースがあれば紹介いただきたいです。
 [リンク内容](http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01094.html)
+#現在のコード
+```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 = new ClassApp();
+        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 = 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);
+                count += 1;
+                Array.Resize(ref _hWndList.Interface, count);
+                _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;
+            }
+            return true;
+        }
+    }
+}
+```

rev

2020/04/29 09:31

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -66,7 +66,7 @@
 リストを見ると、コールバック関数を使っているのですが、
-main関数の戻り値は、常にBOOLしか戻ってこない状態で、
+EnumWindows関数の戻り値は、常にBOOLしか戻ってこない状態で、
 取得したいハンドル名を、WINDOWSコンソールに吐き出されています。

rev

2020/04/29 09:07

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

	@@ -1 +1 @@
1	- C#でのウィンドウ名取得について
1	+ C#でのウィンドウ名取得について EnumWindows

test CHANGED Viewed

@@ -6,7 +6,7 @@
 参考ソース
-[リンク内容](https://docs.microsoft.com/ja-jp/dotnet/framework/interop/how-to-implement-callback-functions)
+[EnumWindows](https://docs.microsoft.com/ja-jp/dotnet/framework/interop/how-to-implement-callback-functions)

初回

2020/04/29 09:06

投稿

yuujiMotoki

スコア90

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -7,42 +7,6 @@
 参考ソース
 [リンク内容](https://docs.microsoft.com/ja-jp/dotnet/framework/interop/how-to-implement-callback-functions)
-リストを見ると、コールバック関数を使っているのですが、
-main関数の戻り値は、常にBOOLしか戻ってこない状態で、
-取得したいハンドル名を、WINDOWSコンソールに吐き出されています。
-#知りたいこと
-最終的にはDLLとして、配列変数にして戻したいと思っています。
-方法としては
-１）コンソールの出力をテキストにして戻す
-　→　DLLを呼ぶ側に解読するソースをつけないと行けないので、不細工です。
-２）メインの外にグローバル配列変数を作る
-　→　そもそも関数の戻り値として、DLLの呼び出し側に返信できるのか疑問。
-C#の使い方としては、もっとスマートな方法は無いものでしょうか？
@@ -97,3 +61,49 @@
 }
 ```
+リストを見ると、コールバック関数を使っているのですが、
+main関数の戻り値は、常にBOOLしか戻ってこない状態で、
+取得したいハンドル名を、WINDOWSコンソールに吐き出されています。
+#知りたいこと
+最終的にはDLLとして、配列変数にして戻したいと思っています。
+方法としては
+１）コンソールの出力をテキストにして戻す
+　→　DLLを呼ぶ側に解読するソースをつけないと行けないので、不細工です。
+２）メインの外にグローバル配列変数を作る
+　→　そもそも関数の戻り値として、DLLの呼び出し側に返信できるのか疑問。
+C#の使い方としては、もっとスマートな方法は無いものでしょうか？
+他の言語では、
+サンプル: "列挙(コールバック)時の情報を列挙後へ渡す"
+の例がありましたが、C#のソースがあれば紹介いただきたいです。
+[リンク内容](http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01094.html)