如何用VB程式設計實現關閉WINDOWS視窗？

如何用vb程式設計實現關閉當前視窗的功能啊？

那位高手知道的幫幫忙啊？

：我說的是關閉當前的windows視窗比如說我剛剛開啟了乙個名為abc 的資料夾視窗我現在想通過用vb程式設計來實現關閉該視窗的功能？請問該如何編寫** 怎麼讓他實現啊？不的結束vb程式哦！

'1.首行看windows視窗的標題是什麼

'2.把標題加到以下的程式**,即可.

option explicit

private declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long '傳送訊息，用來關閉指定程式

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long '查詢窗體

private const wm_close = &h10 '關閉程式

private sub command1_click()

dim winhwnd as long

dim retval as long

winhwnd = findwindow(vbnullstring, "這裡是你要關閉的windows視窗的標題") '找到視窗

debug.print winhwnd '用來除錯在立即視窗中輸入winhnd

if winhwnd <> 0 then '這裡是判斷視窗是否啟動如果視窗不存在那麼值為0

retval = postmessage(winhwnd, wm_close, 0&, 0&) '關閉視窗

if retval = 0 then '如果視窗沒有啟動就彈出下面的資訊

msgbox "錯誤！"

else

msgbox "成功關閉windows視窗！"

end if

else

msgbox "windows視窗沒有發現！"

end if

end sub

'**結束

vb部分相關文章

如何用VB實現Modbus序列通訊

如何用 vb實現 modbus 序列通訊在一些應用中可能需要使用諸如 vb來進行上位機監控程式的開發，而 modbus 協議是這類應用中首選的通訊協議 modbus 協議以其簡單易用，在工業領域裡已廣泛的為其他第三方裝置所支援。這裡對vb和 twido plc 間的通訊進行說明。對於大部分應用，t...

如何用VB在窗體中實現閃爍文字

閃爍的文字可以在螢幕上起到明顯的提示作用。通過使用 vb資料庫程式設計的timer控制項，程式設計師可以輕鬆的在窗體上實現閃爍文字的效果。本文將演示如何為label控制項加上閃爍效果，這種方法同樣適用於其它多種控制項。當你在窗體上加入timer控制項時，它只出現在設計時，而不會在執行時出現可見的控...

如何用VB製作半透明窗體？

函式setlayeredwindowattributes 使用這個函式，可以輕鬆的實現半透明窗體。按照微軟的要求，透明窗體窗體在建立時應使用ws ex layered引數用createwindowex 或者在建立後設定該引數用setwindowlong 我選用後者。全部函式常量宣告如下 pri...

如何用VB程式設計實現關閉WINDOWS視窗？

如何用VB實現Modbus序列通訊

如何用VB在窗體中實現閃爍文字

如何用VB製作半透明窗體？

相關推薦