2014将盘的文件读入图片框中.docVIP

将c盘的文件读入图片框picture1中， 第二个d盘的文件读入图片框picture2中 用api函数可以获取屏幕上任意点的颜色值 你就把picture1的每一个像素点遍历一遍， 一个点一个点地与picture2比较 这种方法有些麻烦 但是就算是用现成的函数、语句，其思路也是这样的 也有办法就是直接比较两个文件的二进制码，这样比较快捷，但是如果是两张相同的图片分别用bmp和gif等不同格式保存，则此种方法比较会显示“不同”。 回答者：?Li_Zaodie?|?五级?|?2010-2-18 17:49 private function piccmp(f1 as string,f2 as string) as long dim b,p as byte dim n1,n2,l as long l = filelen(f1) if l filelen(f2) then exit function 比较文件大小 n1 = freefile n2 = freefile open f1 for binary as n1 open f2 for binary as n2 打开俩个文件 dim i as long do get n1,i,b get n2,i,p if p b then goto exitf i = i +1 loop until i l piccmp = true exitf: close n1 close n2 end function private sub command1_click() msgbox iff(piccmp(c:\a.jpg,d:\a.jpg),一样,两样) end sub 回答者：?a|?五级?|?2010-2-18 18:43 如果两个图像文件是同样格式的，那就不要用传统的方法打开图像、加载图像什么的，因为我试验过，VB对图像的支持是很差的，图像太大或是格式太新，都没法正常加载的，所以，我觉的，如果只是判断两个图像是否一样，并且两个图像文件的格式相同的话，完全可以把两个图像文件当成一般的二进制文件打开，然后一个字节一个字节的对比…… Option Explicit Private Sub Command1_Click() Const CD = 1024 一次进行比较的字节数 Dim i As Long, j As Long, k As Long Dim A As Long, B As Long, C As Long Dim Sa(1 To CD) As Byte, Sb(1 To CD) As Byte Dim Fa As String, Fb As String Fa = e:\c.bmp 要比较的两个文件 Fb = e:\d.bmp C = FileLen(Fa) If C FileLen(Fb) Then MsgBox 不一样，文件长度不同, , Exit Sub End If A = C \ CD B = C Mod CD Open Fa For Binary Access Read As #1 Open Fb For Binary Access Read As #2 For i = 1 To A For j = 1 To CD DoEvents Get #1, , Sa(j) Get #2, , Sb(j) If Sa(j) Sb(j) Then MsgBox 不一样，文件内容不同, , Exit Sub End If Next Next For j = 1 To B Get #1, , Sa(j) Get #2, , Sb(j) If Sa(j) Sb(j) Then MsgBox 不一样，文件内容不同, , Exit Sub End If Next Close #1 Close #2 MsgBox 一样,