計算機二級VB輔導(dǎo):用VB實現(xiàn)屏幕陰暗操作
使用過Windows 9x的用戶都應(yīng)該知道,在關(guān)閉Windows系統(tǒng)時,整個屏幕會暗下來,那么,如何在自己開發(fā)的應(yīng)用程序中也實現(xiàn)這一效果呢?我們通過調(diào)用一組API函數(shù)就可以實現(xiàn),如果你有興趣,就跟我來吧!這一組函數(shù)是:
GetDC :用來獲取屏幕的設(shè)備號;
ReleaseDC :釋放指定的設(shè)備;
CreatePatternBrush :創(chuàng)建圖形刷子;
PatBlt: 利用創(chuàng)建的圖形刷子填充指定設(shè)備;
DeleteObject :刪除創(chuàng)建的對象(與CreatePatternBrush創(chuàng)建的刷子對象呼應(yīng));
CreateBitmap :創(chuàng)建BMP對象;
SelectObject :選擇當前操作對象;
InvalidateRect :使操作無效,即恢復(fù)變暗前的狀態(tài)。
基本思路
首先創(chuàng)建一個位圖對象,然后,利用此位圖對象創(chuàng)建一個圖案刷子,選擇指定設(shè)備為當前設(shè)備,利用已經(jīng)創(chuàng)建的圖案刷子填充當前設(shè)備,刪除創(chuàng)建的刷子對象即可使當前設(shè)備變暗。調(diào)用InvalidateRect函數(shù)就可使指定設(shè)備恢復(fù)到變暗前的狀態(tài)。
相關(guān)推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |