【正文】 轉(zhuǎn)的角度要是90的整數(shù)倍。 實(shí)例實(shí)現(xiàn)39。通常，對(duì)于要求很高的數(shù)字圖像處理，一般都是通過(guò)Visual C++來(lái)實(shí)現(xiàn)，在Visual Basic中，如果要進(jìn)行大規(guī)模的圖像處理，可以調(diào)用通過(guò)C++編譯的動(dòng)態(tài)鏈接庫(kù)來(lái)實(shí)現(xiàn)。很多時(shí)候?yàn)榱藢?shí)現(xiàn)某個(gè)功能，或者實(shí)現(xiàn)代碼的管理，自己開(kāi)發(fā)一個(gè)控件是一個(gè)很好的選擇。在圖169中，選擇“AciveX 控件”，然后單擊【打開(kāi)】按鈕，創(chuàng)建后界面如圖1610所示。（2）添加屬性和方法為了能夠讓用戶(hù)能夠使用該控件，總是需要為該控件添加一些屬性和方法，下面介紹為控件添加屬性和方法。該函數(shù)用于設(shè)定屬性TextFile的值Public Property Let TextFile(ByVal New_TextFile As String) m_TextFile = New_TextFile Call RefreshEnd Property 39?！旧?】，其中“工程1”為創(chuàng)建的自定義控件工程的名稱(chēng)，用戶(hù)可以通過(guò)工程屬性修改。這是一個(gè)非常有用的函數(shù)，通過(guò)它我們可以用DIB替代DDB。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對(duì)象的類(lèi)型Private Declare Function GetObjectType Lib gdi32 (ByVal hgdiobj As Long) As Long（7）SelectObject函數(shù)用于選擇對(duì)象。選定的對(duì)象會(huì)在設(shè)備場(chǎng)景的繪圖操作中使用。Private Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long（9）BitBlt函數(shù)將一幅位圖從一個(gè)設(shè)備場(chǎng)景復(fù)制到另一個(gè)。這個(gè)函數(shù)會(huì)在設(shè)備場(chǎng)景中定義一個(gè)目標(biāo)矩形，并在位圖中定義一個(gè)源圖像。對(duì)于VB窗體和控件，倘若在API繪圖過(guò)程中使用這個(gè)函數(shù)，建議恢復(fù)原來(lái)的StretchBlt模式。3．常用圖像處理原理本系統(tǒng)實(shí)現(xiàn)了很多的圖像處理的功能，但是每種圖像處理都有一定的理論基礎(chǔ)，下面介紹一些常用的圖像處理的原理。YUV和RGB之間有著如下的對(duì)應(yīng)關(guān)系： 利用上式，可以求出：Y＝+0587G+根據(jù)R，G，B的值求出Y值后，將R，G，B值都賦值成Y，就能表示出灰度圖來(lái)，這就是24位真彩色圖轉(zhuǎn)灰度圖的原理。閾值的選擇主要可以分為兩類(lèi)：全局閾值和局部閾值。因此，在對(duì)灰度圖像進(jìn)行二值化的過(guò)程中，如果選用全局閾值法顯然是不合適的。一般采用88的分塊大小的動(dòng)態(tài)閾值二值化方法能取得的效果最佳。適當(dāng)?shù)剡M(jìn)行一些明暗調(diào)整，會(huì)讓整個(gè)圖像顯得更加自然。很顯然，該點(diǎn)是原圖中的某一點(diǎn)經(jīng)過(guò)平移后得到的，這兩點(diǎn)的顏色肯定是一樣的，所以只要知道了原圖那點(diǎn)的RGB值即可。反變換公式如下：此時(shí)的旋轉(zhuǎn)的中心點(diǎn)在圖像的原點(diǎn)，也就是客戶(hù)區(qū)坐標(biāo)的左上角，如果要求旋轉(zhuǎn)的中心點(diǎn)為圖像的中心，則反變換公式修改如下：其中icenter和jcenter分別是旋轉(zhuǎn)前圖像的寬度和高度的一半，此時(shí)在內(nèi)存中動(dòng)態(tài)創(chuàng)建兩個(gè)位圖對(duì)象TempBmp和NewBmp，一個(gè)用于存放旋轉(zhuǎn)前的位圖（TempBmp），另一個(gè)則是存放旋轉(zhuǎn)后的位圖（NewBmp），位圖格式為24位真彩色。（8）圖像波浪效果與圖像的扭曲類(lèi)似，在處理此類(lèi)問(wèn)題的時(shí)候一般用反向求取法，即假如對(duì)一幅經(jīng)過(guò)波浪處理過(guò)的圖像上的一個(gè)像素點(diǎn)Pixels[i, j]，通過(guò)坐標(biāo)的反變換，我們可以求出這個(gè)點(diǎn)所對(duì)應(yīng)的是原始位圖上的哪一個(gè)點(diǎn)，求出原始圖上該點(diǎn)的坐標(biāo)，例如波浪處理過(guò)的圖像上的一點(diǎn)為Pixels[XSrc,YSrc]，而經(jīng)過(guò)坐標(biāo)反變換后得到對(duì)應(yīng)的點(diǎn)為Pixels[i,j]，則只需Pixels[i, j]=Pixels[XSrc,YSrc]，就實(shí)現(xiàn)像素點(diǎn)的顏色賦值。因此要消除模糊，必須增強(qiáng)圖像中頻率高的空間頻率成分，即圖像的銳化（或細(xì)微層次強(qiáng)調(diào)）。微分運(yùn)算可用來(lái)求信號(hào)的變化率，因而具有加強(qiáng)高頻分量的作用。卷積是實(shí)現(xiàn)銳化的一個(gè)很好的變通。要求得正確的圖像信息則必須消除噪聲。圖像平滑亦分為空間域處理和頻譜域處理兩種。一般的鄰域有四點(diǎn)鄰域和八點(diǎn)鄰域，八點(diǎn)鄰域效果要好于四點(diǎn)鄰域，和銳化一樣，采用模板來(lái)編制程序。下面的實(shí)例是用33的窗口進(jìn)行中值濾波，讀者也可以自己設(shè)置窗口大小。（14）邊緣檢測(cè)我們給出一個(gè)模板和一幅圖像，進(jìn)行模板操作后的結(jié)果如下：不難發(fā)現(xiàn)原圖中左邊暗，右邊亮，中間存在著一條明顯的邊界，第三四列比其他列的灰度值高很多，人眼觀察時(shí)，就能發(fā)現(xiàn)一條很明顯的亮邊，其他區(qū)域都很暗，這樣就起到了邊沿檢測(cè)的目的。梯度是有方向的，和邊沿的方向總是正交（垂直）的，例如，對(duì)于圖像的轉(zhuǎn)置圖像，邊是水平方向的，可以用梯度是垂直方向的模板 檢測(cè)它的邊沿。有兩個(gè)，一個(gè)是檢測(cè)水平邊沿的即，一個(gè)是檢測(cè)垂直平邊沿的即。③ 高斯拉普拉斯算子由于噪聲點(diǎn)（灰度與周?chē)c(diǎn)相差很大的點(diǎn)）對(duì)邊沿檢測(cè)有一定的影響，所以效果更好的邊沿檢測(cè)器是高斯拉普拉斯（LOG）算子。要注意的是，我們處理的雖然是二值圖，但實(shí)際上是256級(jí)灰度圖，不過(guò)只用到了0和255兩種顏色。1．fMain窗體首先要來(lái)學(xué)習(xí)系統(tǒng)的主窗體的核心代碼。在該類(lèi)中利用了大量的API函數(shù)，在編程原理中已經(jīng)有介紹，這里就不再介紹了?！?jiǎng)?chuàng)建位圖頭 With m_tBIH .biSize = Len(m_tBIH) .biPlanes = 1 .biBitCount = 32 .biWidth = NewWidth .biHeight = NewHeight .biSizeImage = (4 * NewWidth) * NewHeight End With 39?！O(shè)置背景顏色 Call SetRect(tRect, 0, 0, NewWidth, NewHeight) hBrush = CreateSolidBrush(BackColor) Call FillRect(m_hDC, tRect, hBrush) Call DeleteObject(hBrush) Else Call End If End If 39。39。創(chuàng)建DIB lhDC = CreateCompatibleDC(0) If (lhDC 0) Then lhOldBmp = SelectObject(lhDC, ) 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, , 0, , ByVal (, , ), aData(1), DIB_ RGB_COLORS) End If 39。 刪除設(shè)備描述表 Call DeleteDC(clp_hDC) End If End If 39。4．cDIBFilter類(lèi)模塊cDIBFilter類(lèi)主要實(shí)現(xiàn)了各種常用濾鏡的實(shí)現(xiàn)。（1）Blur濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （3）Contrast濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （7）Negative濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （11）Relieve濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （15）Scanlines濾鏡39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （19）Texturize濾鏡 39。6．cDIBSave類(lèi)模塊cDIBSave類(lèi)用于保存圖像數(shù)據(jù)?！@得圖像數(shù)據(jù)大小 Walg = (( * BPP + 31) \ 32) * 4 ReDim aData(Walg 1, 1) 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。 Palette based (Get palette indexes) aData() = () Case 24 39。該類(lèi)的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。帶預(yù)覽功能的文件選擇對(duì)話框界面請(qǐng)參考21小節(jié)。（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。—彩色模式 Else If (L = ) Then S = (Max Min) / (Max + Min) Else S = (Max Min) / (2 Max Min) End If 39。 （1）PutINI函數(shù)39。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。通過(guò)滾輪來(lái)放大或者縮小圖像。向上滾動(dòng) Call (0) 39。（1）mnuCrop菜單單擊事件，讀者可以參考ucCanvas控件的設(shè)計(jì)，該控件中設(shè)計(jì)了幾個(gè)彈出式的菜單，分別為“Crop”、“Copy”、和“Remove Frame”。—獲得選取的坐標(biāo) Call (x1, y1, x2, y2) 39。—Copy菜單 39。—取消選取 Call Call End SelectEnd Sub當(dāng)通過(guò)系統(tǒng)打開(kāi)一副圖像后，通過(guò)工具欄或者菜單“Edit224。此時(shí)，鼠標(biāo)會(huì)出現(xiàn)手的形狀 在ucCanvas控件中，有大量的函數(shù)和代碼，由于篇幅限制，請(qǐng)讀者參照本書(shū)光盤(pán)源代碼學(xué)習(xí)。圖1617 ucInfo控件19．ucProgress控件ucProgress控件用于顯示正在處理圖像的進(jìn)程。其運(yùn)行界面如圖1618所示。Open”，會(huì)彈出圖像選擇框，如圖1619所示。首先定義一個(gè)該窗體的實(shí)例Dim fDlg As New fDialogEx39。*.png。22．為圖像選擇材質(zhì)的窗體本系統(tǒng)中，有一種濾鏡效果就是為圖像增加各種材質(zhì)效果，因此在實(shí)現(xiàn)該功能值錢(qián)，需要選擇一種材質(zhì)圖片。Texturize”，可以彈出該窗體，其界面如圖1622所示。 圖1622 材質(zhì)選擇對(duì)話框 圖1623 改變圖像大小對(duì)話框用戶(hù)如果選擇“Maintain aspect ratio”，則表示高度和寬度按照原始比例進(jìn)行縮放。fProperties窗體的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。 圖1624 顯示圖像信息 圖1625 圖像打印設(shè)置窗體