使用者自订义(user Custom Type)相等？

lolmuta

在不用一个一个比的方法下。有什么方式還可以比二个类型里面的“值”是一样的吗？


我查到的下面这个若遇到字串就不行了
http://www.vb-helper.com/howto_compare_udt.html

1. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, _
   
2.     source As Any, ByVal bytes As Long)
   
3. Private Function MyTypesTheSame(a As MyType, b As MyType) _
   
4.     As Boolean
   
5. Dim i As Integer
   
6. Dim a_bytes() As Byte
   
7. Dim b_bytes() As Byte
   
8. Dim different As Boolean
   
9. 
   
10.     ' Copy the data into arrays of bytes.
    
11.     ReDim a_bytes(1 To Len(a))
    
12.     ReDim b_bytes(1 To Len(b))
    
13. 
    
14.     CopyMemory a_bytes(1), a, Len(a)
    
15.     CopyMemory b_bytes(1), b, Len(b)
    
16. 
    
17.     ' Compare the bytes.
    
18.     For i = 1 To Len(a)
    
19.         If a_bytes(i) <> b_bytes(i) Then
    
20.             MyTypesTheSame = False
    
21.             Exit Function
    
22.         End If
    
23.     Next i
    
24. 
    
25.     MyTypesTheSame = True
    
26. End Function

复制代码

liucqa

上面函数是做值比较的，字符串是指针，当然不行了