VB編程照片

其實後者和前者差不多，後者只需要調用相機，然後將相機當前的畫面和前壹秒進行對比~

私有聲明函數GetPixel Lib "gdi32" (ByVal hdc為Long，ByVal X為Long，ByVal Y為Long)為Long

私有聲明函數SetPixelV Lib "gdi32" (ByVal hdc為Long，ByVal X為Long，ByVal Y為Long，ByVal crColor為Long)為Long

私有子命令1_Click()

出錯時繼續下壹步

Dim a，b為單個

Dim X，Y，c1，c2壹樣長

對於X = 0到Picture1。ScaleWidth / 5 - 1

對於Y = 0到Picture1。ScaleHeight / 5 - 1

c 1 = get pixel(picture 1 . hdc，X，Y)

c2 = GetPixel(Picture2.hdc，X，Y)

如果c1 = c2，那麽a = a + 1

b = b + 1

然後

打印格式(a / b * 100，" 00.0 ")& amp；"%"

末端接頭

這是比較圖片顯示的相似性。圖片1。ScaleHeight/5是為了加快處理速度！