vb 判断的问题。

来源：百度知道 编辑：UC知道 时间：2024/05/12 07:17:52
如果区域内找到颜色a,且a下面的颜色不等于b或a下面的颜色不等于c。则鼠标移动到a颜色上。

Public Function GetRValue(lngColor As Long) As Byte
GetRValue = Val("&H" & Right(Hex(lngColor), 2))
End Function

Public Function GetGValue(lngColor As Long) As Byte
GetGValue = Val("&H" & Mid(Format(Hex(lngColor), "#000000"), 3, 2))
End Function

Public Function GetBValue(lngColor As Long) As Byte
GetBValue = Val("&H" & Left(Format(Hex(lngColor), "#000000"), 2))
End Function

findColorvalueA=...
findColorvalueB=...
findColorvalueC=...

if findColorvalueA<>findColorvalueB OR findColorvalueA<>findColorvalueC then
语句自己写了
end if