【正文】 39。如果圖像不為空 If (GetObjectType(Picture) = OBJ_BITMAP) Then 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。下面將介紹部分重要濾鏡的代碼實現(xiàn)。代碼省略，詳細代碼請參見光盤 （5）Emboss濾鏡39。代碼省略，詳細代碼請參見光盤 （13）ReplaceL濾鏡39。5 cDIBPal類模塊cDIBPal類主要進行創(chuàng)建各種調(diào)色板。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。—刪除原始文件 On Error Resume Next Kill sFilename On Error GoTo 0 39。圖1615 顏色選擇對話框10．mDialogEx模塊mDialogEx類主要用于創(chuàng)建帶圖像預覽功能的文件選擇對話框。計算飽和度 39。代碼省略，詳細代碼請參見光盤 14．mMisc模塊mMisc用于聲明一些系統(tǒng)中常用的函數(shù)?！獎?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。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?！獎?chuàng)建臨時DIB Call (x2 x1, y2 y1) Call (, x1, y1) 39。其界面如圖1617所示。該控件的代碼省略，請讀者參考光盤詳細代碼。*.gif。在主界面中，通過菜單“Filter224。23．顯示圖像信息的窗體在主主窗體中，單擊菜單【View224。Panoramic”可以進入到圖像全景窗體。26．濾鏡效果查看窗體本系統(tǒng)提供了很多的濾鏡效果，通過主窗體的“Filter”菜單和“Adjust”菜單，可以對圖像進行多種圖像的濾鏡處理。 圖1627 濾鏡預覽窗體 圖1628 濾鏡選擇框關(guān)于數(shù)字圖像處理系統(tǒng)的核心功能和代碼，就介紹到此。 該窗體中使用了大量的API函數(shù)來實現(xiàn)該功能。 圖1624 顯示圖像信息 圖1625 圖像打印設置窗體fPrint窗體的代碼省略，請讀者參考光盤詳細代碼。 圖1622 材質(zhì)選擇對話框 圖1623 改變圖像大小對話框用戶如果選擇“Maintain aspect ratio”，則表示高度和寬度按照原始比例進行縮放。22．為圖像選擇材質(zhì)的窗體本系統(tǒng)中，有一種濾鏡效果就是為圖像增加各種材質(zhì)效果，因此在實現(xiàn)該功能值錢，需要選擇一種材質(zhì)圖片。首先定義一個該窗體的實例Dim fDlg As New fDialogEx39。其運行界面如圖1618所示。此時，鼠標會出現(xiàn)手的形狀 在ucCanvas控件中，有大量的函數(shù)和代碼，由于篇幅限制，請讀者參照本書光盤源代碼學習?！狢opy菜單 39。（1）mnuCrop菜單單擊事件，讀者可以參考ucCanvas控件的設計，該控件中設計了幾個彈出式的菜單，分別為“Crop”、“Copy”、和“Remove Frame”。通過滾輪來放大或者縮小圖像。 （1）PutINI函數(shù)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。該模塊的代碼省略，請讀者參考光盤詳細代碼。 Palette based (Get palette indexes) aData() = () Case 24 39?！@得圖像數(shù)據(jù)大小 Walg = (( * BPP + 31) \ 32) * 4 ReDim aData(Walg 1, 1) 39。代碼省略，詳細代碼請參見光盤 （19）Texturize濾鏡 39。代碼省略，詳細代碼請參見光盤 （11）Relieve濾鏡39。代碼省略，詳細代碼請參見光盤 （3）Contrast濾鏡39。4．cDIBFilter類模塊cDIBFilter類主要實現(xiàn)了各種常用濾鏡的實現(xiàn)。—獲得調(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, , 0, , ByVal (, , ), aData(1), DIB_ RGB_COLORS) End If 39。39?！獎?chuàng)建位圖頭 With m_tBIH .biSize = Len(m_tBIH) .biPlanes = 1 .biBitCount = 32 .biWidth = NewWidth .biHeight = NewHeight .biSizeImage = (4 * NewWidth) * NewHeight End With 39。1．fMain窗體首先要來學習系統(tǒng)的主窗體的核心代碼。③ 高斯拉普拉斯算子由于噪聲點（灰度與周圍點相差很大的點）對邊沿檢測有一定的影響，所以效果更好的邊沿檢測器是高斯拉普拉斯（LOG）算子。梯度是有方向的，和邊沿的方向總是正交（垂直）的，例如，對于圖像的轉(zhuǎn)置圖像，邊是水平方向的，可以用梯度是垂直方向的模板 檢測它的邊沿。下面的實例是用33的窗口進行中值濾波，讀者也可以自己設置窗口大小。圖像平滑亦分為空間域處理和頻譜域處理兩種。卷積是實現(xiàn)銳化的一個很好的變通。因此要消除模糊，必須增強圖像中頻率高的空間頻率成分，即圖像的銳化（或細微層次強調(diào)）。反變換公式如下：此時的旋轉(zhuǎn)的中心點在圖像的原點，也就是客戶區(qū)坐標的左上角，如果要求旋轉(zhuǎn)的中心點為圖像的中心，則反變換公式修改如下：其中icenter和jcenter分別是旋轉(zhuǎn)前圖像的寬度和高度的一半，此時在內(nèi)存中動態(tài)創(chuàng)建兩個位圖對象TempBmp和NewBmp，一個用于存放旋轉(zhuǎn)前的位圖（TempBmp），另一個則是存放旋轉(zhuǎn)后的位圖（NewBmp），位圖格式為24位真彩色。適當?shù)剡M行一些明暗調(diào)整，會讓整個圖像顯得更加自然。因此，在對灰度圖像進行二值化的過程中，如果選用全局閾值法顯然是不合適的。YUV和RGB之間有著如下的對應關(guān)系： 利用上式，可以求出：Y＝+0587G+根據(jù)R，G，B的值求出Y值后，將R，G，B值都賦值成Y，就能表示出灰度圖來，這就是24位真彩色圖轉(zhuǎn)灰度圖的原理。對于VB窗體和控件，倘若在API繪圖過程中使用這個函數(shù)，建議恢復原來的StretchBlt模式。Private Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long（9）BitBlt函數(shù)將一幅位圖從一個設備場景復制到另一個。Private Declare Function GetObject Lib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long（6）GetObjectType函數(shù)判斷由指定句柄引用的GDI對象的類型Private Declare Function GetObjectType Lib gdi32 (ByVal hgdiobj As Long) As Long（7）SelectObject函數(shù)用于選擇對象?！旧?】，其中“工程1”為創(chuàng)建的自定義控件工程的名稱，用戶可以通過工程屬性修改。（2）添加屬性和方法為了能夠讓用戶能夠使用該控件，總是需要為該控件添加一些屬性和方法，下面介紹為控件添加屬性和方法。很多時候為了實現(xiàn)某個功能，或者實現(xiàn)代碼的管理，自己開發(fā)一個控件是一個很好的選擇。 實例實現(xiàn)39。在“編輯”欄中點擊“打開”命令按鈕，選擇圖片載入程序，選擇的圖片將同時載入“操作區(qū)域”和“對比區(qū)域”，“操作區(qū)域”將根據(jù)圖片的大小顯示和隱藏滾動條，以便瀏覽圖片，如圖163所示。因此，圖像的旋轉(zhuǎn)就變?yōu)辄c的旋轉(zhuǎn)，利用逐點計算的方法就可以實現(xiàn)整幅畫面的旋轉(zhuǎn)。第16章 圖像處理綜合系統(tǒng)第16章 圖像處理綜合系統(tǒng)本章導讀本章介紹以下2個綜合系統(tǒng)：◆ 畫筆系統(tǒng)◆ 綜合圖像處理系統(tǒng) 畫筆系統(tǒng)綜合前面所學過的有關(guān)圖像處理特效的知識，編寫圖像處理綜合系統(tǒng)。圖像是由多個點組成的，如果將每一個點都按一定的角度進行旋轉(zhuǎn)，整幅圖像也就進行了旋轉(zhuǎn)。圖161 圖像處理綜合系統(tǒng)界面圖162 圖像綜合處理中的畫圖載入圖片后，畫圖工具仍然可用，你可以在圖片上進行畫圖操作。單擊“退出”按鈕結(jié)束程序。1．自定義控件開發(fā)本系統(tǒng)中，使用了4個自定義的控件，分別是ucCanvas、ucInfo、ucProgress以及ucToolbar，這些控件都不是Visual Basic自帶的，也不是第三方控件，而是通過Visual Basic提供的工具來開發(fā)的?！咎砑佑脩艨丶?，來添加自定義控件。HFF00FF, 16, NNN|NN|OO|NNN|C