【正文】 用戶按“取消”按鈕Exit Sub End Sub。顯示“ 打開”對話框 = LoadPicture()Path = 39。打開圖像On Error GoTo errhandler = cdlofhidereadonly 39。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnuViewStatusBar_Click() = Not = End SubPrivate Sub mnuViewToolbar_Click() = Not = End SubPrivate Sub mnuFileExit_Click() Unload Me 39。bicubic39。)Result = (I=imread(STR)。paste39。清空剪貼板 (Path) 39。)。)(J=imresize(I,39。)。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。imshow(J,[]))Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnuzoomshuoxiao_Click() Dim Result As String 39。bicubic39。)Result = (I=imread(STR)。paste39。清空剪貼板 (Path) 39。)。)(J=imrotate(I,90,39。)。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnurotaleftrota_Click() Dim Result As String 39。bicubic39。)Result = (I=imread(STR)。paste39。清空剪貼板 (Path) 39。imshow(g)) 39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。對數變換,進行對比度拉伸處理 Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnuToolsopphto_Click() Dim Result As String 39。g=log(1+double(f))。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。imhist(I))End SubPrivate Sub mnuToolsduibidu_Click() Dim Result As String 39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。)End SubPrivate Sub mnuToolsshowhist_Click()Dim Result As String 39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。imshow(Y))Result = (print dbitmap f1) = () (close(gcf)) End SubPrivate Sub mnuToolshist_Click()Dim Result As String 39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。imshow(OUT,map))Result = (print dbitmap f1) = LoadPicture = () (close(gcf))End SubPrivate Sub mnulvjingsmooth_Click()Dim Result As String 39。J=find(GM=10)。GM=sqrt(IX.*IX+IY.*IY)。)(I=double(I)。)。啟動ACTIVEX自動化服務器Result = (clear)Result = (STR=clipboard(39。清空剪貼板 (Path) 39。imshow(fn))Result = (print dbitmap f1) = LoadPicture = () (close(gcf)) 39。symmetric39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。imshow(g_canny))Result = (print dbitmap f1) = LoadPicture = () (close(gcf))End SubPrivate Sub mnulvjingnoisefilt_Click()Dim Result As String 39。canny39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。figure,imshow(J))Result = (print dbitmap f2) = LoadPicture = () (close all)End SubPrivate Sub ToolBar_ButtonClick(ByVal Button As ) On Error Resume Next Select Case Case Is = 新建 mnuFileNew_Click Case Is = 打開 mnuFileOpen_Click Case Is = 保存 mnuFileSaveAs_Click Case Is = 撤消 Case Is = 重復 Case 打印 mnuFilePrint_Click Case 放大 mnuzoomfangda_Click Case 縮小 mnuzoomshuoxiao_Click Case 左旋轉 mnurotaleftrota_Click Case 右旋轉 mnurotarightrota_Click Case 上一張 mnuViewupnext_Click Case 下一張 mnuViewdownnext_Click Case 第一張 mnuViewfirst_Click End SelectEnd SubPrivate Sub mnulvjingedgetext_Click()Dim Result As String 39。)(imshow(I)。)。啟動ACTIVEX自動化服務器Result = (clear)Result = (STR=clipboard(39。清空剪貼板 (Path) 39。)Result = (J=imadjust(I,[0 ],[ 1])。)。啟動ACTIVEX自動化服務器Result = (clear)Result = (STR=clipboard(39。清空剪貼板 (Path) 39。imshow(g),)Result = (print dbitmap f1) = LoadPicture = () (close(gcf))39。)Result = (I=imread(STR)。paste39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。close all sub forms For i = 1 To 1 Step 1 Unload Forms(i) Next If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End IfEnd SubPrivate Sub hsl_Change() = End SubPrivate Sub light_Click()Dim Result As String 39。 = 1500 39。在此，也向他們表示感謝！ 附 錄本系統中所用到的相關代碼:Private Declare Function OSWinHelp% Lib user32 Alias WinHelpA (ByVal hwndamp。正是在朱老師的指導下，我逐步理清了設計思路，明白了設計目的。首先，要感謝我的指導老師，朱衛(wèi)平老師。雖然在醫(yī)學圖像處理設計之初，就將面向實際應用作為預期目標，但是到目前為止其實際應用仍然十分有限，這也是本圖像處理的一個進一步研究的方向。%此為用高斯濾波后 Canny 算子邊緣檢測結果；檢測結果如下圖圖 310圖 311 圖像邊緣檢測前后對比第 4 章 總結本文主要內容是介紹了 MATLAB 在醫(yī)學圖像處理領域內的編程，由于時間倉促，筆者水平有限，導致本文還只是對圖像進行簡單的處理，并且只能進行一次簡單的處理。canny edge che