twitter oauth icomparer erreur

Question

Je suis en train de convertir ce code de csharp en vb. Utilisé tous les enfants de csharp libre au convertisseur de vb mais obtenant une erreur. S'il vous plaît laissez savoir si quelqu'un a déjà résolu ce problème.

erreur:

classe 'QueryParameterComparer' doit mettre en œuvre 'Fonction Compare (x As OAuthBase.QueryParameter, y As OAuthBase.QueryParameter) As Integer' pour l'interface 'System.Collections.Generic.IComparer (de QueryParameter)'

de code C#:

protected class QueryParameterComparer : IComparer<QueryParameter> 
    { 

     public int Compare(QueryParameter x, QueryParameter y) 
     { 
      if (x.Name == y.Name) 
      { 
       return string.Compare(x.Value, y.Value); 
      } 
      else 
      { 
       return string.Compare(x.Name, y.Name); 
      } 
     } 

    } 

au code vb

Protected Class QueryParameterComparer 
     Implements IComparer(Of QueryParameter) 

     #Region "IComparer Members" 

     Public Function Compare(ByVal x As QueryParameter, ByVal y As QueryParameter) As Integer 
      If x.Name = y.Name Then 
       Return String.Compare(x.Value, y.Value) 
      Else 
       Return String.Compare(x.Name, y.Name) 
      End If 
     End Function 

     #End Region 
    End Class 

Answer 1

Essayez de coller OAuthBase. devant chacun de vos types de paramètres? Vous pouvez également utiliser une bibliothèque OAuth telle que DotNetOpenAuth ou LinqToTwitter pour ne pas avoir à vous en préoccuper. :)

Answer 2

Public Function Compare(ByVal x As OAuth.QueryParameter, ByVal y As OAuth.QueryParameter) As Integer _ 
    Implements IComparer(Of QueryParameter).Compare 

Answer 3

Ajouter ceci à la fin de la déclaration de fonction

Met en œuvre IComparer (Of QueryParameter) .Compare

donc il est:

Public Function Compare(ByVal x As QueryParameter, ByVal y As QueryParameter) As Integer Implements IComparer(Of QueryParameter).Compare 
     If (x.Name = y.Name) Then 
      Return String.Compare(x.Value, y.Value) 
     Else 
      Return String.Compare(x.Name, y.Name) 
     End If 
    End Function