【正文】 im Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。啟動(dòng)ACTIVEX自動(dòng)化服務(wù)器Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = ([I,map]=imread(STR)。)(I=double(I)。[IX,IY]=gradient(I)。GM=sqrt(IX.*IX+IY.*IY)。OUT=I。J=find(GM=10)。OUT(J)=GM(J)。imshow(OUT,map))Result = (print dbitmap f1) = LoadPicture = () (close(gcf))End SubPrivate Sub mnulvjingsmooth_Click()Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。啟動(dòng)ACTIVEX自動(dòng)化服務(wù)器Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。) (Y=ordfilt2(I,5,ones(3,3))。imshow(Y))Result = (print dbitmap f1) = () (close(gcf)) End SubPrivate Sub mnuToolshist_Click()Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。啟動(dòng)ACTIVEX自動(dòng)化服務(wù)器Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)Result = (histeq(I)。)End SubPrivate Sub mnuToolsshowhist_Click()Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。啟動(dòng)ACTIVEX自動(dòng)化服務(wù)器Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)Result = (figure。imhist(I))End SubPrivate Sub mnuToolsduibidu_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。啟動(dòng)ACTIVEX自動(dòng)化服務(wù)器Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。) (f=im2double(I)。g=log(1+double(f))。imshow(g)) 39。對(duì)數(shù)變換,進(jìn)行對(duì)比度拉伸處理 Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnuToolsopphto_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()39。啟動(dòng)ACTIVEX自動(dòng)化服務(wù)器Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)Result = (g=implement(I)。imshow(g)) 39。IPT函數(shù)顯示圖像負(fù)片Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnurotaoprota_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)(J=imrotate(I,180,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnurotaleftrota_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)(J=imrotate(I,90,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnurotarightrota_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)(J=imrotate(I,90,39。bicubic39。)。imshow(J,[]))Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnuzoomshuoxiao_Click() Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)(J=imresize(I,39。bicubic39。)。imshow(J,[])) Result = (print dbitmap f1) = () (close(gcf))End SubPrivate Sub mnuzoomfangda_Click()Dim Result As String 39。清空剪貼板 (Path) 39。將圖像完整路徑寫入剪貼板Set MATLAB = CreateObject()Result = (clear)Result = (STR=clipboard(39。paste39。)。)Result = (I=imread(STR)。)(J=imresize(I,39。bicubic39。)。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。卸載窗體End SubPrivate Sub mnuFilePrint_Click() = True On Error GoTo err_handle , 0, 0, , Exit Suberr_handle:MsgBox Exit Sub End SubPrivate Sub mnuFilePageSetup_Click() On Error Resume Next With cdl .DialogTitle = 頁(yè)面設(shè)置 .CancelError = True .ShowPrinter End WithEnd SubPrivate Sub mnuFileProperties_Click() = False End SubPrivate Sub mnuFileSaveAs_Click() = False = 保存 = D:\My Documents\My Pictures If Then If Err 32755 Then Dim savename As String savename = SavePicture , savename End If End IfEnd SubPrivate Sub mnuFileSave_Click() = sfilesavepiture , sfileEnd SubPrivate Sub mnuFileClose_Click() = LoadPicture()End SubPrivate Sub mnuFileOpen_Click() = True 39。打開圖像On Error GoTo errhandler = cdlofhidereadonly 39。 設(shè)置標(biāo)志 = all files(*.*)|*.* = 2 39。顯示“ 打開”對(duì)話框 = LoadPicture()Path = 39。將圖像的完整路徑賦給 path變量Exit Suberrhandler: 39。用戶按“取消”按鈕Exit Sub End Sub