為您的應(yīng)用程序建立投影式立體窗口(陰影)

1、    為您的應(yīng)用程序建立投影式立體窗口(陰影)-一打開WINDOWS，看著四四方方立在桌面上的應(yīng)用程序窗口，您是否有些厭倦？別心煩，在WINDOW世界里，只要您能為之"心動(dòng)",生活總是美麗而又精彩的。因而許許多多愛好"多樣"的CFAN，便為自己的窗口做成了"透明的"、"不規(guī)則的"等樣式。筆者也心血來潮，將自己的窗口做成了"投影式立體窗口"，見下圖1：怎么樣？Cool吧！其實(shí)，制作這樣的立體窗口不是非常難，其原理是這樣的（設(shè)要為hWnd窗口做個(gè)立體）：1、

2、獲取hWnd在屏幕上的位置（GetWindowRect），根據(jù)其位置為其建立三個(gè)投影窗口，分別命名LeftForm-左邊投影，DownForm-下面投影，RdForm-右下角投影；2、獲取三個(gè)投影窗口在屏幕上的位置信息，根據(jù)黑色漸變?cè)?，將其寫入三個(gè)投影窗口中。注意：不能直接將其投影信息寫入屏幕DC中，否則的話，桌面將會(huì)被您繪的一踏糊涂。另外：窗口在移動(dòng)、改變大小時(shí)，均應(yīng)該重新繪制投影信息。這個(gè)在VB中不是非常容易做得到，因此我們需要為其增加一個(gè)Timer控件，在Timer事件監(jiān)視這一系列的動(dòng)作。好了，下面我們開始動(dòng)手做做這種效果：1、啟動(dòng)VB6.0，建立一個(gè)新的標(biāo)準(zhǔn)exe工程文件，將啟動(dòng)主窗

3、口FormName命名為"MainForm",并將ScaleMode設(shè)置為3,另外再新添建三個(gè)窗口，分別命名為"LeftForm","DownForm","RdForm"，并且將其"BorderStyle"設(shè)置為"0-None"，將各自的GotFocus事件中寫入如下代碼：MainForm.setfocus2、新建一個(gè)模塊API.bas(可以用"外接程序"中的"API瀏覽器"),插入如下代碼：Public Const SRCCOPY =

4、 &HCC0020Public Type RECT    Left As Long    Top As Long    Right As Long    Bottom As LongEnd TypePublic Declare Function SelectObject Lib "gdi32" (     ByVal hdc As Long,   &

5、#160;  ByVal hObject As Long) As LongPublic Declare Function BitBlt Lib "gdi32" (     ByVal hDestDC As Long,      ByVal x As Long,      ByVal y As Long,      ByVal nWidth As Long,     

6、ByVal nHeight As Long,      ByVal hSrcDC As Long,      ByVal xSrc As Long,      ByVal ySrc As Long,      ByVal dwRop As Long) As LongPublic Declare Function SetPixel Lib "gdi32" (     ByVal

7、hdc As Long,      ByVal x As Long,      ByVal y As Long,      ByVal crColor As Long) As LongPublic Declare Function GetPixel Lib "gdi32" (     ByVal hdc As Long,      ByVal x As Long,  

8、    ByVal y As Long) As LongPublic Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As LongPublic Declare Function CreateCompatibleBitmap Lib "gdi32" (    ByVal hdc As Long,     ByVal nWidth As Long,  

9、   ByVal nHeight As Long) As LongPublic Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPublic Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As LongPublic Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Lon

10、gPublic Declare Function GetWindowRect Lib "user32" (    ByVal hwnd As Long,     lpRect As RECT) As Long'取色彩中的Red的值Public Function GetRed(ByVal n As Long) As IntegerGetRed = n Mod 256&End Function'取色彩中的Green的值Public Function GetGreen(ByVa

11、l n As Long) As IntegerGetGreen = (n 256&) Mod 256&End Function'取色彩中的Blue的值Public Function GetBlue(ByVal n As Long) As IntegerGetBlue = n 65536End Function'獲取漸變色彩值'入口參數(shù)：SrcColor 原色彩'    Steps 步驟數(shù)'    CurStep 當(dāng)前的步子'  &#

12、160; DstColor 目標(biāo)色彩'返回值：當(dāng)月前的色彩值Public Function GetTrienColor(ByVal scrColor As Long, ByVal dstColor As Long, ByVal Steps As Integer, ByVal curStep As Integer) As LongDim sR, sG, sB, dR, dG, dB As IntegersR = GetRed(scrColor)sG = GetGreen(scrColor)sB = GetBlue(scrColor)dR = GetRed(dstColor)dG = GetGreen(dstColor)dB = GetBlue(dstColor)sR = sR + curStep * (dR - sR) / StepssG = sG + curStep * (dG - sG) / StepssB = sB + curStep * (dB - sB) / StepsGetTrienCol