【正文】 圖1627 濾鏡預(yù)覽窗體 圖1628 濾鏡選擇框關(guān)于數(shù)字圖像處理系統(tǒng)的核心功能和代碼，就介紹到此。該濾鏡窗體，選擇不同的濾鏡，其界面會(huì)根據(jù)該濾鏡的需要，顯示不同的選項(xiàng)。該窗體名稱(chēng)為fFilter，通過(guò)菜單“Adjust224。26．濾鏡效果查看窗體本系統(tǒng)提供了很多的濾鏡效果，通過(guò)主窗體的“Filter”菜單和“Adjust”菜單，可以對(duì)圖像進(jìn)行多種圖像的濾鏡處理。 該窗體中使用了大量的API函數(shù)來(lái)實(shí)現(xiàn)該功能。隨著圖像的進(jìn)一步放大，紅色的方框會(huì)越來(lái)越小。全景運(yùn)行的界面如圖1626所示。Panoramic”可以進(jìn)入到圖像全景窗體。 圖1624 顯示圖像信息 圖1625 圖像打印設(shè)置窗體fPrint窗體的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。Print】，可以彈出打印圖像的窗體，如圖1625所示。fProperties窗體的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。23．顯示圖像信息的窗體在主主窗體中，單擊菜單【View224。 圖1622 材質(zhì)選擇對(duì)話(huà)框 圖1623 改變圖像大小對(duì)話(huà)框用戶(hù)如果選擇“Maintain aspect ratio”，則表示高度和寬度按照原始比例進(jìn)行縮放。22．更改圖像大小的窗體在主窗體中，通過(guò)菜單“Edit224。Texturize”，可以彈出該窗體，其界面如圖1622所示。在主界面中，通過(guò)菜單“Filter224。22．為圖像選擇材質(zhì)的窗體本系統(tǒng)中，有一種濾鏡效果就是為圖像增加各種材質(zhì)效果，因此在實(shí)現(xiàn)該功能值錢(qián)，需要選擇一種材質(zhì)圖片。本系統(tǒng)能夠在各種常用的圖像格式之間進(jìn)行轉(zhuǎn)換。*.png。*.gif。首先定義一個(gè)該窗體的實(shí)例Dim fDlg As New fDialogEx39。其設(shè)計(jì)界面如圖1620所示。Open”，會(huì)彈出圖像選擇框，如圖1619所示。該控件的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。其運(yùn)行界面如圖1618所示。 該類(lèi)的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。圖1617 ucInfo控件19．ucProgress控件ucProgress控件用于顯示正在處理圖像的進(jìn)程。其界面如圖1617所示。此時(shí)，鼠標(biāo)會(huì)出現(xiàn)手的形狀 在ucCanvas控件中，有大量的函數(shù)和代碼，由于篇幅限制，請(qǐng)讀者參照本書(shū)光盤(pán)源代碼學(xué)習(xí)。如圖1616所示?！∠x取 Call Call End SelectEnd Sub當(dāng)通過(guò)系統(tǒng)打開(kāi)一副圖像后，通過(guò)工具欄或者菜單“Edit224。—?jiǎng)?chuàng)建臨時(shí)DIB Call (x2 x1, y2 y1) Call (, x1, y1) 39。—Copy菜單 39?！淖兇笮。缓髮?dāng)前圖像更改為被剪切的圖像 Call (x2 x1, y2 y1) Call () 39?！@得選取的坐標(biāo) Call (x1, y1, x2, y2) 39。Private Sub mnuCrop_Click(Index As Integer) Dim TmpDIB As New cDIB Dim x1 As Long, y1 As Long Dim x2 As Long, y2 As Long Select Case Index Case 0 39。（1）mnuCrop菜單單擊事件，讀者可以參考ucCanvas控件的設(shè)計(jì)，該控件中設(shè)計(jì)了幾個(gè)彈出式的菜單，分別為“Crop”、“Copy”、和“Remove Frame”。縮小 End Select End If End With End Select pvWindowProc = CallWindowProc(m_OldWindowProc, hWnd, wMsg, wParam, lParam)End Function17．ucCanvas控件ucCanvas為自定義開(kāi)發(fā)控件，用來(lái)作為顯示和處理圖像的容器。向上滾動(dòng) Call (0) 39。—?jiǎng)?chuàng)建回調(diào)函數(shù) m_OldWindowProc = SetWindowLong(, GWL_WNDPROC, AddressOf pvWindowProc)End Sub（2）pvWindowProc函數(shù)，回調(diào)函數(shù)；Private Function pvWindowProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Select Case wMsg Case WM_MOUSEWHEEL 39。通過(guò)滾輪來(lái)放大或者縮小圖像。該類(lèi)的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) 14．mMisc模塊mMisc用于聲明一些系統(tǒng)中常用的函數(shù)。 （1）PutINI函數(shù)39。Public Sub HSLtoRGB(ByVal H As Single, ByVal S As Single, ByVal L As Single, R As Byte, G As Byte, B As Byte)39。—彩色模式 Else If (L = ) Then S = (Max Min) / (Max + Min) Else S = (Max Min) / (2 Max Min) End If 39。計(jì)算飽和度 39。（1）RGBtoHSL函數(shù)，該函數(shù)將RGB轉(zhuǎn)化成HSLPublic Sub RGBtoHSL(ByVal R As Byte, ByVal G As Byte, ByVal B As Byte, H As Single, S As Single, L As Single) Dim Max As Single Dim Min As Single Dim delta As Single Dim rR As Single, rG As Single, rB As Single 39。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。帶預(yù)覽功能的文件選擇對(duì)話(huà)框界面請(qǐng)參考21小節(jié)。圖1615 顏色選擇對(duì)話(huà)框10．mDialogEx模塊mDialogEx類(lèi)主要用于創(chuàng)建帶圖像預(yù)覽功能的文件選擇對(duì)話(huà)框。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。該類(lèi)的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。—?jiǎng)h除原始文件 On Error Resume Next Kill sFilename On Error GoTo 0 39。 Palette based (Get palette indexes) aData() = () Case 24 39。 Palette table/Indexes For lIdx = 0 To (2 ^ BPP) 1 aBI(lIdx * 4 + 41) = (lIdx) aBI(lIdx * 4 + 42) = (lIdx) aBI(lIdx * 4 + 43) = (lIdx) Next lIdx End If 39。—?jiǎng)?chuàng)建保存圖像數(shù)據(jù)數(shù)組 ReDim aBI(1 To 40 + IIf(BPP = 8, 4 * (2 ^ BPP), 0)) Call CopyMemory(aBI(1), tBIH, 40) 39。H4D42 .bfSize = Len(tBIH) + IIf(BPP = 8, 4 * (2 ^ BPP), 0) + Walg * .bfOffBits = Len(tBFH) + Len(tBIH) + IIf(BPP = 8,4 *(2 ^ BPP), 0) End With 39?！@得圖像數(shù)據(jù)大小 Walg = (( * BPP + 31) \ 32) * 4 ReDim aData(Walg 1, 1) 39。 14 bytes Dim tBIH As BITMAPINFOHEADER 39。6．cDIBSave類(lèi)模塊cDIBSave類(lèi)用于保存圖像數(shù)據(jù)。5 cDIBPal類(lèi)模塊cDIBPal類(lèi)主要進(jìn)行創(chuàng)建各種調(diào)色板。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （19）Texturize濾鏡 39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （17）Shift濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （15）Scanlines濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （13）ReplaceL濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （11）Relieve濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （9）Outline濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （7）Negative濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （5）Emboss濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （3）Contrast濾鏡39。由于篇幅限制，大部分的濾鏡效果圖，沒(méi)有貼在書(shū)上，讀者可以自己測(cè)試。（1）Blur濾鏡39。下面將介紹部分重要濾鏡的代碼實(shí)現(xiàn)。4．cDIBFilter類(lèi)模塊cDIBFilter類(lèi)主要實(shí)現(xiàn)了各種常用濾鏡的實(shí)現(xiàn)。代碼省略3．cDIBDither類(lèi)模塊cDIBDither類(lèi)主要進(jìn)行圖像顏色的處理，如將圖像進(jìn)行二值化處理、轉(zhuǎn)化成灰度圖調(diào)色板、轉(zhuǎn)換成彩色調(diào)色板等。 刪除設(shè)備描述表 Call DeleteDC(clp_hDC) End If End If 39。判斷剪貼板是否為空 dsk_hWnd = GetDesktopWindow dsk_hDC = GetDC(dsk_hWnd) clp_hDC = CreateCompatibleDC(dsk_hDC) If (clp_hDC 0) Then clp_hObj = CreateCompatibleBitmap(dsk_hDC, , m_tBIH. biHeight) If (clp_hObj 0) Then clp_hOldObj = SelectObject(clp_hDC, clp_hObj) Call (clp_hDC) Call SelectObject(clp_hDC, clp_hOldObj) 39?！@得調(diào)色板列表 Call GetDIBColorTable(lhDC,0,nColors,ByVal (nColors)) ReDim aData(1 To 40 + 4 * (2 ^ )) With tBIH .biSize = 40 .biPlanes = 1 .biBitCount = .biWidth = .biHeight = End With Call CopyMemory(aData(1), tBIH, 40) Call GetDIBColorTable(lhDC, 0, nColors, aData(41)) Call GetDIBits(lhDC,