高手请进，如何强制最小化当前窗口 Excel 请问高手，如何在VBA代码中最小化当前窗体
DNF\u600e\u4e48\u6700\u5c0f\u5316\uff0c\u70b9\u5176\u4ed6\u7a97\u53e3\u4e0d\u4f1a\u5f39\u51fa\u6765\u7684\uff0c\u9ad8\u624b\u8fdb\uff1f\u8fd9\u4e2a\u6bd4\u8f83\u96be\uff0c\u56e0\u4e3adnf\u662f\u6ca1\u6709\u6700\u5c0f\u5316\u7684\u3002\u4e0d\u8fc7\u6709\u4e00\u79cd\u65b9\u6cd5\u53ef\u4ee5\u5c1d\u8bd5\u3002\u5c31\u662f\u628adnf\u5f04\u6210\u5168\u5c4f\uff0c\u5f04\u6210\u4ee5\u540e\u6309Alt\u52a0Tab\u5207\u6362\u952e\uff0c\u5207\u6362\u5230\u53e6\u4e00\u4e2a\u7a97\u53e3\u3002\u5c31\u53ef\u4ee5\u4e86\u3002
\u9700\u8981\u55f2\u7528API\uff0c\u4f8b\u5b50\u4ee3\u7801\uff1a
Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long '\u83b7\u53d6\u7a97\u53e3\u6837\u5f0fAPIPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '\u67e5\u627e\u5f53\u524d\u7a97\u53e3\u53e5\u67c4APIPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GWL_STYLE = (-16) '\u8bbe\u7f6e\u7a97\u53e3\u6837\u5f0fAPIPrivate Const WS_MINIMIZEBOX As Long = &H20000 '(\u6700\u5c0f\u5316) '\u7a97\u4f53UserForm\u7684\u521d\u59cb\u5316Private Sub UserForm_Initialize()Dim hWndForm As LongDim IStyle As LonghWndForm = FindWindow("ThunderDFrame", Me.Caption) \u2019\u83b7\u53d6\u7a97\u53e3\u53e5\u67c4IStyle = GetWindowLong(hWndForm, GWL_STYLE) '\u83b7\u53d6\u5f53\u524d\u6807\u9898\u680f\u6837\u5f0fIStyle = IStyle Or WS_MINIMIZEBOX '\u8bbe\u7f6e\u6700\u5c0f\u5316\u6309\u94aeSetWindowLong hWndForm, GWL_STYLE, IStyle '\u663e\u793a\u6700\u5c0f\u5316\u6309\u94aeEnd Sub
可以用ALT+TAD键；来切换
关闭的话有两个选择 CTEL+ALT+DEL
和ALT+F4
绛旓細鐢佃剳绯荤粺楂樻墜璇疯繘鎬庝箞鏈灏忓寲绯荤粺?鎰忔濅负缁欑郴缁熺槮韬,鎶奵鐩樹腑澶氫綑鐨勯兘鍒犻櫎鎯虫妸c鐩樺ぇ灏忔帶鍒跺湪1Gc鐩橀噷闈,閭ｄ簺鏄郴缁熷繀椤荤殑?璋㈣阿浜... 鐢佃剳绯荤粺楂樻墜璇疯繘鎬庝箞鏈灏忓寲绯荤粺?鎰忔濅负缁欑郴缁熺槮韬,鎶奵鐩樹腑澶氫綑鐨勯兘鍒犻櫎 鎯虫妸c鐩樺ぇ灏忔帶鍒跺湪1Gc鐩橀噷闈 ,閭ｄ簺鏄郴缁熷繀椤荤殑?璋㈣阿浜 灞曞紑 ...
绛旓細濡傛灉浣犳槸鏂版墜锛屾垨鑰呬綘鐨勭數鑴戜笉鏄緢绋冲畾鐨勮瘽锛屽缓璁笉瑕佸叧鎺塁oreldraw鐨勮嚜鍔ㄥ浠斤紝杩欐槸鏈夊ソ澶勭殑銆傚彟锛鏈灏忓寲褰撳墠鐨凜oreldraw绐楀彛锛屾柊寮涓涓狢oreldraw绋嬪簭锛岃瘯鐫鎵撳紑褰撳墠鐨勫浠芥枃浠躲傚鏋滆兘鎵撳紑鏈濂锛屽己鍒缁撴潫鎺夋鏈虹殑绐楀彛鍗冲彲銆傚鏋滄墦涓嶅紑锛屽厛鐪嬩竴涓嬫鏈虹獥鍙ｇ墿浠舵槸涓嶆槸杩樺彲浠ョЩ鍔紝濡傛灉鑳藉鍒剁殑璇濓紝璧剁揣澶嶅埗...
绛旓細cmd鍛戒护,cmd楂樻墜璇疯繘!!!1!50鍒嗗璧忎箣鍚庤拷鍔犲ソ澶氬垎 瑕乧md鐨勫懡浠,瓒婂瓒婂ソ,瑕佽В閲,瑙ｉ噴鏃跺埆澶,澶氬懡浠,瑙ｉ噴绠娲,50鍒嗗璧,涔嬪悗杩藉姞濂藉鍒嗚瑙ｉ噴鐢ㄦ硶,濡俤ir鍔犵洏绗﹀姞璺緞灏辫兘澶熸煡鐪嬮偅涓矾寰勭殑鏂囦欢... 瑕乧md鐨勫懡浠,瓒婂瓒婂ソ,瑕佽В閲,瑙ｉ噴鏃跺埆澶,澶氬懡浠,瑙ｉ噴绠娲,50鍒嗗璧,涔嬪悗杩藉姞濂藉鍒嗚瑙ｉ噴鐢ㄦ硶,濡俤ir鍔犵洏...
绛旓細鐢佃剳楂樻墜璇疯繘,鎬ユユ,璋㈣阿鎴戠殑鐢佃剳妗岄潰涓婄殑璁稿杞欢濡:娴佽鍣,鎴戠殑鏂囨。,鎴戠殑鐢佃剳,涓鐐瑰氨鍑虹幇涓涓皬瀵硅瘽鏌,鍐呭濡備笅:IEXPLORE.EXE-搴旂敤绋嬪簭閿欒"0x10003237"鎸囦护寮曠敤鐨"0x000005c"鍐呭瓨... 鐢佃剳楂樻墜璇疯繘,鎬ユユ,璋㈣阿鎴戠殑鐢佃剳妗岄潰涓婄殑璁稿杞欢濡:娴佽鍣,鎴戠殑鏂囨。,鎴戠殑鐢佃剳,涓鐐瑰氨鍑虹幇涓涓皬瀵硅瘽鏌,鍐呭濡備笅:...
绛旓細浠indows XP涓轰緥,鍙抽敭鐐瑰嚮鈥滃紑濮嬧濇寜閽,閫夋嫨鈥滃睘鎬р,鍦ㄥ脊鍑虹殑璁剧疆浠诲姟鏍忓拰寮濮嬭彍鍗曞睘鎬у璇濈獥涓偣鈥滆嚜瀹氫箟鈥濇寜閽,鍦ㄢ滆嚜瀹氫箟寮濮嬭彍鍗曗濆璇濇涓殑鈥滈珮绾р濇爣绛句笅鐐光滄竻闄ゅ垪琛ㄢ濄傝嫢瑕佽绯荤粺姘镐笉鑷綔澶氭儏璁颁綇浣跨敤鏂囨。鐨勮褰,璇峰幓鎺夆滃垪鍑烘垜鏈杩戞墦寮鐨勬枃妗ｂ濆墠鐨勯挬銆 灏忔彁绀:XP浼氭妸鏈杩戣闂枃妗ｇ殑蹇嵎鏂瑰紡鏀惧湪C:...
绛旓細瑕佺粓姝㈢▼搴,璇峰崟鍑烩滅‘瀹氣濈殑淇℃伅妗,鍗曞嚮鈥滅‘瀹氣濆悗,鍙堝嚭鐜扳滃彂鐢熷唴閮ㄩ敊璇,鎮ㄦ鍦ㄤ娇鐢ㄧ殑鍏朵腑涓涓獥鍙ｅ嵆灏嗗叧闂濈殑淇℃伅妗,鍏抽棴璇ユ彁绀轰俊鎭悗,IE娴忚鍣ㄤ篃琚叧闂 瑙ｅ喅鏂规硶:淇鎴栧崌绾E娴忚鍣,鍚屾椂鎵撲笂琛ヤ竵銆傜湅杩囧叾涓竴涓慨澶嶆柟娉曟槸,Win2000鑷崌绾,涔熷氨鏄疻in2000鍗囩骇鍒癢in2000,鍏跺疄杩欑鏂规硶涔熷氨鏄妸绯荤粺杩樺師鍒扮郴缁...
绛旓細1銆侀鍏堟垜浠皢鎼滅嫍杈撳叆娉曞垏鎹㈠嚭鏉ワ紝鐐瑰嚮杈撳叆娉曚笂闈㈢殑鑿滃崟鎸夐挳銆2銆佺劧鍚庢垜浠湪鑿滃崟閲岄潰锛岀偣鍑绘渶涓婇潰鐨勩愯缃睘鎬с戦夐」銆3銆佺劧鍚庢垜浠湪鎵撳紑鐨勭晫闈腑锛屽湪宸﹁竟鐐瑰嚮銆愭寜閿戦夐」锛屾潵鍒版寜閿缃晫闈4銆佺劧鍚庢垜浠彲浠ョ湅鍒版墍鏈夌殑蹇嵎鎸夐挳锛屾垜浠彲浠ュ鍚庨潰蹇嵎閿寜閿繘琛屼慨鏀癸紝鏀规垚鑷繁闇瑕佺殑鍗冲彲銆5銆佺劧鍚庢垜浠偣鍑汇...
绛旓細骞冲垎绐楀彛鍚庡啀鐐瑰嚮閰嶇疆---淇濆瓨璁剧疆锛屼笅娆″氨鏄粯璁ゅ钩鍒嗙獥鍙ｄ簡
绛旓細Windows鐨勫叧鏈虹▼搴忓湪鍏虫満杩囩▼涓皢鎵ц涓嬭堪鍚勯」鍔熻兘:瀹屾垚鎵鏈夌鐩樺啓鎿嶄綔,娓呴櫎纾佺洏缂撳瓨,鎵ц鍏抽棴绐楀彛绋嬪簭,鍏抽棴鎵鏈褰撳墠杩愯鐨勭▼搴,灏嗘墍鏈変繚鎶ゆā寮忕殑椹卞姩绋嬪簭杞崲鎴愬疄妯″紡銆 寮曡捣Windows绯荤粺鍑虹幇鍏虫満鏁呴殰鐨勪富瑕佸師鍥犳湁:閫夋嫨閫鍑篧indows鏃剁殑澹伴煶鏂囦欢鎹熷潖;涓嶆纭厤缃垨鎹熷潖纭欢;BIOS鐨勮缃笉鍏煎;鍦˙IOS涓殑鈥滈珮绾х數婧愮鐞嗏濇垨鈥...
绛旓細1,鍏堢偣閭ｄ釜"+",鎵惧埌浠欏墤3鐨勫畨瑁呯洰褰,閫変腑PAL3.exe 2,鍐嶅乏閿崟鍑诲畠閫変腑,鍐嶅彸閿崟鍑,閫"璁剧疆"3,閫"涓鑸",鐐硅緟鍔〥LL鍚庨潰鐨"鎵撳紑",鍐嶉変腑杩欎釜杞欢鏂囦欢澶逛笅鐨凞3dHook.dll 4,閫"杈撳叆璁惧",涓嬮潰鐨勯紶鏍囦綅缃慨姝ｉ噷,4涓夐」鍏ㄩ("灏嗛紶鏍囬檺鍒跺湪绐楀彛鍐"鍙互涓嶉,杩欐牱浣犲彲浠ュ緢鏂逛究鐨鏈灏忓寲娓告垙),鍚﹀垯鐜...
