Anyone help with the VB.Net implementation of PTPrincipal?

gajit posted on Mon, Feb 20 2012 1:02 PM

rated by 0 users

I'm trying to implement the PTPrincipal class in VB.Net, and the direct translation of the C# class produces an error...

Anyone know what the correct syntax should be?

Here's what I get in VB.Net :

Public Shared Sub BeginLogin(username As String, password As String)
            PTIdentity.GetPTIdentity(username, password, Function(o, e)
                                                             If e.[Error] Is Nothing AndAlso e.[Object] IsNot Nothing Then
                                                                 SetPrincipal(e.[Object])
                                                             Else
                                                                 Logout()
                                                             End If
                                                         End Function) '------ doesn't like THIS function aspect.
        End Sub

when I translate THIS code from C#:

    public static void BeginLogin(string username, string password)
    {
      PTIdentity.GetPTIdentity(username, password, (o, e) =>
        {
          if (e.Error == null && e.Object != null)
            SetPrincipal(e.Object);
          else
            Logout();
        });
    }

The design-time error (warning) is:

Function '<anonymous method>' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.

I suspect this is the translator implementing the function incorrectly, but I'm not familiar with the syntax.

Thanks,

Graham