將c盤的文件讀入圖片框picture1中

1、將c盤的文件讀入圖片框picture1中，第二個(gè)d盤的文件讀入圖片框picture2中用api函數(shù)可以獲取屏幕上任意點(diǎn)的顏色值你就把picture1的每一個(gè)像素點(diǎn)遍歷一遍，一個(gè)點(diǎn)一個(gè)點(diǎn)地與picture2比較這種方法有些麻煩但是就算是用現(xiàn)成的函數(shù)、語句，其思路也是這樣的也有辦法就是直接比較兩個(gè)文件的二進(jìn)制碼，這樣比較快捷，但是如果是兩張相同的圖片分別用bmp和gif等不同格式保存，則此種方法比較會(huì)顯示“不同”?；卮鹫撸篖i_Zaodie

2、|五級(jí)|201021817:49privatefunctionpiccmp(f1asstringf2asstring)aslongdimbpasbytedimn1n2laslongl=filelen(f1)iflbthengotoexitfi=i1loopuntililpiccmp=trueexitf:closen1closen2endfunctionprivatesubcomm1_click()msgboxiff(piccmp(“c:

3、a.jpg““d:a.jpg“)“一樣““兩樣“)endsubExitSubEndIfNextNextFj=1ToBGet#1Sa(j)Get#2Sb(j)IfSa(j)Sb(j)ThenMsgBox“不一樣，文件內(nèi)容不同“““ExitSubEndIfNextClose#1Close#2MsgBox“一樣“““EndSubPrivateSubFm_QueryUnload(CancelAsIntegerUnloadModeAsIntege

4、r)UnloadMeEndEndSub回答者：lnleny|六級(jí)|201021911:27PrivateFunctionpiccmp(f1AsStringf2AsString)AsBooleimpAsIPictureDispPicture1.Autedraw=TruePicture1.BderStyle=0Me.WindowState=vbMaximizedSetp=LoadPicture(f1)DoEventsMe.ScaleMode