{"id":1453,"date":"2018-09-11T16:38:01","date_gmt":"2018-09-11T07:38:01","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1453"},"modified":"2019-03-01T20:08:20","modified_gmt":"2019-03-01T11:08:20","slug":"access2000tips-win32-api-window-ope01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/access2000tips-win32-api-window-ope01","title":{"rendered":"Access2000Tips Win32 API \u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092Access\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u5927\u304d\u3055\u306e\u5909\u5316\u306b\u4f34\u3044\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u305f\u308a\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u81ea\u4f53\u3092\u5909\u66f4\u3057\u305f\u308a\u3001\u6700\u524d\u9762\u3092\u56fa\u5b9a\u5316\u3057\u305f\u308a\u3001\u306e\u65b9\u6cd5"},"content":{"rendered":"<p>\u25cf Access2000Tips Win32 API \u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092Access\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u5927\u304d\u3055\u306e\u5909\u5316\u306b\u4f34\u3044\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u305f\u308a\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u81ea\u4f53\u3092\u5909\u66f4\u3057\u305f\u308a\u3001\u6700\u524d\u9762\u3092\u56fa\u5b9a\u5316\u3057\u305f\u308a\u3001\u306e\u65b9\u6cd5<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u30b5\u30f3\u30d7\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/access2000tips-win32-api-window-ope-sample-download01\" target=\"_blank\" rel=\"noopener noreferrer\">Access2000Tips Win32 API \u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092Access\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u5927\u304d\u3055\u306e\u5909\u5316\u306b\u4f34\u3044\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u305f\u308a\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u81ea\u4f53\u3092\u5909\u66f4\u3057\u305f\u308a\u3001\u6700\u524d\u9762\u3092\u56fa\u5b9a\u5316\u3057\u305f\u308a\u3001\u306e\u30b5\u30f3\u30d7\u30eb\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a><br \/>\n\uff08ESET\u3067\u30a6\u30a3\u30eb\u30b9\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3042\u308a\u307e\u3059\uff09<\/p>\n<p>(01)\u300c<a href=\"http:\/\/euc-access-excel-db.com\/00000WPZIP\/subform_fit_sample.zip\" target=\"_blank\" rel=\"noopener noreferrer\">\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u30d5\u30a3\u30c3\u30c8\u4f8b.mdb<\/a>\u300d<br \/>\n\uff08\u5916\u5074\u306e\u300c\u30ac\u30ef\uff08\uff1d\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u30a6\u30a3\u30f3\u30c9\u30a6\uff09\u300d\u306e\u5927\u304d\u3055\u306e\u81ea\u52d5\u5909\u66f4\u306e\u30b5\u30f3\u30d7\u30eb\u3082\u540c\u3058\u30d5\u30a9\u30fc\u30e0\u306e\u4e2d\u306b\u4f5c\u308a\u307e\u3057\u305f\u3002\uff09<\/p>\n<p>(02)\u300c<a href=\"http:\/\/euc-access-excel-db.com\/00000WPZIP\/access2000_runtime.zip\" target=\"_blank\" rel=\"noopener noreferrer\">Access2000\u30e9\u30f3\u30bf\u30a4\u30e0\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a>\u300d<\/p>\n<p>\u203b\u30e9\u30f3\u30bf\u30a4\u30e0\u306f\u30d0\u30fc\u30b8\u30e7\u30f32000\u306e\u3082\u306e\u3067\u3059\u3002Access2000\u3092\u6301\u3063\u3066\u3044\u306a\u3044\u65b9\u3067\u3082\u3001\u30b5\u30f3\u30d7\u30eb\u306emdb\uff08\u3053\u3053\u3067\u306f\u300c\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u30d5\u30a3\u30c3\u30c8\u4f8b.mdb\u300d\uff09\u306e\u52d5\u4f5c\u306e\u78ba\u8a8d\u3092\u3057\u3066\u3044\u305f\u3060\u3051\u307e\u3059\u3002<br \/>\n\u305f\u3060\u3001Win10\u3067\u52d5\u304f\u304b\u306f\u307e\u3060\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3044\u307e\u305b\u3093\u3002\u4eee\u60f3\u30de\u30b7\u30f3\u306eXP\u306a\u3069\u3067\u52d5\u304b\u3059\u307b\u3046\u304c\u78ba\u5b9f\u304b\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u306a\u304a\u3001\u4eee\u60f3\u30de\u30b7\u30f3\u306e\u4e2d\u3067\u306fAccess\u30e9\u30f3\u30bf\u30a4\u30e0\u3067\u306e\u52d5\u4f5c\u3067\u306f\u3001\u300cAccess\u30a6\u30a3\u30f3\u30c9\u30a6\uff08\u30ac\u30ef\uff09\u306e\u5927\u304d\u3055\u3092\u5909\u3048\u308b\u300d\u30dc\u30bf\u30f3\u3067\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002\u305d\u306e\u307b\u304b\u306f\u52d5\u304f\u3088\u3046\u3067\u3059\u3002\u4eee\u60f3\u30de\u30b7\u30f3\u3067\u306a\u3044\u30de\u30b7\u30f3\u4e0a\u3067\u6b63\u5e38\u52d5\u4f5c\u3059\u308b\u304b\u3082\u30c1\u30a7\u30c3\u30af\u306f\u3057\u3066\u3044\u307e\u305b\u3093\u3002<br \/>\n\u30e9\u30f3\u30bf\u30a4\u30e0\u3067\u306f\u306a\u3044Access2000\u306a\u3089\u30a8\u30e9\u30fc\u306b\u306f\u306a\u3089\u306a\u3044\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-09-12---12-00-31.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-09-12---12-00-31.jpg\" alt=\"\" width=\"70%\" height=\"70%\" ><\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-09-12---12-09-13.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-09-12---12-09-13.jpg\" alt=\"\" width=\"70%\" height=\"70%\" ><\/a><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u3000\u3000\u3000\u2191<br \/>\n\u3000\u3000\u3000\u2193<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-09-12---12-10-22.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-09-12---12-10-22.jpg\" alt=\"\" width=\"70%\" height=\"70%\" ><\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u3001Access\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u30921\u500b\u3064\u304f\u3063\u3066\u30b3\u30d4\u30da\u3057\u3066\u4f7f\u3063\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u30a4\u30d9\u30f3\u30c8\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3084\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u304b\u3089\u547c\u3073\u51fa\u305b\u3070\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>(a)\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092Access\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u5927\u304d\u3055\u306e\u5909\u5316\u306b\u4f34\u3063\u3066<br \/>\n\u3000\u3000\u9023\u52d5\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u308b\u5834\u5408\u306e\u3001\u6700\u5c0f\u5316\u6642\u306e\u30a8\u30e9\u30fc\u3084CPU\u4f7f\u7528\u7387100%\u306e\u56de\u907f<br \/>\n(b)\u81eamdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u81ea\u4f53\u3092\u5909\u66f4<br \/>\n(c)\u4ed6mdb\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u3092\u5909\u66f4<br \/>\n(d)\u30e1\u30e2\u5e33\u306a\u3069\u306e\u4ed6\u306e\u30bd\u30d5\u30c8\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u3092Access\u304b\u3089\u5909\u66f4<br \/>\n(e)\u81eamdb\u306e\u753b\u9762\uff08Access\u753b\u9762\u4e38\u3054\u3068\uff09\u306e\u300c\u6700\u524d\u9762\u300d\u8a2d\u5b9a\u306e\u56fa\u5b9a\u5316<br \/>\n(f)\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u306b\u958b\u3044\u3066\u3044\u308b\u5404\u30bd\u30d5\u30c8\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u5de6\u53f3\u306b\u4e26\u3079\u308b\uff084\u5206\u5272\u4ee5\u4e0a\uff09<br \/>\n(g)\u540c\u3058\u304f\u4e0a\u4e0b\u306b\u4e26\u3079\u308b<\/p>\n<p>\u203b \u6700\u5f8c\u306e2\u3064\u306e(f)\u3068(g)\u306f\u3001\u4e8b\u524d\u306b\u3001VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u3066\u300cMicrosoft Shell Controls And Automation\u300d\u306b\u7167\u8a2d\u5b9a\u3092\u3057\u3066\u304a\u304d\u307e\u3059\u3002API\u3068\u306f\u95a2\u4fc2\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Compare Database\r\nOption Explicit\r\n\r\n'\u25cfWin32API\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'\u25cfWin32API\u3000\u30a6\u30a3\u30f3\u30c9\u306e\u5927\u304d\u3055\u5909\u66f4\u7528\u306e\u5b9a\u7fa9\r\n\r\nPublic Declare 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 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'\u25cfWin32API\u3000\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u6700\u524d\u9762\u8868\u793a\u7528\u306e\u5b9a\u7fa9\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 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'\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 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, False\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'\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 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, False\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'\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<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092\u3001\u300c\u30ac\u30ef\uff08\u89aa\uff09\u300d\u306eAccess\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u5927\u304d\u3055\u306e\u5909\u5316\u306b\u5408\u308f\u305b\u3066\u3001\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u308b\u30b3\u30fc\u30c9\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002<br \/>\n\u30d5\u30a9\u30fc\u30e0\u306e\u300c\u30ea\u30b5\u30a4\u30ba\u300d\u306e\u30a4\u30d9\u30f3\u30c8\u306b\u66f8\u304d\u307e\u3059\u3002<\/p>\n<p>\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u3092\u6301\u3064\u30d5\u30a9\u30fc\u30e0\u306b\u66f8\u304d\u307e\u3059\u3002<br \/>\n\u300cPrivate Sub Form_Resize()\u300d\u3068\u300cEnd Sub\u300d\u306f\u629c\u3044\u3066\u3001\u4e2d\u8eab\u3060\u3051\u3092\u30b3\u30d4\u30da\u3059\u308c\u3070OK\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u308b\u3053\u3068\u81ea\u4f53\u306b\u306fWin32API\u306f\u5fc5\u8981\u306a\u3044\u306e\u3067\u3059\u304c\u3001\u6700\u5c0f\u5316\u3059\u308b\u3068\u304d\u306a\u3069\u306b\u30a8\u30e9\u30fc\u56de\u907f\u306a\u3069\u3067\u5fc5\u8981\u306b\u306a\u308a\u307e\u3059\u3002\uff08\u300cfrm_size_State01()\u95a2\u6570\u306b\u3088\u308b\u72b6\u614b\u30c1\u30a7\u30c3\u30af\u3067\u3002\uff09<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nPrivate Sub Form_Resize()\r\n\r\n    '\u6700\u5c0f\u5316\u3059\u308b\u3068\u4f55\u6545\u304bCPU\u306e\u4f7f\u7528\u7387\u304c100%\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u305d\u308c\u3092\u56de\u907f\r\n    '\uff08Win32API\u4f7f\u7528\uff09\r\n    \r\n    If frm_size_State01(Me.hWnd) = \"\u6700\u5c0f\" Then\r\n        Exit Sub\r\n    ElseIf frm_size_State01(Me.hWnd) = \"\u4e0d\u660e\" Then\r\n        Exit Sub\r\n    ElseIf frm_size_State01(Me.hWnd) = \"\u53d6\u5f97\u30a8\u30e9\u30fc\" Then\r\n        Exit Sub\r\n    Else\r\n\r\n    End If\r\n\r\n    '\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\r\n    '\u3053\u308c\u4ee5\u964d\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3001\u5b9f\u969b\u306b\u3001\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092\r\n    '\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u308b\u51e6\u7406\u3067\u3059\u304c\u3001\u672c\u5f53\u306fWin32API\u306a\u3057\u3067\u3082OK\u3067\u3059\u3002\r\n    '\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u6700\u5c0f\u5316\u3059\u308b\u4e8b\u304c\u306a\u3044\u306a\u3044\u306a\u3089\u3001\r\n    'Win32API\uff08\u3053\u308c\u3088\u308a\u4e0a\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\uff09\u306f\u8981\u308a\u307e\u305b\u3093\u3002\r\n    '\uff08\u3053\u3053\u3067\u306f\u6700\u5c0f\u5316\u3059\u308b\u3053\u3068\u3092\u524d\u63d0\u3068\u3057\u3066\u3044\u308b\u306e\u3067\u3001\r\n    '\u3000\u3000\u4e0a\u8a18\u306eWin32API\u306e\u30b3\u30fc\u30c9\u3082\u8ffd\u8a18\u3057\u3066\u3042\u308a\u307e\u3059\u3002\uff09\r\n    '\u307e\u305f\u3001\u3042\u307e\u308a\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u5c0f\u3055\u304f\u3059\u308b\u3068\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u304c\u30bc\u30ed\u3088\u308a\u3082\r\n    '\u5c0f\u3055\u304f\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u304b\u3001\u3088\u304f\u308f\u304b\u308a\u307e\u305b\u3093\u304c\u3001\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\r\n    '\u305d\u306e\u3068\u304d\u306e\u30a8\u30e9\u30fc\u51e6\u7406\u306f\u66f8\u3044\u3066\u307e\u305b\u3093\u306e\u3067\u3001\u3054\u81ea\u5206\u3067\u66f8\u3044\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\r\n    '\u30a8\u30e9\u30fc\u306b\u306a\u3063\u305f\u3089Exit\u3000Sub\u3067\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u7d42\u4e86\u3055\u305b\u308c\u3070OK\u304b\u3068\u601d\u3044\u307e\u3059\u3002\r\n\r\n\r\n    '\u25cf\u30d5\u30a9\u30fc\u30e0\u306e\u8a73\u7d30\u30bb\u30af\u30b7\u30e7\u30f3\u306e\u5927\u304d\u3055\u306e\u8abf\u6574\r\n    '\uff08\u30d5\u30a9\u30fc\u30e0\u30d8\u30c3\u30c0\u3084\u30d5\u30a9\u30fc\u30e0\u30d5\u30c3\u30bf\u306e\u5927\u304d\u3055\u306f\u5909\u308f\u308a\u307e\u305b\u3093\u3002\r\n    \r\n    Me.Width = Me.InsideWidth\r\n    '\u8a73\u7d30\u30bb\u30af\u30b7\u30e7\u30f3\u306b\u306f\u5e45\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u7121\u3044\u306e\u3067Me.\uff08\u30d5\u30a9\u30fc\u30e0\uff09\u3067\u5e45\u3092\u8abf\u6574\r\n    '\u3053\u306e\u30b3\u30fc\u30c9\u306f\u306a\u304f\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u3089\u306a\u3044\u304b\u3082\u3067\u3059\u3002\r\n    \r\n    Me.\u8a73\u7d30.Height = Me.InsideHeight - Me.\u30d5\u30a9\u30fc\u30e0\u30d8\u30c3\u30c0\u30fc.Height - Me.\u30d5\u30a9\u30fc\u30e0\u30d5\u30c3\u30bf\u30fc.Height - 800\r\n    '\u6700\u5f8c\u306e\u30de\u30a4\u30ca\u30b9\u306e\u6570\u5024\u306e1000(twip)\u306f\u3001\r\n    '\u300c\u57cb\u3081\u8fbc\u307f\u3068\u3057\u3066\u306e\u30ac\u30ef01\u300d\u306eHeight\u306e\u6570\u5b57\u3068\u540c\u3058\u304f\u3089\u3044\u304b\u3001\r\n    '\u5c11\u3057\u5c0f\u3055\u304f\u3059\u308b\u3068\u3044\u3044\u307f\u305f\u3044\u3002\r\n    '\u3042\u307e\u308a\u6570\u5b57\u304c\u5927\u304d\u304f\u3066\u3082\u5c0f\u3055\u304f\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3063\u307d\u3044\u3067\u3059\u3002\r\n    '\u300c= Me.InsideHeight - \u300d\u3058\u3083\u306a\u304f\u3066\u3001\u300c= Me.\u8a73\u7d30.Height - \u300d\u3067\u3082\u3044\u3044\u304b\u3082\u3002\r\n\r\n\r\n    \r\n    On Error Resume Next\r\n    '\u6700\u5c0f\u5316\u6642\u306b\u3053\u3053\u3067\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u56de\u907f\r\n    \r\n    \r\n    \r\n    '\u25cf\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u306e\u8abf\u6574\r\n    \r\n    Me.\u57cb\u3081\u8fbc\u307f\u3068\u3057\u3066\u306e\u30ac\u30ef01.Width = Me.InsideWidth - 500\r\n    '\u6700\u5f8c\u306e\u30de\u30a4\u30ca\u30b9\u306e\u6570\u5024\u304c500\u3088\u308a\u3082\u4f4e\u3059\u304e\u308b\u3068\u3001\r\n    '\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u53f3\u7aef\u306e\u7e26\u65b9\u5411\u306e\u30b9\u30af\u30ed\u30fc\u30eb\u30d0\u30fc\u304c\u96a0\u308c\u3066\u3057\u307e\u3044\u3001\r\n    '\u5207\u308c\u305f\u611f\u3058\u306b\u306a\u308b\u306e\u3067\u6ce8\u610f\u3002\r\n    '\u6570\u5b57\u306f\u30d4\u30af\u30bb\u30eb\u3067\u306f\u306a\u304f\u3066\u3001twip\u3067\u3059\u3002\r\n        \r\n    Me.\u57cb\u3081\u8fbc\u307f\u3068\u3057\u3066\u306e\u30ac\u30ef01.Height = Me.InsideHeight - Me.\u30d5\u30a9\u30fc\u30e0\u30d8\u30c3\u30c0\u30fc.Height - Me.\u30d5\u30a9\u30fc\u30e0\u30d5\u30c3\u30bf\u30fc.Height - 1000\r\n    '\u6700\u5f8c\u306e\u30de\u30a4\u30ca\u30b9\u306e\u6570\u5024\u30921000\u4ee5\u4e0b\u306b\u3059\u308b\u3068\u3001\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u4e0b\u5074\u306e\r\n    '\u6a2a\u65b9\u5411\u306e\u30b9\u30af\u30ed\u30fc\u30eb\u30d0\u30fc\u304c\u4e0b\u306b\u96a0\u308c\u3066\u3057\u307e\u3046\u5834\u5408\u3082\u3042\u308b\u306e\u3067\u6ce8\u610f\u3002\r\n    '\u6570\u5b57\u306f\u30d4\u30af\u30bb\u30eb\u3067\u306f\u306a\u304f\u3066\u3001twip\u3067\u3059\u3002\r\n    '\u300c= Me.InsideHeight - \u300d\u3058\u3083\u306a\u304f\u3066\u3001\u300c= Me.\u57cb\u3081\u8fbc\u307f\u3068\u3057\u3066\u306e\u30ac\u30ef01.Height - \u300d\u3067\u3082\u3044\u3044\u304b\u3082\u3002\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u25cf Access2000Tips Win32 API \u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u306e\u5927\u304d\u3055\u3092Access\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u5927\u304d\u3055\u306e\u5909\u5316\u306b\u4f34\u3044\u30d5\u30a3\u30c3\u30c8\u3055\u305b\u305f\u308a\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u30b5\u30a4\u30ba\u81ea\u4f53\u3092\u5909\u66f4\u3057\u305f\u308a\u3001\u6700\u524d\u9762\u3092\u56fa\u5b9a\u5316\u3057\u305f\u308a\u3001\u306e\u65b9\u6cd5 \u3000\u3000 \u3000\u3000 \u2605 \u30b5 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[37],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1453"}],"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=1453"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1453\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1453"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1453"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}