VB 如何判断Image的图片是否为某个图片?
例如窗口中有一个Image,两个按钮代码:单击Command1,则执行Image1.Picture=LoadPicture("C:\1.bmp")单击Command2,则...
例如窗口中有一个Image,两个按钮
代码:
单击Command1,则执行
Image1.Picture = LoadPicture("C:\1.bmp")
单击Command2,则执行代码(下面是人的语言描述)
如果Image1的Picture为C:\1.bmp则Command2的Caption为"Y"否则为"N" 展开
代码:
单击Command1,则执行
Image1.Picture = LoadPicture("C:\1.bmp")
单击Command2,则执行代码(下面是人的语言描述)
如果Image1的Picture为C:\1.bmp则Command2的Caption为"Y"否则为"N" 展开
3个回答
展开全部
如果仅仅是判断加载了某个文件,好判断,如果要判断图片的内容是否一样就比较困难了,关键是速度慢,先以判断加载了某个文件来,代码如下:
Private Sub Command1_Click()
Image1.Picture = LoadPicture("C:\1.bmp")
Image1.Tag = "C:\1.bmp"'这个属性是一个额外附加属性,不被系统使用,在此时刚好可以存储一些数据,就当是一个变量来使用就可以了。
End Sub
Private Sub Command2_Click()
If Image1.Tag = "C:\1.bmp" Then
Command2.Caption = "Y"
Else
Command2.Caption = "N"
End If
End Sub
Private Sub Command1_Click()
Image1.Picture = LoadPicture("C:\1.bmp")
Image1.Tag = "C:\1.bmp"'这个属性是一个额外附加属性,不被系统使用,在此时刚好可以存储一些数据,就当是一个变量来使用就可以了。
End Sub
Private Sub Command2_Click()
If Image1.Tag = "C:\1.bmp" Then
Command2.Caption = "Y"
Else
Command2.Caption = "N"
End If
End Sub
展开全部
如果是自己的程序自己的图片,那么设一变量来记录文件路径信息即可,判断的时候和此变量对比;否则程序一旦加载了图片就存入内存,成为原图像文件的一个copy,运行期间和原文件已无太大关系,判断起来很困难;
如果真想判断那就需要采集颜色值信息,计算出两张图的颜色容差,在一定范围内则说明是一张图,当然这是一个 比较复杂的过程,需要调用几个API。
如果真想判断那就需要采集颜色值信息,计算出两张图的颜色容差,在一定范围内则说明是一张图,当然这是一个 比较复杂的过程,需要调用几个API。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个问题涉及到图像比对,如果使用vb实现会相当复杂,建议使用C语言
因为你不仅仅是比对图像的文件名称
因为你不仅仅是比对图像的文件名称
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询