Imports System
Class RGB
Public Shared ReadOnly Dim Red As New RGB(255, 0, 0)
Public Shared ReadOnly Dim Green As New RGB(0, 255, 0)
Public Shared ReadOnly Dim Blue As New RGB(0, 0, 255)
Private R, G, B As Byte
Sub New(ByVal R As Byte, G As Byte, B As Byte)
Me.R = R
Me.G = G
Me.B = B
End Sub
Function IsSameColorWith(ByVal OtherRGB As RGB) As Boolean
Return (Me.R, Me.G, Me.B) = (OtherRGB.R, OtherRGB.B, OtherRGB.G)
End Function
End Class
Module MainModule
Sub Main()
Dim Color As RGB = New RGB(255, 0, 0)
Console.WriteLine(RGB.Red.IsSameColorWith(Color))
End Sub
End Module
我無法控制IsSameColorWith(ByVal OtherRGB As RGB). 我該如何糾正？如何控制多個元組的相等性？
uj5u.com熱心網友回復：
我認為您不需要使用元組。只需檢查 R、G 和 B 的相等性：
Return Me.R = OtherRGB.R AndAlso Me.G = OtherRGB.G AndAlso Me.B = OtherRGB.B
無論如何，=在這種情況下您不能使用運算子：您必須使用.Equals(...).
您的代碼變為：
Return (Me.R, Me.G, Me.B).Equals((OtherRGB.R, OtherRGB.B, OtherRGB.G))
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/399938.html