{"id":1950,"date":"2024-01-14T21:06:06","date_gmt":"2024-01-14T12:06:06","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1950"},"modified":"2024-02-11T12:45:40","modified_gmt":"2024-02-11T03:45:40","slug":"wait02","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/wait02","title":{"rendered":"\u96fb\u5e33\u6cd5\u7d22\u5f15\u7c3f\u306a\u3069\u3067\u4f7f\u3048\u308b\uff1f\uff3fVBA\uff0864bit\u306e\u307f\uff09\u30fb\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304f\u307e\u3067\u5f85\u3063\u3066AppActivate\u3057\u305f\u306e\u3061\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u3092API\u3067\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u30b3\u30fc\u30c9\u3002\u7d50\u5c40Sleep\u95a2\u6570\u3067\u5f85\u3064\u3053\u3068\u304c\u5fc5\u8981\u3060\u3063\u305f\u3051\u3069\u3001\uff12\u79d2\u3082\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u3088\u304f\u306a\u3063\u305f\u306e\u3067\uff080.5\u79d2\u3067OK\u306b\u306a\u3063\u305f\u306e\u3067\uff09\u3001\u66ab\u5b9a\u7684\u306b\u3053\u308c\u3092\u4f7f\u3046\u3002\uff08\u672c\u5f53\u306f\u3082\u3063\u3068\u3061\u3083\u3093\u3068\u3057\u305f\u30b3\u30fc\u30c9\u304c\u3042\u308b\u306f\u305a\u3002\u3067\u3082\u306a\u304b\u306a\u304b\u691c\u7d22\u306b\u30d2\u30c3\u30c8\u3057\u306a\u3044\u306e\u3067\u3072\u3068\u307e\u305a\u3053\u308c\u3067\u3002\uff09"},"content":{"rendered":"

\u96fb\u5e33\u6cd5\u7d22\u5f15\u7c3f\u306a\u3069\u3067\u4f7f\u3048\u308b\uff1f\uff3fVBA\uff0864bit\u306e\u307f\uff09\u30fb\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304f\u307e\u3067\u5f85\u3063\u3066AppActivate\u3057\u305f\u306e\u3061\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u3092API\u3067\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u30b3\u30fc\u30c9\u3002\u7d50\u5c40Sleep\u95a2\u6570\u3067\u5f85\u3064\u3053\u3068\u304c\u5fc5\u8981\u3060\u3063\u305f\u3051\u3069\u3001\uff12\u79d2\u3082\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u3088\u304f\u306a\u3063\u305f\u306e\u3067\uff080.5\u79d2\u3067OK\u306b\u306a\u3063\u305f\u306e\u3067\uff09\u3001\u66ab\u5b9a\u7684\u306b\u3053\u308c\u3092\u4f7f\u3046\u3002\uff08\u672c\u5f53\u306f\u3082\u3063\u3068\u3061\u3083\u3093\u3068\u3057\u305f\u30b3\u30fc\u30c9\u304c\u3042\u308b\u306f\u305a\u3002\u3067\u3082\u306a\u304b\u306a\u304b\u691c\u7d22\u306b\u30d2\u30c3\u30c8\u3057\u306a\u3044\u306e\u3067\u3072\u3068\u307e\u305a\u3053\u308c\u3067\u3002\uff09
\n\u3000\u3000<\/SPAN><\/p>\n

\u76ee\u6b21
\n\u2605 64bit\u300c\u5c02\u7528\u300d\u306e\uff11\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/a>
\n\u2605 64bit\u300c\u5c02\u7528\u300d\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u306e\u30ea\u30b5\u30a4\u30ba\u7528\u306eAPI\u30e2\u30b8\u30e5\u30fc\u30eb<\/a>
\n\u2605 32bit\u7528 Only \u306e\uff12\u3064\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/a>
\n\u2605 64bit\/32bit\u300c\u517c\u7528\u300d\u306e\uff12\u3064\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/a><\/p>\n

\u3000\u3000<\/SPAN><\/p>\n

https:\/\/liclog.net\/getwindowtext-function-vba-api\/<\/a>
\n\u3092\u53c2\u8003\u306b\u5c11\u3057\u66f8\u304d\u5909\u3048\u305f\u3060\u3051\u306e\u3082\u306e\u3067\u3059\u3002<\/p>\n

Web\u691c\u7d22\u3059\u308b\u3068\u3001\u300e\u300c\u958b\u304f\u30d5\u30a1\u30a4\u30eb\u300d\u306b\u5bfe\u3057\u3066\u3067\u306f\u306a\u304f\u3001\u300c\u7a7a\u767d\u306e\u72b6\u614b\u3067\u8d77\u52d5\u3059\u308b\u30bd\u30d5\u30c8\u300d\u5927\u3057\u3066\uff1d\u8d77\u52d5\u3059\u308b\u30bd\u30d5\u30c8\u306e\u30d5\u30eb\u30d1\u30b9\u306e\u307f\u306b\u5bfe\u3057\u3066\u3001\u3060\u3051\u306eAPI\u3067\u306e\u5f85\u6a5f\u300d\u3067\u3057\u304b\u306a\u304f\u3066\u3001
\n\u305d\u308c\u3070\u3063\u304b\u308a\u3067\u3057\u305f\u3002<\/p>\n

\u300c\u62e1\u5f35\u5b50\u306b\u7d10\u4ed8\u3044\u305f\u30bd\u30d5\u30c8\u3067\u8d77\u52d5\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u300d\u3092\u300c\u958b\u304f\u306e\u3092\u5f85\u6a5f\u3059\u308bAPI\u300d\u304c
\n\u306a\u304b\u306a\u304b\u691c\u7d22\u306b\u30d2\u30c3\u30c8\u3057\u307e\u305b\u3093\u3002\uff08\u81ea\u5206\u3067\u306f\u898b\u3064\u3051\u3089\u308c\u307e\u305b\u3093\u3067\u3057\u305f\u3002\uff09<\/p>\n

\u306a\u306e\u3067\u3001\u3068\u308a\u3042\u3048\u305a\u3001\u3053\u308c\u3067\u4ee3\u7528\u3067\u3059\u3002<\/p>\n

\u7d50\u5c40Sleep\u95a2\u6570\u3067\u5f85\u3061\u6642\u9593\u3092\u5165\u308c\u3066\u3044\u307e\u3059\u304c\u3001\u305f\u3060\u3001\u4ed6\u306eWeb\u306e\u30b5\u30f3\u30d7\u30eb\u306e\u3088\u3046\u306b
\n\uff12\u79d2\u3082\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u3044\u3044\u306e\u3067\u3072\u3068\u307e\u305a\u4f7f\u3048\u305d\u3046\u3067\u3059\u3002<\/p>\n

\u305f\u3060\u3057\u3001\u6700\u4f4e\u96500.5\uff5e0.8\u79d2\u304f\u3089\u3044\u306f\u5f85\u305f\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\nHDD\u306e\u9045\u3044\u30d1\u30bd\u30b3\u30f3\u3060\u30681\u79d2\u4ee5\u4e0a\u3001\u5f85\u305f\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u304b\u3082\uff1f\u3067\u3059\u3002
\n\uff08\u203b\u305d\u3082\u305d\u3082\u8d77\u52d5\u304c\u9045\u3044\u30bd\u30d5\u30c8\u306e\u3001\u305d\u306e\u8d77\u52d5\u79d2\u6570\u306f\u542b\u307e\u308c\u307e\u305b\u3093\u3002\uff09<\/p>\n

\u306a\u304a\u3001\u4eca\u56de\u306e\u30b5\u30f3\u30d7\u30eb\u3067\u306f\u3001\u4ee5\u964d\u306e\uff12\u3064\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u304c\u5fc5\u8981\u3067\u3059\u3002
\n\u6700\u521d\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3060\u3051\u3060\u3068\u52d5\u304d\u307e\u305b\u3093\u3002
\n\uff08\u30a6\u30a3\u30f3\u30c9\u30a6\u30ea\u30b5\u30a4\u30ba\u304c\u3067\u304d\u306a\u3044\u306e\u3067\u3002\uff12\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u304c\u30a6\u30a3\u30f3\u30c9\u30a6\u30ea\u30b5\u30a4\u30ba\u7528\u3067\u3059\u3002\uff09<\/p>\n

\u203b\u3082\u3057\u52d5\u304d\u304c\u5b89\u5b9a\u3057\u306a\u304b\u3063\u305f\u3089\u308a\u30d5\u30a1\u30a4\u30eb\u304c\u58ca\u308c\u3084\u3059\u304f\u306a\u3063\u305f\u3089\u3001
\n\u3000xlsm\u3058\u3083\u306a\u304f\u3066\u3001xls\u3067\u3084\u308b\u3068\u5b89\u5b9a\u3059\u308b\u3063\u307d\u3044\u3067\u3059\u3002
\n\u3000\u3000<\/SPAN><\/p>\n

\u25cf\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u62e1\u5f35\u5b50\u306b\u95a2\u9023\u3065\u3044\u305f\u30bd\u30d5\u30c8\u3067\u8d77\u52d5\u3057\u3066\u3001\u305d\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u30e2\u30b8\u30e5\u30fc\u30eb\uff0864bit\u7528\u306eAPI\u542b\u3080\u300232bit\u3067\u3082\u884c\u3051\u308b\u304b\u3082\uff1f\uff09<\/p>\n

\u300cFileBoot01\u300d\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306b\u3066\u3001\u3067\u3001\u547c\u3073\u51fa\u3057\u307e\u3059\u3002
\n\u3064\u307e\u308a\u3001\u300cCall FileBoot01(\u201d\u30d5\u30a1\u30a4\u30eb\u30d5\u30eb\u30d1\u30b9\u201d)\u300d\u3068\u66f8\u3044\u3066\u547c\u3073\u51fa\u3057\u307e\u3059\u3002
\n\u3059\u308b\u3068\u3001\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304c\u300capp_window_risize01\u300d\u95a2\u6570\u306b\u3088\u308a\u3001
\n\u6307\u5b9a\u3057\u305f\u30b5\u30a4\u30ba\u306b\u30ea\u30b5\u30a4\u30ba\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u958b\u304f\u306e\u304c\u9045\u3044\u30bd\u30d5\u30c8\u3067\u3082\u3001\u304a\u304a\u3080\u306d\u5927\u4e08\u592b\u3063\u307d\u3044\u3067\u3059\u3002<\/p>\n

app_window_risize01\u95a2\u6570\u306f\u3001\uff12\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u66f8\u304b\u308c\u3066\u3044\u308b\u306e\u3067
\n\uff12\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3082VBE\u306b\u30b3\u30d4\u30da\u3057\u307e\u3059\u3002\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3067OK\u3067\u3059\u3002<\/p>\n

\u25c6\u25c6\u25c6\u25c6\u6ce8\u610f\uff01\uff01\uff01\uff01\u25c6\u25c6\u25c6\u25c6
\n32bit\u7528\uff0864bit\u517c\u7528\u306e\u4e2d\u306e32bit\u7528\u3082\u542b\u3080\uff09\u306e\u307b\u3046\u3067\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u306e\u53d6\u5f97\u306e\u3068\u3053\u308d\u3067\u3001
\n\u30fb\u5b9f\u969b\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u90e8\u5206\u306b\u300e\u3000[\u3000]\u3000\u300f\u304c\u3042\u3063\u305f\u308a\u306a\u304b\u3063\u305f\u308a
\n\u30fb\u5909\u6570\u5185\u3082\u300e\u3000[\u3000]\u3000\u300f\u304c\u3042\u3063\u305f\u308a\u306a\u304b\u3063\u305f\u308a\u3001
\n\u3068\u3044\u3063\u305f\u73fe\u8c61\u304c\u8d77\u3053\u308a\u3001\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3057\u305f\u3002
\n\u7279\u306bOS\u304cWindows2000\u306a\u3069\u306e\u53e4\u3044\u3082\u306e\u306e\u5834\u5408\u3002
\n\u305d\u306e\u5834\u5408\u306f\u3001\u305d\u308c\u3092\u56de\u907f\u3059\u308b\u30b3\u30fc\u30c9\u304c\u5fc5\u8981\u304b\u3001\u3042\u304d\u3089\u3081\u308b\u304b\u3001\u306b\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002
\nOS\u304cWin10\u306a\u3069\u306e\u300132bitExcel\u306a\u3089\u591a\u5206\u5927\u4e08\u592b\u304b\u3068\u601d\u3046\u306e\u3067\u3059\u304c\u30fb\u30fb\u30fb\u3002<\/p>\n

\u203b\u539f\u56e0\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u306e\u30aa\u30fc\u30d7\u30f3\uff08\u8d77\u52d5\uff09\u3092\u300e CreateObject(\"Shell.Application\") \u300f\u3067\u3084\u3063\u3066\u308b\u304b\u3089\uff1f\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u672a\u78ba\u8a8d\u3067\u3059\u3002
\n\u300e CreateObject(\"Shell.Application\") \u300f\u3092\u4f7f\u3063\u305f\u306e\u306f\u3001\u300c\u62e1\u5f35\u5b50\u306b\u7d10\u4ed8\u3044\u305f\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u3061\u3083\u3093\u3068\u958b\u304f\u300d\u3068\u3044\u3046\u3053\u3068\u3092\u3057\u305f\u304b\u3063\u305f\u305f\u3081\u3067\u3059\u3002
\n\u4ed6\u306e\u65b9\u6cd5\u3060\u3068\u3001\u30de\u30b7\u30f3\u306b\u3088\u3063\u3066\u306f\u3001\u306a\u305c\u304b\u3001\u300c\u30a2\u30af\u30ed\u30d0\u30c3\u30c8\u306b\u7d10\u4ed8\u3044\u3066\u3044\u308b\u3044\u306e\u306b\u30d6\u30e9\u30a6\u30b6\u3067PDF\u304c\u958b\u3044\u3066\u3057\u307e\u3046\u300d\u3068\u3044\u3046\u30de\u30b7\u30f3\u304c\u3042\u3063\u305f\u308a\u3068\u300c\u958b\u304f\u30bd\u30d5\u30c8\u304c\u30d0\u30e9\u30d0\u30e9\u300d\u3060\u3063\u305f\u306e\u3067\u3002<\/p>\n

\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n

\u2605 64bit\u300c\u5c02\u7528\u300d\u306e\uff11\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/a><\/p>\n

\r\n'\r\n'\r\nOption Explicit\r\n\r\nPrivate Declare PtrSafe Sub Sleep Lib \"kernel32\" (ByVal ms As Long)\r\n'\u2191\u300cSleep\u300d\u95a2\u6570\u3067\u3001\u30df\u30ea\u79d2\u3001\u5f85\u3064\u305f\u3081\u306eAPI\u30b3\u30fc\u30c9\u3002\r\n\r\n\r\n#If Win64 Then\r\n '\u3010GetNextWindow\u95a2\u6570\u3011\r\n    Declare PtrSafe Function GetNextWindow Lib \"user32\" Alias \"GetWindow\" _\r\n    (ByVal hwnd As LongPtr, ByVal wFlag As Long) As LongPtr\r\n \r\n '\u3010IsWindowVisible\u95a2\u6570\u3011\r\n    Declare PtrSafe Function IsWindowVisible Lib \"user32\" _\r\n    (ByVal hwnd As LongPtr) As LongPtr\r\n \r\n '\u3010GetWindowText\u95a2\u6570\u3011\r\n    Declare PtrSafe Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n    (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As LongPtr\r\n \r\n '\u3010FindWindow\u95a2\u6570\u3011\r\n    Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n \r\n    Dim hwnd As LongPtr\r\n    \r\n#Else\r\n '\u3010GetNextWindow\u95a2\u6570\u3011\r\n    Declare Function GetNextWindow Lib \"user32\" Alias \"GetWindow\" _\r\n    (ByVal hwnd As Long, ByVal wFlag As Long) As Long\r\n \r\n '\u3010IsWindowVisible\u95a2\u6570\u3011\r\n    Declare Function IsWindowVisible Lib \"user32\" _\r\n    (ByVal hwnd As Long) As Long\r\n \r\n '\u3010GetWindowText\u95a2\u6570\u3011\r\n    Declare Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n    (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long\r\n \r\n '\u3010FindWindow\u95a2\u6570\u3011\r\n    Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long\r\n \r\n    Dim hwnd As Long\r\n \r\n#End If\r\n \r\nConst GW_HWNDLAST = 1\r\nConst GW_HWNDNEXT = 2\r\n\r\n'-------------------------------------------------------------------------------------\r\n'API\u306eWeb\u30da\u30fc\u30b8\u4ed8\u5c5e\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'\u4eca\u56de\u306f\u3001\u3053\u308c\u3092\u7121\u7406\u77e2\u7406\u306b\u95a2\u6570\u5316\u3057\u307e\u3057\u305f\u3002\r\n'-------------------------------------------------------------------------------------\r\nSub main()\r\n \r\n   \r\n    Dim strCaption As String * 500\r\n    \r\n    hwnd = FindWindow(vbNullString, vbNullString)\r\n    \r\n    Dim caps As Collection\r\n    Set caps = New Collection\r\n    Dim cap 'As String\r\n    Do\r\n        If IsWindowVisible(hwnd) Then\r\n        \r\n            GetWindowText hwnd, strCaption, Len(strCaption)\r\n            \r\n            cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)\r\n            If cap <> \"\" Then\r\n                caps.Add cap\r\n            End If\r\n            \r\n        End If\r\n    \r\n        hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)\r\n    \r\n    Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)\r\n    \r\n    For Each cap In caps\r\n        Debug.Print cap\r\n    Next cap\r\n \r\nEnd Sub\r\n\r\n\r\n'###################################################################################\r\n'\u30d5\u30a1\u30a4\u30eb\u306e\u8d77\u52d5\uff0b\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u4e8b\u4f8b\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'###################################################################################\r\n\r\nFunction FileBoot01(s_FilePath01 As String)\r\n\r\n    Dim s_WindowTitle As String\r\n    \r\n    \r\n    '\u30d5\u30a1\u30a4\u30eb\u3092\u8d77\u52d5\u3002\r\n    With CreateObject(\"Shell.Application\")\r\n        .ShellExecute s_FilePath01\r\n    End With\r\n    \r\n    \r\n    \r\n'    ' \u8d77\u52d5\u3092\u5f85\u3064  \u2019\u65e7\u30d0\u30fc\u30b8\u30e7\u30f3\u30f3\u3002\u30c0\u30e1\u3060\u3063\u305f\u3002\u4f7f\u3048\u306a\u3044\u3002\r\n'    Do Until objShell.AppActivate(objExec.ProcessID)\r\n'        Sleep 1000\r\n'        DoEvents\r\n'        Debug.Print objExec.ProcessID\r\n'        Debug.Print objShell.AppActivate(objExec.ProcessID)\r\n'    Loop\r\n\r\n\r\n    s_WindowTitle = WindowTitleGet01(Dir(s_FilePath01))\r\n    '\u2191\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u3092\u53d6\u5f97\u3002\r\n    '\u3000\u3053\u306e\u300cWindowTitleGet01\u300d\u95a2\u6570\u3067\u3042\u308b\u7a0b\u5ea6\u3001\u8d77\u52d5\u3092\u300c\u5f85\u3064\u300d\u3002\r\n    \r\n    Debug.Print s_WindowTitle & \"-----\u2605\u672c\u756a\u30c7\u30fc\u30bf\"\r\n    \r\n    Sleep 500     '\uff08API\uff09\r\n    '\u2191\u3055\u3089\u306b\u5c11\u3057\u5f85\u3064\u3068\u3001\u78ba\u5b9f\uff1f\u306a\u306e\u304b\uff1f\r\n    '\u3000\u3068\u308a\u3042\u3048\u305a\uff12\u79d2\u3082\u3001\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u826f\u3044\u30fb\u30fb\u30fb\u3001\u3063\u307d\u3044\u3002\r\n    \r\n    \r\n    AppActivate s_WindowTitle\r\n    '\u2191 \u76ee\u7684\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\r\n    '\u3000\u672c\u5f53\u306b\u52b9\u3044\u3066\u3044\u308b\u306e\u304b\u306f\u5c11\u3005\u7591\u554f\u3002\r\n    '\u3000\u3000\u2192\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u3066\u30c6\u30b9\u30c8\u3057\u305f\u3089\u52d5\u304b\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u7d50\u679c\u3001\u52b9\u3044\u3066\u3044\u305f\u3053\u3068\u306b\u306a\u308b\u3002\r\n    '\u3000\u305f\u3060\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u5834\u5408\u306b\u3088\u3063\u3066\u306f\u3053\u306e\u30b3\u30fc\u30c9\u7121\u304f\u3066\u3082OK\u306a\u30b1\u30fc\u30b9\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u3002\uff08\u672a\u8abf\u67fb\uff09\r\n    \r\n    \r\n'    Debug.Print WindowTitleGet01(Dir(s_FilePath01)) & \"---(A)\"\r\n    \r\n    \r\n    \r\n'    Call app_window_risize01(0, 10, 300, 650)\r\n    Call app_window_risize01(501, 10, 780, 650)\r\n    '\u2191\u76ee\u7684\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30ea\u30b5\u30a4\u30ba\u3002\r\n    \r\n    \r\n'    AppActivate WindowTitleGet01(\"\u30c9\u30e9\u30c3\u30b0\")\r\n'    Debug.Print WindowTitleGet01(\"\u30c9\u30e9\u30c3\u30b0\")\r\n'    '\u2191\u3068\u308a\u3042\u3048\u305a\u306e\u30c6\u30b9\u30c8\u3092\u3057\u305f\u3060\u3051\u3002\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    \r\nEnd Function\r\n\r\n'###################################################################################\r\n'\u30d5\u30a1\u30a4\u30eb\u306e\u8d77\u52d5\uff0b\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u4e8b\u4f8b\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'###################################################################################\r\n\r\n\r\nFunction WindowTitleGet01(s_ChkWord01 As String) As String\r\n\r\n    Dim strCaption As String * 500\r\n    '\u9577\u3055500\u306e\u6587\u5b57\u5217\u578b\u5909\u6570\u306e\u5ba3\u8a00\r\n    \r\n    Do\r\n   \r\n        strCaption = \"\"\r\n        \r\n        hwnd = FindWindow(vbNullString, vbNullString)\r\n        \r\n        \r\n        '\u2193\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u751f\u6210\r\n        Dim caps As Collection\r\n        Dim cap 'As String\r\n        Set caps = New Collection\r\n        Do\r\n            If IsWindowVisible(hwnd) Then\r\n            \r\n                GetWindowText hwnd, strCaption, Len(strCaption)\r\n                \r\n                cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)\r\n                If cap <> \"\" Then\r\n                    caps.Add cap\r\n                End If\r\n                \r\n            End If\r\n        \r\n            hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)\r\n        \r\n        Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)\r\n        '\u2191\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u751f\u6210\r\n        \r\n        \r\n        \r\n        For Each cap In caps\r\n        \r\n'            Debug.Print cap & \"---WTG-Function\"\r\n            \r\n            If 1 <= InStr(1, cap, s_ChkWord01, vbBinaryCompare) Then\r\n                WindowTitleGet01 = cap\r\n                Set caps = Nothing\r\n                Exit Function\r\n            Else\r\n            \r\n            End If\r\n        Next cap\r\n        '\u2191\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u4e2d\u306b\u76ee\u7684\u306e\u691c\u7d22\u6587\u8a00\u3092\u542b\u3080\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u304c\u3042\u308b\u304b\u8abf\u3079\u3001\r\n        '\u3000\u3042\u3063\u305f\u3089\u30e6\u30fc\u30b6\u30fc\u306b\u305d\u308c\u3092\u8fd4\u3057\u3066\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3082\u7d42\u308f\u308b\u3002\r\n        \r\n        Set caps = Nothing\r\n        '\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u6d88\u6ec5\r\n    \r\n    Loop\r\n    \r\nEnd Function\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n
\u2605 64bit\u300c\u5c02\u7528\u300d\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u306e\u30ea\u30b5\u30a4\u30ba\u7528\u306eAPI\u30e2\u30b8\u30e5\u30fc\u30eb<\/a><\/p>\n
app_window_risize01\u95a2\u6570\u306f\u3053\u3053\u304b\u3089\u547c\u3073\u51fa\u3057\u307e\u3059\u3002
\n32bit\u306b\u306f\u5bfe\u5fdc\u3057\u3066\u3044\u307e\u305b\u3093\u306e\u3067\u3001\u5bfe\u5fdc\u3055\u305b\u305f\u3044\u306a\u3089\u305d\u306e\u5206\u306e\u8ffd\u8a18\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u5927\u5316\u3001\u6700\u5c0f\u5316\u3001\u7b49\u3001\u72b6\u614b\u306e\u53d6\u5f97\u7528\u306e\u5b9a\u7fa9\r\n\r\nPublic Const SW_HIDE = 0\r\nPublic Const SW_SHOWMAXIMIZED = 3\r\nPublic Const SW_SHOWMINIMIZED = 2\r\nPublic Const SW_SHOWNORMAL = 1\r\n\r\n'Type RECT\r\n'    Left As Long\r\n'    Top As Long\r\n'    Right As Long\r\n'    Bottom As Long\r\n'End Type\r\n\r\n'Type POINTAPI\r\n'    X As Long\r\n'    Y As Long\r\n'End Type\r\n\r\n'Type WINDOWPLACEMENT\r\n'    Length As Long\r\n'    Flags As Long\r\n'    ShowCmd As Long\r\n'    PtMinPosition As POINTAPI\r\n'    PtMaxPosition As POINTAPI\r\n'    RcNormalPosition As RECT\r\n'End Type\r\n\r\nPublic Const WPF_RESTORETOMAXIMIZED = &H2\r\nPublic Const WPF_SETMINPOSITION = &H1\r\n\r\n'Declare Function GetWindowPlacement Lib \"user32\" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\n\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u306e\u5927\u304d\u3055\u5909\u66f4\u7528\u306e\u5b9a\u7fa9\r\n\r\nPublic Declare PtrSafe Function GetForegroundWindow _\r\n    Lib \"user32\" () As Long\r\n\r\nPublic Type POINTAPI\r\n    X As Long\r\n    Y As Long\r\nEnd Type\r\n\r\nPublic Type RECT\r\n    Left As Long\r\n    Top As Long\r\n    Right As Long\r\n    Bottom As Long\r\nEnd Type\r\n\r\nPublic Type WINDOWPLACEMENT\r\n    Length As Long\r\n    Flags As Long\r\n    ShowCmd As Long\r\n    PtMinPosition As POINTAPI\r\n    PtMaxPosition As POINTAPI\r\n    RcNormalPosition As RECT\r\nEnd Type\r\n\r\nPublic Declare PtrSafe Function GetWindowPlacement Lib \"user32\" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long\r\nPublic Declare PtrSafe Function SetWindowPlacement Lib \"user32\" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long\r\n\r\n\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u8868\u793a\u7528\u306e\u5b9a\u7fa9\r\n                                          \r\n Declare PtrSafe Function FindWindow% Lib \"user32\" Alias \"FindWindowA\" _\r\n                                          (ByVal lpClassName As Any, _\r\n                                           ByVal lpCaption As Any)\r\n\r\n'\u25a0\u300c\u540d\u524d\u304c\u9069\u5207\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u300d\u306e\u30a8\u30e9\u30fc\u304c\u51fa\u308b\u306e\u3067\u3001\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n'\u3000\u3000\u3000\uff08\u3069\u3053\u3068\u304b\u3076\u3063\u3066\u308b\u304b\u306f\u672a\u30c1\u30a7\u30c3\u30af\u3067\u3059\u3002\u591a\u5206\u3001\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\r\n'        64bit\u306e\u5206\u5c90\u306e\u300cDeclare PtrSafe Function FindWindow\u300d\u3002\uff09\r\n'  Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n'  (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n'\r\n\r\n Declare PtrSafe Function SetWindowPos Lib \"user32\" (ByVal hwnd As LongPtr, _\r\n                                 ByVal hWndInsertAfter As LongPtr, _\r\n                                 ByVal X As Long, _\r\n                                 ByVal Y As Long, _\r\n                                 ByVal cx As Long, _\r\n                                 ByVal cy As Long, _\r\n                                 ByVal wFlags As Long) As Long\r\n\r\n\r\nGlobal Const HWND_TOPMOST = -1   ' \u6700\u5168\u9762\u306b\u8868\u793a\u3059\u308b\r\nGlobal Const HWND_NOTOPMOST = -2 ' \u6700\u524d\u9762\u306b\u8868\u793a\u3059\u308b\u306e\u3092\u3084\u3081\u308b\r\nGlobal Const SWP_NOSIZE = &H1    ' \u30b5\u30a4\u30ba\u3092\u5909\u66f4\u3057\u306a\u3044\r\nGlobal Const SWP_NOMOVE = &H2    ' \u4f4d\u7f6e\u3092\u5909\u66f4\u3057\u306a\u3044\r\n\r\n\r\n\r\n'##########\u3000\u3000Win64API\u306e\u547c\u3073\u51fa\u3057\u306f\u3053\u3053\u307e\u3067\u3000\u3000################################################\r\n\r\n'##########\u3000\u3000\u4ee5\u4e0b\u3001Win64API\u3092\u547c\u3073\u51fa\u3059\u305f\u3081\u306e\u95a2\u6570\uff08Win64API\u3092\u5229\u7528\u3059\u308b\u305f\u3081\u306e\u95a2\u6570\uff09\u3000\u3000################################################\r\n\r\n\r\n\r\n\r\n'######################################################################################\r\n'\u4ed6\u306emdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u6700\u524d\u9762\u306b\u3059\u308b\u95a2\u6570\r\n'win_hwnd \u306b\u306f\u3001\u300cobjAccess.hWndAccessApp\u300d\u306a\u3069\u3067\u53d6\u5f97\u3057\u305f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u5024\uff08Long\u578b\uff09\u3092\u6e21\u3059\r\n'hwnd\u306f Handle Of Window \u306e\u7565\r\n'######################################################################################\r\n\r\nFunction window_most_top_on(win_hwnd As Long)\r\n\r\n   Call SetWindowPos(win_hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n\r\nEnd Function\r\n\r\n'######################################################################################\r\n'\u4ed6\u306emdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u3092\u89e3\u9664\u3059\u308b\u95a2\u6570\r\n'win_hwnd \u306b\u306f\u3001\u300cobjAccess.hWndAccessApp\u300d\u306a\u3069\u3067\u53d6\u5f97\u3057\u305f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u5024\uff08Long\u578b\uff09\u3092\u6e21\u3059\r\n''hwnd\u306f Handle Of Window \u306e\u7565\r\n'######################################################################################\r\n\r\n\r\nFunction window_most_top_off(win_hwnd As Long)\r\n\r\n   Call SetWindowPos(win_hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n\r\nEnd Function\r\n\r\n\r\n'#################################################################\r\n'\u81eamdb\u3092\u6700\u524d\u9762\u306b\u5f37\u5236\u8868\u793a\u3002\r\n'#################################################################\r\nSub MeMdbSaiZenmenOn()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_on(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n'#################################################################\r\n'\u81eamdb\u306e\u6700\u524d\u9762\u3092\u5f37\u5236\u8868\u793a\u89e3\u9664\u3002\r\n'#################################################################\r\nSub MeMdbSaiZenmenOFF()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_off(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n\r\n'######################################################################################\r\n\r\n'\u25cf\u4e0a\u8a18\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u306e\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\nSub testtest()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_off(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n'######################################################################################\r\n\r\n'\u25cf(02)\u81eamdb\u3092\u6700\u524d\u9762\u306b\u3059\u308b\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\nSub test101()\r\n\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call SetWindowPos(objAccess.hWndAccessApp, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n   Set objAccess = Nothing\r\nEnd Sub\r\n\r\n\r\n\r\n'\u25cf(03)\u81eamdb\u306e\u6700\u524d\u9762\u3092\u89e3\u9664\u3059\u308b\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\n\r\nSub test102()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call SetWindowPos(objAccess.hWndAccessApp, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n   Set objAccess = Nothing\r\nEnd Sub\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u305f\u4f55\u3089\u304b\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\r\n'\u30bf\u30a4\u30c8\u30eb\u540d\u304b\u3089\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\u30bf\u30a4\u30c8\u30eb\u540d\u306f\u5168\u90e8\u3058\u3083\u306a\u304f\u3066\u3082\u4e00\u90e8\u3067\u3082OK\u307f\u305f\u3044\u3067\u3059\u3002\r\n'###################################################################\r\n\r\nFunction app_window_risize_for_title_name(active_title_name As String, _\r\n                                          left_position As Integer, _\r\n                                          Top_position As Integer, _\r\n                                          Width_length As Integer, _\r\n                                          Height_length As Integer)\r\n\r\n    Dim myHwnd As LongPtr\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate active_title_name\r\n'    AppActivate \"TeraPad\"\r\n    \r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    Debug.Print \"myHwnd01---\" & myHwnd   '\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\r\n    \r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    \r\n    Debug.Print \"myHwnd02---\" & myHwnd\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u305f\u4f55\u3089\u304b\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\u3002\r\n'\u30bf\u30b9\u30afID(\u30d7\u30ed\u30bb\u30b9ID\uff09\u304b\u3089\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\r\n'###################################################################\r\n\r\nFunction app_window_risize_for_p_id(p_id As Integer, _\r\n                                    left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As LongPtr\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n    AppActivate p_id\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\n'###################################################################\r\n'\u5358\u7d14\u306b\u81eamdb\u306e\u307f\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\u3002\r\n'\r\n'\r\n'###################################################################\r\n\r\nFunction app_window_risize01(left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n'\r\n'    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate p_id  \u2019\u2190\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\nFunction app_window_risize02(l_GetForegroundWindowNumber, _\r\n                                    left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n'\r\n'    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate p_id\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n'    myHwnd = GetForegroundWindow()\r\n    myHwnd = l_GetForegroundWindowNumber\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u3066\u3044\u308bmdb\u5185\u306e\u30d5\u30a9\u30fc\u30e0\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\r\n'\u4e0a\u8a18\u95a2\u6570\u3092\u5909\u5f62\u3057\u305f\u3060\u3051\u3002\r\n'\u30d5\u30a9\u30fc\u30e0\u540d\u3092\u30e2\u30c8\u306b\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\r\n'###################################################################\r\n\r\nFunction form_api_risize(active_form_name As String, _\r\n                         left_position As Integer, _\r\n                         Top_position As Integer, _\r\n                         Width_length As Integer, _\r\n                         Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n\r\n    '\u30d5\u30a9\u30fc\u30e0\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n     myHwnd = Forms(active_form_name).hwnd\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n'################################################################################\r\n'\u30d5\u30a9\u30fc\u30e0\u306e\u72b6\u614b\u3092\u8abf\u3079\u308b\u95a2\u6570\uff08\u6700\u5927\u5316\u3001\u6700\u5c0f\u5316\u3001\u901a\u5e38\u3001\u975e\u8868\u793a\uff09\r\n'hWnd01 \u306f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u3092\u6307\u5b9a\u3059\u308b\u3002Me.Hwnd \u306a\u3069\u3002\r\n'\r\n'################################################################################\r\n\r\nFunction frm_size_State01(hWnd01 As Long) As String\r\n\r\n    Dim lRet As Long\r\n    Dim lpWnd As WINDOWPLACEMENT\r\n    Dim str01 As String\r\n\r\n    With lpWnd\r\n        .Length = LenB(lpWnd)\r\n        lRet = GetWindowPlacement(hWnd01, lpWnd)\r\n\r\n        'str01 = \"\u30d5\u30a9\u30fc\u30e0\u306e\u8868\u793a\u72b6\u614b\uff1a\"\r\n        If lRet <> 0 Then\r\n            If .ShowCmd = SW_SHOWMINIMIZED Then\r\n'                str01 = str01 & \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u6700\u5c0f\"\r\n            ElseIf .ShowCmd = SW_SHOWMAXIMIZED Then\r\n'                str01 = str01 & \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u6700\u5927\"\r\n            ElseIf .ShowCmd = SW_SHOWNORMAL Then\r\n'                str01 = str01 & \"\u901a\u5e38\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u901a\u5e38\"\r\n            ElseIf .ShowCmd = SW_HIDE Then\r\n'                str01 = str01 & \"\u975e\u8868\u793a\" & vbCrLf\r\n                frm_size_State01 = \"\u975e\u8868\u793a\"\r\n            Else\r\n'                str01 = str01 & \"\u4e0d\u660e\" & vbCrLf\r\n                frm_size_State01 = \"\u4e0d\u660e\"\r\n            End If\r\n\r\n        Else\r\n'            str01 = str01 & \"\u53d6\u5f97\u30a8\u30e9\u30fc\" & vbCrLf\r\n                frm_size_State01 = \"\u53d6\u5f97\u30a8\u30e9\u30fc\"\r\n        End If\r\n    End With\r\n\r\nEnd Function\r\n\r\n'###################################################################\r\n'\u4e0a\u306e\u30b3\u30fc\u30c9\u306e\u571f\u53f0\r\n'###################################################################\r\n\r\nFunction frm_size_State01_test(hWnd01 As Long)\r\n\r\n    Dim lRet As Long\r\n    Dim lpWnd As WINDOWPLACEMENT\r\n    Dim str01 As String\r\n\r\n    With lpWnd\r\n        .Length = LenB(lpWnd)\r\n        lRet = GetWindowPlacement(hWnd01, lpWnd)\r\n\r\n        str01 = \"\u30d5\u30a9\u30fc\u30e0\u306e\u8868\u793a\u72b6\u614b\uff1a\"\r\n        If lRet <> 0 Then\r\n            If .ShowCmd = SW_SHOWMINIMIZED Then\r\n                str01 = str01 & \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_SHOWMAXIMIZED Then\r\n                str01 = str01 & \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_SHOWNORMAL Then\r\n                str01 = str01 & \"\u901a\u5e38\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_HIDE Then\r\n                str01 = str01 & \"\u975e\u8868\u793a\" & vbCrLf\r\n            Else\r\n                str01 = str01 & \"\u4e0d\u660e\" & vbCrLf\r\n            End If\r\n            str01 = str01 & _\r\n                \"\u901a\u5e38\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)-(W,H)\uff1a\" _\r\n                & \"(\" & .RcNormalPosition.Left & \",\" & .RcNormalPosition.Top & \")\" _\r\n                & \"-(\" & .RcNormalPosition.Right & \",\" & .RcNormalPosition.Bottom & \")\" & vbCrLf\r\n            str01 = str01 & _\r\n                \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)\uff1a\" _\r\n                & \"(\" & .PtMaxPosition.X & \",\" & .PtMaxPosition.Y & \")\" & vbCrLf\r\n            str01 = str01 & _\r\n                \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)\uff1a\" _\r\n                & \"(\" & .PtMinPosition.X & \",\" & .PtMinPosition.Y & \")\" & vbCrLf\r\n        Else\r\n            str01 = str01 & \"\u53d6\u5f97\u30a8\u30e9\u30fc\" & vbCrLf\r\n        End If\r\n    End With\r\n\r\n\r\n    Debug.Print str01\r\n\r\nEnd Function\r\n\r\n'#############################################################################\r\n'\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30a6\u30a3\u30f3\u30c9\u30a6\u305f\u3061\u3092\u5de6\u53f3\u306b\u4e26\u3079\u3066\u8868\u793a\u3059\u308b\u95a2\u6570\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n'#############################################################################\r\n\r\nFunction Folder_Open()\r\n\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n    \r\n    Dim objsample As Shell\r\n    Set objsample = New Shell\r\n\r\n    objsample.TileVertically 'Windows\u753b\u9762\u304c\u5206\u5272\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    Set objsample = Nothing '\u958b\u653e\u3057\u307e\u3059\u3002\r\n\r\nEnd Function\r\n\r\n'#############################################################################\r\n'\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30a6\u30a3\u30f3\u30c9\u30a6\u305f\u3061\u3092\u4e0a\u4e0b\u306b\u4e26\u3079\u3066\u8868\u793a\u3059\u308b\u95a2\u6570\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n'#############################################################################\r\n\r\nFunction Folder_Open02()\r\n\r\n    \r\n    Dim objsample01 As Shell\r\n    Set objsample01 = New Shell\r\n\r\n    objsample01.TileHorizontally  'Windows\u753b\u9762\u304c\u5206\u5272\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    Set objsample01 = Nothing '\u958b\u653e\u3057\u307e\u3059\u3002\r\n\r\nEnd Function\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
#####################################################################################<\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u2605 32bit\u7528 Only \u306e\uff12\u3064\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/a><\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n'Private Declare PtrSafe Sub Sleep Lib \"kernel32\" (ByVal ms As Long)\r\nPrivate Declare Sub Sleep Lib \"kernel32\" (ByVal ms As Long)\r\n'\u2191\u300cSleep\u300d\u95a2\u6570\u3067\u3001\u30df\u30ea\u79d2\u3001\u5f85\u3064\u305f\u3081\u306eAPI\u30b3\u30fc\u30c9\u3002\r\n\r\n\r\n#If Win64 Then\r\n '\u3010GetNextWindow\u95a2\u6570\u3011\r\n    Declare PtrSafe Function GetNextWindow Lib \"user32\" Alias \"GetWindow\" _\r\n    (ByVal hwnd As LongPtr, ByVal wFlag As Long) As LongPtr\r\n \r\n '\u3010IsWindowVisible\u95a2\u6570\u3011\r\n    Declare PtrSafe Function IsWindowVisible Lib \"user32\" _\r\n    (ByVal hwnd As LongPtr) As LongPtr\r\n \r\n '\u3010GetWindowText\u95a2\u6570\u3011\r\n    Declare PtrSafe Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n    (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As LongPtr\r\n \r\n '\u3010FindWindow\u95a2\u6570\u3011\r\n    Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n \r\n    Dim hwnd As LongPtr\r\n    \r\n#Else\r\n '\u3010GetNextWindow\u95a2\u6570\u3011\r\n    Declare Function GetNextWindow Lib \"user32\" Alias \"GetWindow\" _\r\n    (ByVal hwnd As Long, ByVal wFlag As Long) As Long\r\n \r\n '\u3010IsWindowVisible\u95a2\u6570\u3011\r\n    Declare Function IsWindowVisible Lib \"user32\" _\r\n    (ByVal hwnd As Long) As Long\r\n \r\n '\u3010GetWindowText\u95a2\u6570\u3011\r\n    Declare Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n    (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long\r\n \r\n '\u3010FindWindow\u95a2\u6570\u3011\r\n    Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long\r\n \r\n    Dim hwnd As Long\r\n \r\n#End If\r\n \r\nConst GW_HWNDLAST = 1\r\nConst GW_HWNDNEXT = 2\r\n\r\n'-------------------------------------------------------------------------------------\r\n'API\u306eWeb\u30da\u30fc\u30b8\u4ed8\u5c5e\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'\u4eca\u56de\u306f\u3001\u3053\u308c\u3092\u7121\u7406\u77e2\u7406\u306b\u95a2\u6570\u5316\u3057\u307e\u3057\u305f\u3002\r\n'-------------------------------------------------------------------------------------\r\nSub main()\r\n \r\n   \r\n    Dim strCaption As String * 500\r\n    \r\n    hwnd = FindWindow(vbNullString, vbNullString)\r\n    \r\n    Dim caps As Collection\r\n    Set caps = New Collection\r\n    Dim cap 'As String\r\n    Do\r\n        If IsWindowVisible(hwnd) Then\r\n        \r\n            GetWindowText hwnd, strCaption, Len(strCaption)\r\n            \r\n            cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)\r\n            If cap <> \"\" Then\r\n                caps.Add cap\r\n            End If\r\n            \r\n        End If\r\n    \r\n        hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)\r\n    \r\n    Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)\r\n    \r\n    For Each cap In caps\r\n        Debug.Print cap\r\n    Next cap\r\n \r\nEnd Sub\r\n\r\n\r\n'###################################################################################\r\n'\u30d5\u30a1\u30a4\u30eb\u306e\u8d77\u52d5\uff0b\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u4e8b\u4f8b\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'###################################################################################\r\n\r\nFunction FileBoot01(s_FilePath01 As String)\r\n\r\n    Dim s_WindowTitle As String\r\n    \r\n    \r\n    '\u30d5\u30a1\u30a4\u30eb\u3092\u8d77\u52d5\u3002\r\n    With CreateObject(\"Shell.Application\")\r\n        .ShellExecute s_FilePath01\r\n    End With\r\n    \r\n    \r\n    \r\n'    ' \u8d77\u52d5\u3092\u5f85\u3064  \u2019\u65e7\u30d0\u30fc\u30b8\u30e7\u30f3\u30f3\u3002\u30c0\u30e1\u3060\u3063\u305f\u3002\u4f7f\u3048\u306a\u3044\u3002\r\n'    Do Until objShell.AppActivate(objExec.ProcessID)\r\n'        Sleep 1000\r\n'        DoEvents\r\n'        Debug.Print objExec.ProcessID\r\n'        Debug.Print objShell.AppActivate(objExec.ProcessID)\r\n'    Loop\r\n\r\n\r\n    s_WindowTitle = WindowTitleGet01(Dir(s_FilePath01))\r\n    '\u2191\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u3092\u53d6\u5f97\u3002\r\n    '\u3000\u3053\u306e\u300cWindowTitleGet01\u300d\u95a2\u6570\u3067\u3042\u308b\u7a0b\u5ea6\u3001\u8d77\u52d5\u3092\u300c\u5f85\u3064\u300d\u3002\r\n    \r\n    Debug.Print s_WindowTitle & \"-----\u2605\u672c\u756a\u30c7\u30fc\u30bf\"\r\n    \r\n    Sleep 500     '\uff08API\uff09\r\n    '\u2191\u3055\u3089\u306b\u5c11\u3057\u5f85\u3064\u3068\u3001\u78ba\u5b9f\uff1f\u306a\u306e\u304b\uff1f\r\n    '\u3000\u3068\u308a\u3042\u3048\u305a\uff12\u79d2\u3082\u3001\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u826f\u3044\u30fb\u30fb\u30fb\u3001\u3063\u307d\u3044\u3002\r\n    \r\n'    Let s_WindowTitle = \"JUST PDF [\u7de8\u96c6] - [1.pdf]\"\r\n    \r\n    AppActivate s_WindowTitle\r\n    '\u2191 \u76ee\u7684\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\r\n    '\u3000\u672c\u5f53\u306b\u52b9\u3044\u3066\u3044\u308b\u306e\u304b\u306f\u5c11\u3005\u7591\u554f\u3002\r\n    '\u3000\u3000\u2192\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u3066\u30c6\u30b9\u30c8\u3057\u305f\u3089\u52d5\u304b\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u7d50\u679c\u3001\u52b9\u3044\u3066\u3044\u305f\u3053\u3068\u306b\u306a\u308b\u3002\r\n    '\u3000\u305f\u3060\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u5834\u5408\u306b\u3088\u3063\u3066\u306f\u3053\u306e\u30b3\u30fc\u30c9\u7121\u304f\u3066\u3082OK\u306a\u30b1\u30fc\u30b9\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u3002\uff08\u672a\u8abf\u67fb\uff09\r\n    \r\n    \r\n'    Debug.Print WindowTitleGet01(Dir(s_FilePath01)) & \"---(A)\"\r\n    \r\n    \r\n    \r\n'    Call app_window_risize01(0, 10, 300, 650)\r\n    Call app_window_risize01(501, 10, 780, 650)\r\n    '\u2191\u76ee\u7684\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30ea\u30b5\u30a4\u30ba\u3002\r\n    \r\n    \r\n'    AppActivate WindowTitleGet01(\"\u30c9\u30e9\u30c3\u30b0\")\r\n'    Debug.Print WindowTitleGet01(\"\u30c9\u30e9\u30c3\u30b0\")\r\n'    '\u2191\u3068\u308a\u3042\u3048\u305a\u306e\u30c6\u30b9\u30c8\u3092\u3057\u305f\u3060\u3051\u3002\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    \r\nEnd Function\r\n\r\n'###################################################################################\r\n'\u30d5\u30a1\u30a4\u30eb\u306e\u8d77\u52d5\uff0b\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u4e8b\u4f8b\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'###################################################################################\r\n\r\n\r\nFunction WindowTitleGet01(s_ChkWord01 As String) As String\r\n\r\n    Dim strCaption As String * 500\r\n    '\u9577\u3055500\u306e\u6587\u5b57\u5217\u578b\u5909\u6570\u306e\u5ba3\u8a00\r\n    \r\n    Do\r\n   \r\n        strCaption = \"\"\r\n        \r\n        hwnd = FindWindow(vbNullString, vbNullString)\r\n        \r\n        \r\n        '\u2193\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u751f\u6210\r\n        Dim caps As Collection\r\n        Dim cap 'As String\r\n        Set caps = New Collection\r\n        Do\r\n            If IsWindowVisible(hwnd) Then\r\n            \r\n                GetWindowText hwnd, strCaption, Len(strCaption)\r\n                \r\n                cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)\r\n                If cap <> \"\" Then\r\n                    caps.Add cap\r\n                End If\r\n                \r\n            End If\r\n        \r\n            hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)\r\n        \r\n        Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)\r\n        '\u2191\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u751f\u6210\r\n        \r\n        \r\n        \r\n        For Each cap In caps\r\n        \r\n'            Debug.Print cap & \"---WTG-Function\"\r\n            \r\n            If 1 <= InStr(1, cap, s_ChkWord01, vbBinaryCompare) Then\r\n                WindowTitleGet01 = cap\r\n                Set caps = Nothing\r\n                Exit Function\r\n            Else\r\n            \r\n            End If\r\n        Next cap\r\n        '\u2191\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u4e2d\u306b\u76ee\u7684\u306e\u691c\u7d22\u6587\u8a00\u3092\u542b\u3080\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u304c\u3042\u308b\u304b\u8abf\u3079\u3001\r\n        '\u3000\u3042\u3063\u305f\u3089\u30e6\u30fc\u30b6\u30fc\u306b\u305d\u308c\u3092\u8fd4\u3057\u3066\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3082\u7d42\u308f\u308b\u3002\r\n        \r\n        Set caps = Nothing\r\n        '\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u6d88\u6ec5\r\n    \r\n    Loop\r\n    \r\nEnd Function\r\n\r\n\r\n'********************************************\r\n'********************************************\r\n'\u4ee5\u4e0b\u3001\uff12\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3002\r\n'********************************************\r\n'********************************************\r\nOption Explicit\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u5927\u5316\u3001\u6700\u5c0f\u5316\u3001\u7b49\u3001\u72b6\u614b\u306e\u53d6\u5f97\u7528\u306e\u5b9a\u7fa9\r\n\r\nPublic Const SW_HIDE = 0\r\nPublic Const SW_SHOWMAXIMIZED = 3\r\nPublic Const SW_SHOWMINIMIZED = 2\r\nPublic Const SW_SHOWNORMAL = 1\r\n\r\n'Type RECT\r\n'    Left As Long\r\n'    Top As Long\r\n'    Right As Long\r\n'    Bottom As Long\r\n'End Type\r\n\r\n'Type POINTAPI\r\n'    X As Long\r\n'    Y As Long\r\n'End Type\r\n\r\n'Type WINDOWPLACEMENT\r\n'    Length As Long\r\n'    Flags As Long\r\n'    ShowCmd As Long\r\n'    PtMinPosition As POINTAPI\r\n'    PtMaxPosition As POINTAPI\r\n'    RcNormalPosition As RECT\r\n'End Type\r\n\r\nPublic Const WPF_RESTORETOMAXIMIZED = &H2\r\nPublic Const WPF_SETMINPOSITION = &H1\r\n\r\n'Declare Function GetWindowPlacement Lib \"user32\" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\n\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u306e\u5927\u304d\u3055\u5909\u66f4\u7528\u306e\u5b9a\u7fa9\r\n\r\n'Public Declare PtrSafe Function GetForegroundWindow _\r\n'    Lib \"user32\" () As Long\r\n\r\n\r\nPublic Declare Function GetForegroundWindow Lib \"user32\" () As Long\r\n\r\nPublic Type POINTAPI\r\n    X As Long\r\n    Y As Long\r\nEnd Type\r\n\r\nPublic Type RECT\r\n    Left As Long\r\n    Top As Long\r\n    Right As Long\r\n    Bottom As Long\r\nEnd Type\r\n\r\nPublic Type WINDOWPLACEMENT\r\n    Length As Long\r\n    Flags As Long\r\n    ShowCmd As Long\r\n    PtMinPosition As POINTAPI\r\n    PtMaxPosition As POINTAPI\r\n    RcNormalPosition As RECT\r\nEnd Type\r\n\r\n'Public Declare PtrSafe Function GetWindowPlacement Lib \"user32\" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long\r\n'Public Declare PtrSafe Function SetWindowPlacement Lib \"user32\" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long\r\n'\r\nPublic Declare Function GetWindowPlacement Lib \"user32\" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\nPublic Declare Function SetWindowPlacement Lib \"user32\" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\n\r\n\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u8868\u793a\u7528\u306e\u5b9a\u7fa9\r\n                                          \r\n' Declare PtrSafe Function FindWindow% Lib \"user32\" Alias \"FindWindowA\" _\r\n'                                          (ByVal lpClassName As Any, _\r\n'                                           ByVal lpCaption As Any)\r\n\r\n Declare Function FindWindow% Lib \"user32\" Alias \"FindWindowA\" _\r\n                                          (ByVal lpClassName As Any, _\r\n                                           ByVal lpCaption As Any)\r\n\r\n\r\n'  Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n'  (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n'\r\n'\r\n' Declare PtrSafe Function SetWindowPos Lib \"user32\" (ByVal hwnd As LongPtr, _\r\n'                                 ByVal hWndInsertAfter As LongPtr, _\r\n'                                 ByVal X As Long, _\r\n'                                 ByVal Y As Long, _\r\n'                                 ByVal cx As Long, _\r\n'                                 ByVal cy As Long, _\r\n'                                 ByVal wFlags As Long) As Long\r\n\r\n\r\n'\u25a0\u25a0\u25a032bit\u4fee\u6b63\u500b\u6240\u3000\u30a8\u30e9\u30fc\u51fa\u308b\u304b\uff1f\u2192\u51fa\u308b\u300232bit\u3067\u306f\u6c38\u9060\u306b\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\r\n'    Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n\u2019    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long\r\n\r\n Declare Function SetWindowPos Lib \"user32\" (ByVal hwnd As Long, _\r\n                                 ByVal hWndInsertAfter As Long, _\r\n                                 ByVal X As Long, _\r\n                                 ByVal Y As Long, _\r\n                                 ByVal cx As Long, _\r\n                                 ByVal cy As Long, _\r\n                                 ByVal wFlags As Long) As Long\r\n\r\n\r\nGlobal Const HWND_TOPMOST = -1   ' \u6700\u5168\u9762\u306b\u8868\u793a\u3059\u308b\r\nGlobal Const HWND_NOTOPMOST = -2 ' \u6700\u524d\u9762\u306b\u8868\u793a\u3059\u308b\u306e\u3092\u3084\u3081\u308b\r\nGlobal Const SWP_NOSIZE = &H1    ' \u30b5\u30a4\u30ba\u3092\u5909\u66f4\u3057\u306a\u3044\r\nGlobal Const SWP_NOMOVE = &H2    ' \u4f4d\u7f6e\u3092\u5909\u66f4\u3057\u306a\u3044\r\n\r\n\r\n\r\n'##########\u3000\u3000Win32API\u306e\u547c\u3073\u51fa\u3057\u306f\u3053\u3053\u307e\u3067\u3000\u3000################################################\r\n\r\n'##########\u3000\u3000\u4ee5\u4e0b\u3001Win32API\u3092\u547c\u3073\u51fa\u3059\u305f\u3081\u306e\u95a2\u6570\uff08Win32API\u3092\u5229\u7528\u3059\u308b\u305f\u3081\u306e\u95a2\u6570\uff09\u3000\u3000################################################\r\n\r\n\r\n\r\n\r\n'######################################################################################\r\n'\u4ed6\u306emdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u6700\u524d\u9762\u306b\u3059\u308b\u95a2\u6570\r\n'win_hwnd \u306b\u306f\u3001\u300cobjAccess.hWndAccessApp\u300d\u306a\u3069\u3067\u53d6\u5f97\u3057\u305f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u5024\uff08Long\u578b\uff09\u3092\u6e21\u3059\r\n'hwnd\u306f Handle Of Window \u306e\u7565\r\n'######################################################################################\r\n\r\nFunction window_most_top_on(win_hwnd As Long)\r\n\r\n   Call SetWindowPos(win_hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n\r\nEnd Function\r\n\r\n'######################################################################################\r\n'\u4ed6\u306emdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u3092\u89e3\u9664\u3059\u308b\u95a2\u6570\r\n'win_hwnd \u306b\u306f\u3001\u300cobjAccess.hWndAccessApp\u300d\u306a\u3069\u3067\u53d6\u5f97\u3057\u305f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u5024\uff08Long\u578b\uff09\u3092\u6e21\u3059\r\n''hwnd\u306f Handle Of Window \u306e\u7565\r\n'######################################################################################\r\n\r\n\r\nFunction window_most_top_off(win_hwnd As Long)\r\n\r\n   Call SetWindowPos(win_hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n\r\nEnd Function\r\n\r\n\r\n'#################################################################\r\n'\u81eamdb\u3092\u6700\u524d\u9762\u306b\u5f37\u5236\u8868\u793a\u3002\r\n'#################################################################\r\nSub MeMdbSaiZenmenOn()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_on(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n'#################################################################\r\n'\u81eamdb\u306e\u6700\u524d\u9762\u3092\u5f37\u5236\u8868\u793a\u89e3\u9664\u3002\r\n'#################################################################\r\nSub MeMdbSaiZenmenOFF()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_off(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n\r\n'######################################################################################\r\n\r\n'\u25cf\u4e0a\u8a18\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u306e\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\nSub testtest()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_off(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n'######################################################################################\r\n\r\n'\u25cf(02)\u81eamdb\u3092\u6700\u524d\u9762\u306b\u3059\u308b\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\nSub test101()\r\n\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call SetWindowPos(objAccess.hWndAccessApp, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n   Set objAccess = Nothing\r\nEnd Sub\r\n\r\n\r\n\r\n'\u25cf(03)\u81eamdb\u306e\u6700\u524d\u9762\u3092\u89e3\u9664\u3059\u308b\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\n\r\nSub test102()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call SetWindowPos(objAccess.hWndAccessApp, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n   Set objAccess = Nothing\r\nEnd Sub\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u305f\u4f55\u3089\u304b\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\r\n'\u30bf\u30a4\u30c8\u30eb\u540d\u304b\u3089\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\u30bf\u30a4\u30c8\u30eb\u540d\u306f\u5168\u90e8\u3058\u3083\u306a\u304f\u3066\u3082\u4e00\u90e8\u3067\u3082OK\u307f\u305f\u3044\u3067\u3059\u3002\r\n'###################################################################\r\n\r\nFunction app_window_risize_for_title_name(active_title_name As String, _\r\n                                          left_position As Integer, _\r\n                                          Top_position As Integer, _\r\n                                          Width_length As Integer, _\r\n                                          Height_length As Integer)\r\n\r\n'    Dim myHwnd As LongPtr  '\u2605\u2605\u2605\u2605\u2605\u2605\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate active_title_name\r\n'    AppActivate \"TeraPad\"\r\n    \r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    Debug.Print \"myHwnd01---\" & myHwnd   '\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\r\n    \r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    \r\n    Debug.Print \"myHwnd02---\" & myHwnd\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u305f\u4f55\u3089\u304b\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\u3002\r\n'\u30bf\u30b9\u30afID(\u30d7\u30ed\u30bb\u30b9ID\uff09\u304b\u3089\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\r\n'###################################################################\r\n\r\nFunction app_window_risize_for_p_id(p_id As Integer, _\r\n                                    left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n'    Dim myHwnd As LongPtr   '\u2605\u2605\u2605\u2605\u2605\u2605\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n    AppActivate p_id\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\n'###################################################################\r\n'\u5358\u7d14\u306b\u81eamdb\u306e\u307f\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\u3002\r\n'\r\n'\r\n'###################################################################\r\n\r\nFunction app_window_risize01(left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n'\r\n'    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate p_id  \u2019\u2190\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\nFunction app_window_risize02(l_GetForegroundWindowNumber, _\r\n                                    left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n'\r\n'    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate p_id\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n'    myHwnd = GetForegroundWindow()\r\n    myHwnd = l_GetForegroundWindowNumber\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u3066\u3044\u308bmdb\u5185\u306e\u30d5\u30a9\u30fc\u30e0\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\r\n'\u4e0a\u8a18\u95a2\u6570\u3092\u5909\u5f62\u3057\u305f\u3060\u3051\u3002\r\n'\u30d5\u30a9\u30fc\u30e0\u540d\u3092\u30e2\u30c8\u306b\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\r\n'###################################################################\r\n\r\nFunction form_api_risize(active_form_name As String, _\r\n                         left_position As Integer, _\r\n                         Top_position As Integer, _\r\n                         Width_length As Integer, _\r\n                         Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n\r\n    '\u30d5\u30a9\u30fc\u30e0\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n     myHwnd = Forms(active_form_name).hwnd\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n'################################################################################\r\n'\u30d5\u30a9\u30fc\u30e0\u306e\u72b6\u614b\u3092\u8abf\u3079\u308b\u95a2\u6570\uff08\u6700\u5927\u5316\u3001\u6700\u5c0f\u5316\u3001\u901a\u5e38\u3001\u975e\u8868\u793a\uff09\r\n'hWnd01 \u306f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u3092\u6307\u5b9a\u3059\u308b\u3002Me.Hwnd \u306a\u3069\u3002\r\n'\r\n'################################################################################\r\n\r\nFunction frm_size_State01(hWnd01 As Long) As String\r\n\r\n    Dim lRet As Long\r\n    Dim lpWnd As WINDOWPLACEMENT\r\n    Dim str01 As String\r\n\r\n    With lpWnd\r\n        .Length = LenB(lpWnd)\r\n        lRet = GetWindowPlacement(hWnd01, lpWnd)\r\n\r\n        'str01 = \"\u30d5\u30a9\u30fc\u30e0\u306e\u8868\u793a\u72b6\u614b\uff1a\"\r\n        If lRet <> 0 Then\r\n            If .ShowCmd = SW_SHOWMINIMIZED Then\r\n'                str01 = str01 & \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u6700\u5c0f\"\r\n            ElseIf .ShowCmd = SW_SHOWMAXIMIZED Then\r\n'                str01 = str01 & \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u6700\u5927\"\r\n            ElseIf .ShowCmd = SW_SHOWNORMAL Then\r\n'                str01 = str01 & \"\u901a\u5e38\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u901a\u5e38\"\r\n            ElseIf .ShowCmd = SW_HIDE Then\r\n'                str01 = str01 & \"\u975e\u8868\u793a\" & vbCrLf\r\n                frm_size_State01 = \"\u975e\u8868\u793a\"\r\n            Else\r\n'                str01 = str01 & \"\u4e0d\u660e\" & vbCrLf\r\n                frm_size_State01 = \"\u4e0d\u660e\"\r\n            End If\r\n\r\n        Else\r\n'            str01 = str01 & \"\u53d6\u5f97\u30a8\u30e9\u30fc\" & vbCrLf\r\n                frm_size_State01 = \"\u53d6\u5f97\u30a8\u30e9\u30fc\"\r\n        End If\r\n    End With\r\n\r\nEnd Function\r\n\r\n'###################################################################\r\n'\u4e0a\u306e\u30b3\u30fc\u30c9\u306e\u571f\u53f0\r\n'###################################################################\r\n\r\nFunction frm_size_State01_test(hWnd01 As Long)\r\n\r\n    Dim lRet As Long\r\n    Dim lpWnd As WINDOWPLACEMENT\r\n    Dim str01 As String\r\n\r\n    With lpWnd\r\n        .Length = LenB(lpWnd)\r\n        lRet = GetWindowPlacement(hWnd01, lpWnd)\r\n\r\n        str01 = \"\u30d5\u30a9\u30fc\u30e0\u306e\u8868\u793a\u72b6\u614b\uff1a\"\r\n        If lRet <> 0 Then\r\n            If .ShowCmd = SW_SHOWMINIMIZED Then\r\n                str01 = str01 & \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_SHOWMAXIMIZED Then\r\n                str01 = str01 & \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_SHOWNORMAL Then\r\n                str01 = str01 & \"\u901a\u5e38\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_HIDE Then\r\n                str01 = str01 & \"\u975e\u8868\u793a\" & vbCrLf\r\n            Else\r\n                str01 = str01 & \"\u4e0d\u660e\" & vbCrLf\r\n            End If\r\n            str01 = str01 & _\r\n                \"\u901a\u5e38\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)-(W,H)\uff1a\" _\r\n                & \"(\" & .RcNormalPosition.Left & \",\" & .RcNormalPosition.Top & \")\" _\r\n                & \"-(\" & .RcNormalPosition.Right & \",\" & .RcNormalPosition.Bottom & \")\" & vbCrLf\r\n            str01 = str01 & _\r\n                \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)\uff1a\" _\r\n                & \"(\" & .PtMaxPosition.X & \",\" & .PtMaxPosition.Y & \")\" & vbCrLf\r\n            str01 = str01 & _\r\n                \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)\uff1a\" _\r\n                & \"(\" & .PtMinPosition.X & \",\" & .PtMinPosition.Y & \")\" & vbCrLf\r\n        Else\r\n            str01 = str01 & \"\u53d6\u5f97\u30a8\u30e9\u30fc\" & vbCrLf\r\n        End If\r\n    End With\r\n\r\n\r\n    Debug.Print str01\r\n\r\nEnd Function\r\n\r\n'#############################################################################\r\n'\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30a6\u30a3\u30f3\u30c9\u30a6\u305f\u3061\u3092\u5de6\u53f3\u306b\u4e26\u3079\u3066\u8868\u793a\u3059\u308b\u95a2\u6570\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n'#############################################################################\r\n\r\nFunction Folder_Open()\r\n\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n    \r\n    Dim objsample As Shell\r\n    Set objsample = New Shell\r\n\r\n    objsample.TileVertically 'Windows\u753b\u9762\u304c\u5206\u5272\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    Set objsample = Nothing '\u958b\u653e\u3057\u307e\u3059\u3002\r\n\r\nEnd Function\r\n\r\n'#############################################################################\r\n'\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30a6\u30a3\u30f3\u30c9\u30a6\u305f\u3061\u3092\u4e0a\u4e0b\u306b\u4e26\u3079\u3066\u8868\u793a\u3059\u308b\u95a2\u6570\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n'#############################################################################\r\n\r\nFunction Folder_Open02()\r\n\r\n    \r\n    Dim objsample01 As Shell\r\n    Set objsample01 = New Shell\r\n\r\n    objsample01.TileHorizontally  'Windows\u753b\u9762\u304c\u5206\u5272\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    Set objsample01 = Nothing '\u958b\u653e\u3057\u307e\u3059\u3002\r\n\r\nEnd Function\r\n\r\n\r\n'\r\n'\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
#####################################################################################<\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u2605 64bit\/32bit\u300c\u517c\u7528\u300d\u306e\uff12\u3064\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/a><\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n\r\n#If Win64 Then\r\n    Private Declare PtrSafe Sub Sleep Lib \"kernel32\" (ByVal ms As Long)\r\n#Else\r\n    Private Declare Sub Sleep Lib \"kernel32\" (ByVal ms As Long)\r\n#End If\r\n'\u2191\u300cSleep\u300d\u95a2\u6570\u3067\u3001\u30df\u30ea\u79d2\u3001\u5f85\u3064\u305f\u3081\u306eAPI\u30b3\u30fc\u30c9\u3002\r\n\r\n\r\n#If Win64 Then\r\n '\u3010GetNextWindow\u95a2\u6570\u3011\r\n    Declare PtrSafe Function GetNextWindow Lib \"user32\" Alias \"GetWindow\" _\r\n    (ByVal hwnd As LongPtr, ByVal wFlag As Long) As LongPtr\r\n \r\n '\u3010IsWindowVisible\u95a2\u6570\u3011\r\n    Declare PtrSafe Function IsWindowVisible Lib \"user32\" _\r\n    (ByVal hwnd As LongPtr) As LongPtr\r\n \r\n '\u3010GetWindowText\u95a2\u6570\u3011\r\n    Declare PtrSafe Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n    (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As LongPtr\r\n \r\n '\u3010FindWindow\u95a2\u6570\u3011\r\n    Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n \r\n    Dim hwnd As LongPtr\r\n    \r\n#Else\r\n '\u3010GetNextWindow\u95a2\u6570\u3011\r\n    Declare Function GetNextWindow Lib \"user32\" Alias \"GetWindow\" _\r\n    (ByVal hwnd As Long, ByVal wFlag As Long) As Long\r\n \r\n '\u3010IsWindowVisible\u95a2\u6570\u3011\r\n    Declare Function IsWindowVisible Lib \"user32\" _\r\n    (ByVal hwnd As Long) As Long\r\n \r\n '\u3010GetWindowText\u95a2\u6570\u3011\r\n    Declare Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" _\r\n    (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long\r\n \r\n '\u3010FindWindow\u95a2\u6570\u3011\r\n    Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long\r\n \r\n    Dim hwnd As Long\r\n \r\n#End If\r\n \r\nConst GW_HWNDLAST = 1\r\nConst GW_HWNDNEXT = 2\r\n\r\n'-------------------------------------------------------------------------------------\r\n'API\u306eWeb\u30da\u30fc\u30b8\u4ed8\u5c5e\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'\u4eca\u56de\u306f\u3001\u3053\u308c\u3092\u7121\u7406\u77e2\u7406\u306b\u95a2\u6570\u5316\u3057\u307e\u3057\u305f\u3002\r\n'-------------------------------------------------------------------------------------\r\nSub main()\r\n \r\n   \r\n    Dim strCaption As String * 500\r\n    \r\n    hwnd = FindWindow(vbNullString, vbNullString)\r\n    \r\n    Dim caps As Collection\r\n    Set caps = New Collection\r\n    Dim cap 'As String\r\n    Do\r\n        If IsWindowVisible(hwnd) Then\r\n        \r\n            GetWindowText hwnd, strCaption, Len(strCaption)\r\n            \r\n            cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)\r\n            If cap <> \"\" Then\r\n                caps.Add cap\r\n            End If\r\n            \r\n        End If\r\n    \r\n        hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)\r\n    \r\n    Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)\r\n    \r\n    For Each cap In caps\r\n        Debug.Print cap\r\n    Next cap\r\n \r\nEnd Sub\r\n\r\n\r\n'###################################################################################\r\n'\u30d5\u30a1\u30a4\u30eb\u306e\u8d77\u52d5\uff0b\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u4e8b\u4f8b\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'###################################################################################\r\n\r\nFunction FileBoot01(s_FilePath01 As String)\r\n\r\n    Dim s_WindowTitle As String\r\n    \r\n    \r\n    '\u30d5\u30a1\u30a4\u30eb\u3092\u8d77\u52d5\u3002\r\n    With CreateObject(\"Shell.Application\")\r\n        .ShellExecute s_FilePath01\r\n    End With\r\n    \r\n    \r\n    \r\n'    ' \u8d77\u52d5\u3092\u5f85\u3064  \u2019\u65e7\u30d0\u30fc\u30b8\u30e7\u30f3\u30f3\u3002\u30c0\u30e1\u3060\u3063\u305f\u3002\u4f7f\u3048\u306a\u3044\u3002\r\n'    Do Until objShell.AppActivate(objExec.ProcessID)\r\n'        Sleep 1000\r\n'        DoEvents\r\n'        Debug.Print objExec.ProcessID\r\n'        Debug.Print objShell.AppActivate(objExec.ProcessID)\r\n'    Loop\r\n\r\n\r\n    s_WindowTitle = WindowTitleGet01(Dir(s_FilePath01))\r\n    '\u2191\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u3092\u53d6\u5f97\u3002\r\n    '\u3000\u3053\u306e\u300cWindowTitleGet01\u300d\u95a2\u6570\u3067\u3042\u308b\u7a0b\u5ea6\u3001\u8d77\u52d5\u3092\u300c\u5f85\u3064\u300d\u3002\r\n    \r\n    Debug.Print s_WindowTitle & \"-----\u2605\u672c\u756a\u30c7\u30fc\u30bf\"\r\n    \r\n    Sleep 500     '\uff08API\uff09\r\n    '\u2191\u3055\u3089\u306b\u5c11\u3057\u5f85\u3064\u3068\u3001\u78ba\u5b9f\uff1f\u306a\u306e\u304b\uff1f\r\n    '\u3000\u3068\u308a\u3042\u3048\u305a\uff12\u79d2\u3082\u3001\uff13\u79d2\u3082\u5f85\u305f\u306a\u304f\u3066\u826f\u3044\u30fb\u30fb\u30fb\u3001\u3063\u307d\u3044\u3002\r\n    \r\n'    Let s_WindowTitle = \"JUST PDF [\u7de8\u96c6] - [1.pdf]\"\r\n    \r\n    AppActivate s_WindowTitle\r\n    '\u2191 \u76ee\u7684\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\r\n    '\u3000\u672c\u5f53\u306b\u52b9\u3044\u3066\u3044\u308b\u306e\u304b\u306f\u5c11\u3005\u7591\u554f\u3002\r\n    '\u3000\u3000\u2192\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u3066\u30c6\u30b9\u30c8\u3057\u305f\u3089\u52d5\u304b\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u7d50\u679c\u3001\u52b9\u3044\u3066\u3044\u305f\u3053\u3068\u306b\u306a\u308b\u3002\r\n    '\u3000\u305f\u3060\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u5834\u5408\u306b\u3088\u3063\u3066\u306f\u3053\u306e\u30b3\u30fc\u30c9\u7121\u304f\u3066\u3082OK\u306a\u30b1\u30fc\u30b9\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u3002\uff08\u672a\u8abf\u67fb\uff09\r\n    \r\n    \r\n'    Debug.Print WindowTitleGet01(Dir(s_FilePath01)) & \"---(A)\"\r\n    \r\n    \r\n    \r\n'    Call app_window_risize01(0, 10, 300, 650)\r\n    Call app_window_risize01(501, 10, 780, 650)\r\n    '\u2191\u76ee\u7684\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30ea\u30b5\u30a4\u30ba\u3002\r\n    \r\n    \r\n'    AppActivate WindowTitleGet01(\"\u30c9\u30e9\u30c3\u30b0\")\r\n'    Debug.Print WindowTitleGet01(\"\u30c9\u30e9\u30c3\u30b0\")\r\n'    '\u2191\u3068\u308a\u3042\u3048\u305a\u306e\u30c6\u30b9\u30c8\u3092\u3057\u305f\u3060\u3051\u3002\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    \r\nEnd Function\r\n\r\n'###################################################################################\r\n'\u30d5\u30a1\u30a4\u30eb\u306e\u8d77\u52d5\uff0b\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u4e8b\u4f8b\u30d7\u30ed\u30b0\u30e9\u30e0\r\n'###################################################################################\r\n\r\n\r\nFunction WindowTitleGet01(s_ChkWord01 As String) As String\r\n\r\n    Dim strCaption As String * 500\r\n    '\u9577\u3055500\u306e\u6587\u5b57\u5217\u578b\u5909\u6570\u306e\u5ba3\u8a00\r\n    \r\n    Do\r\n   \r\n        strCaption = \"\"\r\n        \r\n        hwnd = FindWindow(vbNullString, vbNullString)\r\n        \r\n        \r\n        '\u2193\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u751f\u6210\r\n        Dim caps As Collection\r\n        Dim cap 'As String\r\n        Set caps = New Collection\r\n        Do\r\n            If IsWindowVisible(hwnd) Then\r\n            \r\n                GetWindowText hwnd, strCaption, Len(strCaption)\r\n                \r\n                cap = Left(strCaption, InStr(strCaption, vbNullChar) - 1)\r\n                If cap <> \"\" Then\r\n                    caps.Add cap\r\n                End If\r\n                \r\n            End If\r\n        \r\n            hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)\r\n        \r\n        Loop Until hwnd = GetNextWindow(hwnd, GW_HWNDLAST)\r\n        '\u2191\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u751f\u6210\r\n        \r\n        \r\n        \r\n        For Each cap In caps\r\n        \r\n'            Debug.Print cap & \"---WTG-Function\"\r\n            \r\n            If 1 <= InStr(1, cap, s_ChkWord01, vbBinaryCompare) Then\r\n                WindowTitleGet01 = cap\r\n                Set caps = Nothing\r\n                Exit Function\r\n            Else\r\n            \r\n            End If\r\n        Next cap\r\n        '\u2191\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u4e2d\u306b\u76ee\u7684\u306e\u691c\u7d22\u6587\u8a00\u3092\u542b\u3080\u30a6\u30a3\u30f3\u30c9\u30a6\u30bf\u30a4\u30c8\u30eb\u304c\u3042\u308b\u304b\u8abf\u3079\u3001\r\n        '\u3000\u3042\u3063\u305f\u3089\u30e6\u30fc\u30b6\u30fc\u306b\u305d\u308c\u3092\u8fd4\u3057\u3066\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3082\u7d42\u308f\u308b\u3002\r\n        \r\n        Set caps = Nothing\r\n        '\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u6d88\u6ec5\r\n    \r\n    Loop\r\n    \r\nEnd Function\r\n\r\n\r\n'********************************************\r\n'********************************************\r\n'\u4ee5\u4e0b\u3001\uff12\u3064\u3081\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3002\r\n'********************************************\r\n'********************************************\r\n\r\nOption Explicit\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u5927\u5316\u3001\u6700\u5c0f\u5316\u3001\u7b49\u3001\u72b6\u614b\u306e\u53d6\u5f97\u7528\u306e\u5b9a\u7fa9\r\n\r\nPublic Const SW_HIDE = 0\r\nPublic Const SW_SHOWMAXIMIZED = 3\r\nPublic Const SW_SHOWMINIMIZED = 2\r\nPublic Const SW_SHOWNORMAL = 1\r\n\r\n'Type RECT\r\n'    Left As Long\r\n'    Top As Long\r\n'    Right As Long\r\n'    Bottom As Long\r\n'End Type\r\n\r\n'Type POINTAPI\r\n'    X As Long\r\n'    Y As Long\r\n'End Type\r\n\r\n'Type WINDOWPLACEMENT\r\n'    Length As Long\r\n'    Flags As Long\r\n'    ShowCmd As Long\r\n'    PtMinPosition As POINTAPI\r\n'    PtMaxPosition As POINTAPI\r\n'    RcNormalPosition As RECT\r\n'End Type\r\n\r\nPublic Const WPF_RESTORETOMAXIMIZED = &H2\r\nPublic Const WPF_SETMINPOSITION = &H1\r\n\r\n'Declare Function GetWindowPlacement Lib \"user32\" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\n\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u306e\u5927\u304d\u3055\u5909\u66f4\u7528\u306e\u5b9a\u7fa9\r\n\r\n#If Win64 Then\r\n    Public Declare PtrSafe Function GetForegroundWindow Lib \"user32\" () As Long\r\n#Else\r\n    Public Declare Function GetForegroundWindow Lib \"user32\" () As Long\r\n#End If\r\n\r\n\r\n\r\nPublic Type POINTAPI\r\n    X As Long\r\n    Y As Long\r\nEnd Type\r\n\r\nPublic Type RECT\r\n    Left As Long\r\n    Top As Long\r\n    Right As Long\r\n    Bottom As Long\r\nEnd Type\r\n\r\nPublic Type WINDOWPLACEMENT\r\n    Length As Long\r\n    Flags As Long\r\n    ShowCmd As Long\r\n    PtMinPosition As POINTAPI\r\n    PtMaxPosition As POINTAPI\r\n    RcNormalPosition As RECT\r\nEnd Type\r\n\r\n\r\n#If Win64 Then\r\n    Public Declare PtrSafe Function GetWindowPlacement Lib \"user32\" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long\r\n    Public Declare PtrSafe Function SetWindowPlacement Lib \"user32\" (ByVal hwnd As LongPtr, lpwndpl As WINDOWPLACEMENT) As Long\r\n#Else\r\n    Public Declare Function GetWindowPlacement Lib \"user32\" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\n    Public Declare Function SetWindowPlacement Lib \"user32\" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long\r\n#End If\r\n\r\n\r\n'\u25cfWin64API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u8868\u793a\u7528\u306e\u5b9a\u7fa9\r\n                                          \r\n#If Win64 Then\r\n    Declare PtrSafe Function FindWindow% Lib \"user32\" Alias \"FindWindowA\" _\r\n                                              (ByVal lpClassName As Any, _\r\n                                               ByVal lpCaption As Any)\r\n                                               \r\n'\u25a0\u300c\u540d\u524d\u304c\u9069\u5207\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u300d\u306e\u30a8\u30e9\u30fc\u304c\u51fa\u308b\u306e\u3067\u3001\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n'\u3000\u3000\u3000\uff08\u3069\u3053\u3068\u304b\u3076\u3063\u3066\u308b\u304b\u306f\u672a\u30c1\u30a7\u30c3\u30af\u3067\u3059\u3002\u591a\u5206\u3001\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\r\n'        64bit\u306e\u5206\u5c90\u306e\u300cDeclare PtrSafe Function FindWindow\u300d\u3002\uff09\r\n\r\n'    Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n'      (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n    \r\n    \r\n    Declare PtrSafe Function SetWindowPos Lib \"user32\" (ByVal hwnd As LongPtr, _\r\n                                     ByVal hWndInsertAfter As LongPtr, _\r\n                                     ByVal X As Long, _\r\n                                     ByVal Y As Long, _\r\n                                     ByVal cx As Long, _\r\n                                     ByVal cy As Long, _\r\n                                     ByVal wFlags As Long) As Long\r\n#Else\r\n\r\n    Declare Function FindWindow% Lib \"user32\" Alias \"FindWindowA\" _\r\n                                              (ByVal lpClassName As Any, _\r\n                                               ByVal lpCaption As Any)\r\n                                               \r\n\r\n    '\u25a0\u25a0\u30c1\u30a7\u30c3\u30af\u7528\u3002\u6c38\u9060\u306b\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\r\n'    Declare PtrSafe Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n'         (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr\r\n                                         \r\n'\u25a0\u300c\u540d\u524d\u304c\u9069\u5207\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u300d\u306e\u30a8\u30e9\u30fc\u304c\u51fa\u308b\u306e\u3067\u3001\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n'\u3000\u3000\u3000\uff08\u3069\u3053\u3068\u304b\u3076\u3063\u3066\u308b\u304b\u306f\u672a\u30c1\u30a7\u30c3\u30af\u3067\u3059\u3002\u591a\u5206\u3001\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\r\n'        32bit\u306e\u5206\u5c90\u306e\u300cDeclare PtrSafe Function FindWindow\u300d\u3002\uff09\r\n\r\n'    Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" _\r\n'          (ByVal lpClassName As String, ByVal lpWindowName As String) As Long\r\n                                        \r\n    Declare Function SetWindowPos Lib \"user32\" (ByVal hwnd As Long, _\r\n                                     ByVal hWndInsertAfter As Long, _\r\n                                     ByVal X As Long, _\r\n                                     ByVal Y As Long, _\r\n                                     ByVal cx As Long, _\r\n                                     ByVal cy As Long, _\r\n                                     ByVal wFlags As Long) As Long\r\n                                    \r\n                                    \r\n#End If\r\n\r\n\r\nGlobal Const HWND_TOPMOST = -1   ' \u6700\u5168\u9762\u306b\u8868\u793a\u3059\u308b\r\nGlobal Const HWND_NOTOPMOST = -2 ' \u6700\u524d\u9762\u306b\u8868\u793a\u3059\u308b\u306e\u3092\u3084\u3081\u308b\r\nGlobal Const SWP_NOSIZE = &H1    ' \u30b5\u30a4\u30ba\u3092\u5909\u66f4\u3057\u306a\u3044\r\nGlobal Const SWP_NOMOVE = &H2    ' \u4f4d\u7f6e\u3092\u5909\u66f4\u3057\u306a\u3044\r\n\r\n\r\n\r\n'##########\u3000\u3000Win64\/32API\u306e\u547c\u3073\u51fa\u3057\u306f\u3053\u3053\u307e\u3067\u3000\u3000################################################\r\n\r\n'##########\u3000\u3000\u4ee5\u4e0b\u3001Win64\/32API\u3092\u547c\u3073\u51fa\u3059\u305f\u3081\u306e\u95a2\u6570\uff08Win64\/32API\u3092\u5229\u7528\u3059\u308b\u305f\u3081\u306e\u95a2\u6570\uff09\u3000\u3000################################################\r\n\r\n\r\n\r\n\r\n'######################################################################################\r\n'\u4ed6\u306emdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u6700\u524d\u9762\u306b\u3059\u308b\u95a2\u6570\r\n'win_hwnd \u306b\u306f\u3001\u300cobjAccess.hWndAccessApp\u300d\u306a\u3069\u3067\u53d6\u5f97\u3057\u305f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u5024\uff08Long\u578b\uff09\u3092\u6e21\u3059\r\n'hwnd\u306f Handle Of Window \u306e\u7565\r\n'######################################################################################\r\n\r\nFunction window_most_top_on(win_hwnd As Long)\r\n\r\n   Call SetWindowPos(win_hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n\r\nEnd Function\r\n\r\n'######################################################################################\r\n'\u4ed6\u306emdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u3092\u89e3\u9664\u3059\u308b\u95a2\u6570\r\n'win_hwnd \u306b\u306f\u3001\u300cobjAccess.hWndAccessApp\u300d\u306a\u3069\u3067\u53d6\u5f97\u3057\u305f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u5024\uff08Long\u578b\uff09\u3092\u6e21\u3059\r\n''hwnd\u306f Handle Of Window \u306e\u7565\r\n'######################################################################################\r\n\r\n\r\nFunction window_most_top_off(win_hwnd As Long)\r\n\r\n   Call SetWindowPos(win_hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n\r\nEnd Function\r\n\r\n\r\n'#################################################################\r\n'\u81eamdb\u3092\u6700\u524d\u9762\u306b\u5f37\u5236\u8868\u793a\u3002\r\n'#################################################################\r\nSub MeMdbSaiZenmenOn()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_on(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n'#################################################################\r\n'\u81eamdb\u306e\u6700\u524d\u9762\u3092\u5f37\u5236\u8868\u793a\u89e3\u9664\u3002\r\n'#################################################################\r\nSub MeMdbSaiZenmenOFF()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_off(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n\r\n'######################################################################################\r\n\r\n'\u25cf\u4e0a\u8a18\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u306e\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\nSub testtest()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call window_most_top_off(objAccess.hWndAccessApp)\r\nEnd Sub\r\n\r\n'######################################################################################\r\n\r\n'\u25cf(02)\u81eamdb\u3092\u6700\u524d\u9762\u306b\u3059\u308b\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\nSub test101()\r\n\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call SetWindowPos(objAccess.hWndAccessApp, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n   Set objAccess = Nothing\r\nEnd Sub\r\n\r\n\r\n\r\n'\u25cf(03)\u81eamdb\u306e\u6700\u524d\u9762\u3092\u89e3\u9664\u3059\u308b\u4f7f\u7528\u4f8b\u306e\u30b3\u30fc\u30c9\r\n\r\nSub test102()\r\n   Dim objAccess As Access.Application\r\n   Set objAccess = CurrentProject.Application\r\n   Call SetWindowPos(objAccess.hWndAccessApp, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)\r\n   Set objAccess = Nothing\r\nEnd Sub\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u305f\u4f55\u3089\u304b\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\r\n'\u30bf\u30a4\u30c8\u30eb\u540d\u304b\u3089\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\u30bf\u30a4\u30c8\u30eb\u540d\u306f\u5168\u90e8\u3058\u3083\u306a\u304f\u3066\u3082\u4e00\u90e8\u3067\u3082OK\u307f\u305f\u3044\u3067\u3059\u3002\r\n'###################################################################\r\n\r\nFunction app_window_risize_for_title_name(active_title_name As String, _\r\n                                          left_position As Integer, _\r\n                                          Top_position As Integer, _\r\n                                          Width_length As Integer, _\r\n                                          Height_length As Integer)\r\n    \r\n    \r\n''    Dim myHwnd As LongPtr '\u25cf\u25cf\u25cf\u25cf\r\n'    Dim myHwnd As Long\r\n\r\n    #If Win64 Then\r\n        Dim myHwnd As LongPtr '\u25cf\u25cf\u25cf\u25cf64bit\u7528\r\n    #Else\r\n        Dim myHwnd As Long '32bit\u7528\r\n    #End If\r\n\r\n\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate active_title_name\r\n'    AppActivate \"TeraPad\"\r\n    \r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    Debug.Print \"myHwnd01---\" & myHwnd '\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\r\n    \r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    \r\n    Debug.Print \"myHwnd02---\" & myHwnd\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u305f\u4f55\u3089\u304b\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\u3002\r\n'\u30bf\u30b9\u30afID(\u30d7\u30ed\u30bb\u30b9ID\uff09\u304b\u3089\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\r\n'###################################################################\r\n\r\nFunction app_window_risize_for_p_id(p_id As Integer, _\r\n                                    left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n''    Dim myHwnd As LongPtr '\u25cf\u25cf\u25cf\u25cf\r\n'    Dim myHwnd As Long\r\n\r\n    #If Win64 Then\r\n        Dim myHwnd As LongPtr '\u25cf\u25cf\u25cf\u25cf64bit\u7528\r\n    #Else\r\n        Dim myHwnd As Long '32bit\u7528\r\n    #End If\r\n\r\n\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n    AppActivate p_id\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\n'###################################################################\r\n'\u5358\u7d14\u306b\u81eamdb\u306e\u307f\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\u3002\r\n'\r\n'\r\n'###################################################################\r\n\r\nFunction app_window_risize01(left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n'\r\n'    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate p_id  \u2019\u2190\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n    myHwnd = GetForegroundWindow()\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n\r\nFunction app_window_risize02(l_GetForegroundWindowNumber, _\r\n                                    left_position As Integer, _\r\n                                    Top_position As Integer, _\r\n                                    Width_length As Integer, _\r\n                                    Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n'\r\n'    '\u5bfe\u8c61\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u3002\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3057\u306a\u3044\u3068\u52d5\u304b\u306a\u3044\u3002\r\n'    AppActivate p_id\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n'    myHwnd = GetForegroundWindow()\r\n    myHwnd = l_GetForegroundWindowNumber\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n\r\n'###################################################################\r\n'\u958b\u3044\u3066\u3044\u308bmdb\u5185\u306e\u30d5\u30a9\u30fc\u30e0\u3092\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u95a2\u6570\r\n'\u4e0a\u8a18\u95a2\u6570\u3092\u5909\u5f62\u3057\u305f\u3060\u3051\u3002\r\n'\u30d5\u30a9\u30fc\u30e0\u540d\u3092\u30e2\u30c8\u306b\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u3002\r\n'\r\n'###################################################################\r\n\r\nFunction form_api_risize(active_form_name As String, _\r\n                         left_position As Integer, _\r\n                         Top_position As Integer, _\r\n                         Width_length As Integer, _\r\n                         Height_length As Integer)\r\n\r\n    Dim myHwnd As Long\r\n    Dim myWindowPlacement As WINDOWPLACEMENT\r\n\r\n\r\n\r\n    '\u30d5\u30a9\u30fc\u30e0\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u306e\u53d6\u5f97\r\n     myHwnd = Forms(active_form_name).hwnd\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u306e\u53d6\u5f97\r\n    GetWindowPlacement myHwnd, myWindowPlacement\r\n\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u60c5\u5831\u3092\u5909\u66f4\u3057\u3066\u8a2d\u5b9a\r\n    With myWindowPlacement.RcNormalPosition\r\n        .Left = left_position\r\n        .Top = Top_position\r\n        .Right = Width_length + left_position\r\n        .Bottom = Height_length + Top_position\r\n    End With\r\n    SetWindowPlacement myHwnd, myWindowPlacement\r\n\r\nEnd Function\r\n\r\n'################################################################################\r\n'\u30d5\u30a9\u30fc\u30e0\u306e\u72b6\u614b\u3092\u8abf\u3079\u308b\u95a2\u6570\uff08\u6700\u5927\u5316\u3001\u6700\u5c0f\u5316\u3001\u901a\u5e38\u3001\u975e\u8868\u793a\uff09\r\n'hWnd01 \u306f\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u3092\u6307\u5b9a\u3059\u308b\u3002Me.Hwnd \u306a\u3069\u3002\r\n'\r\n'################################################################################\r\n\r\nFunction frm_size_State01(hWnd01 As Long) As String\r\n\r\n    Dim lRet As Long\r\n    Dim lpWnd As WINDOWPLACEMENT\r\n    Dim str01 As String\r\n\r\n    With lpWnd\r\n        .Length = LenB(lpWnd)\r\n        lRet = GetWindowPlacement(hWnd01, lpWnd)\r\n\r\n        'str01 = \"\u30d5\u30a9\u30fc\u30e0\u306e\u8868\u793a\u72b6\u614b\uff1a\"\r\n        If lRet <> 0 Then\r\n            If .ShowCmd = SW_SHOWMINIMIZED Then\r\n'                str01 = str01 & \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u6700\u5c0f\"\r\n            ElseIf .ShowCmd = SW_SHOWMAXIMIZED Then\r\n'                str01 = str01 & \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u6700\u5927\"\r\n            ElseIf .ShowCmd = SW_SHOWNORMAL Then\r\n'                str01 = str01 & \"\u901a\u5e38\u30b5\u30a4\u30ba\" & vbCrLf\r\n                frm_size_State01 = \"\u901a\u5e38\"\r\n            ElseIf .ShowCmd = SW_HIDE Then\r\n'                str01 = str01 & \"\u975e\u8868\u793a\" & vbCrLf\r\n                frm_size_State01 = \"\u975e\u8868\u793a\"\r\n            Else\r\n'                str01 = str01 & \"\u4e0d\u660e\" & vbCrLf\r\n                frm_size_State01 = \"\u4e0d\u660e\"\r\n            End If\r\n\r\n        Else\r\n'            str01 = str01 & \"\u53d6\u5f97\u30a8\u30e9\u30fc\" & vbCrLf\r\n                frm_size_State01 = \"\u53d6\u5f97\u30a8\u30e9\u30fc\"\r\n        End If\r\n    End With\r\n\r\nEnd Function\r\n\r\n'###################################################################\r\n'\u4e0a\u306e\u30b3\u30fc\u30c9\u306e\u571f\u53f0\r\n'###################################################################\r\n\r\nFunction frm_size_State01_test(hWnd01 As Long)\r\n\r\n    Dim lRet As Long\r\n    Dim lpWnd As WINDOWPLACEMENT\r\n    Dim str01 As String\r\n\r\n    With lpWnd\r\n        .Length = LenB(lpWnd)\r\n        lRet = GetWindowPlacement(hWnd01, lpWnd)\r\n\r\n        str01 = \"\u30d5\u30a9\u30fc\u30e0\u306e\u8868\u793a\u72b6\u614b\uff1a\"\r\n        If lRet <> 0 Then\r\n            If .ShowCmd = SW_SHOWMINIMIZED Then\r\n                str01 = str01 & \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_SHOWMAXIMIZED Then\r\n                str01 = str01 & \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_SHOWNORMAL Then\r\n                str01 = str01 & \"\u901a\u5e38\u30b5\u30a4\u30ba\" & vbCrLf\r\n            ElseIf .ShowCmd = SW_HIDE Then\r\n                str01 = str01 & \"\u975e\u8868\u793a\" & vbCrLf\r\n            Else\r\n                str01 = str01 & \"\u4e0d\u660e\" & vbCrLf\r\n            End If\r\n            str01 = str01 & _\r\n                \"\u901a\u5e38\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)-(W,H)\uff1a\" _\r\n                & \"(\" & .RcNormalPosition.Left & \",\" & .RcNormalPosition.Top & \")\" _\r\n                & \"-(\" & .RcNormalPosition.Right & \",\" & .RcNormalPosition.Bottom & \")\" & vbCrLf\r\n            str01 = str01 & _\r\n                \"\u6700\u5927\u5316\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)\uff1a\" _\r\n                & \"(\" & .PtMaxPosition.X & \",\" & .PtMaxPosition.Y & \")\" & vbCrLf\r\n            str01 = str01 & _\r\n                \"\u6700\u5c0f\u5316\u30b5\u30a4\u30ba\u6642\u306e\u5ea7\u6a19(L,T)\uff1a\" _\r\n                & \"(\" & .PtMinPosition.X & \",\" & .PtMinPosition.Y & \")\" & vbCrLf\r\n        Else\r\n            str01 = str01 & \"\u53d6\u5f97\u30a8\u30e9\u30fc\" & vbCrLf\r\n        End If\r\n    End With\r\n\r\n\r\n    Debug.Print str01\r\n\r\nEnd Function\r\n\r\n'#############################################################################\r\n'\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30a6\u30a3\u30f3\u30c9\u30a6\u305f\u3061\u3092\u5de6\u53f3\u306b\u4e26\u3079\u3066\u8868\u793a\u3059\u308b\u95a2\u6570\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n'#############################################################################\r\n\r\nFunction Folder_Open()\r\n\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n    \r\n    Dim objsample As Shell\r\n    Set objsample = New Shell\r\n\r\n    objsample.TileVertically 'Windows\u753b\u9762\u304c\u5206\u5272\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    Set objsample = Nothing '\u958b\u653e\u3057\u307e\u3059\u3002\r\n\r\nEnd Function\r\n\r\n'#############################################################################\r\n'\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30a6\u30a3\u30f3\u30c9\u30a6\u305f\u3061\u3092\u4e0a\u4e0b\u306b\u4e26\u3079\u3066\u8868\u793a\u3059\u308b\u95a2\u6570\r\n    '\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\r\n    '\u300cMicrosoft Shell Controls And Automation\u300d\u306b\r\n    '\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002\r\n'#############################################################################\r\n\r\nFunction Folder_Open02()\r\n\r\n    \r\n    Dim objsample01 As Shell\r\n    Set objsample01 = New Shell\r\n\r\n    objsample01.TileHorizontally  'Windows\u753b\u9762\u304c\u5206\u5272\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    Set objsample01 = Nothing '\u958b\u653e\u3057\u307e\u3059\u3002\r\n\r\nEnd Function\r\n\r\n\r\n'\r\n'\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u96fb\u5e33\u6cd5\u7d22\u5f15\u7c3f\u306a\u3069\u3067\u4f7f\u3048\u308b\uff1f\uff3fVBA\uff0864bit\u306e\u307f\uff09\u30fb\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304f\u307e\u3067\u5f85\u3063\u3066AppActivate\u3057\u305f\u306e\u3061\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u30b5\u30a4\u30ba\u3092API\u3067\u30ea\u30b5\u30a4\u30ba\u3059\u308b\u30b3\u30fc\u30c9\u3002\u7d50\u5c40Sleep\u95a2\u6570\u3067\u5f85\u3064\u3053\u3068\u304c\u5fc5\u8981\u3060\u3063\u305f\u3051\u3069\u3001\uff12\u79d2\u3082\uff13\u79d2 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1950"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1950"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1950\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1950"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1950"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}