issue when converting C#.net code into vb.net

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Dhananjay
    #1

    issue when converting C#.net code into vb.net

    Hi All,

    I am facing problem when i am converting C#.net code(Delegate concept)
    into vb.net. I am unable to do that . Can someone help me to solve the
    problem. I am providing my C#.net code.

    =============== =============== ====my code is :-
    =============== =============== ========
    [DataObjectMetho d(DataObjectMet hodType.Select, false)]
    static public List<Membership UserWrapperGetM embers(bool
    returnAllApprov edUsers, bool returnAllNotApp rovedUsers,
    string usernameToFind, string sortData)
    {

    List<Membership UserWrappermemb erList = new
    List<Membership UserWrapper>();

    // See if we are looking for just one user
    if (usernameToFind != null)
    {
    MembershipUser mu =
    Membership.GetU ser(usernameToF ind);
    if (mu != null)
    {
    MembershipUserW rapper md = new
    MembershipUserW rapper(mu);
    memberList.Add( md);
    }
    }
    else
    {
    MembershipUserC ollection muc =
    Membership.GetA llUsers();
    foreach (MembershipUser mu in muc)
    {
    if ((returnAllAppr ovedUsers == true &&
    mu.IsApproved == true) ||
    (returnAllNotAp provedUsers == true &&
    mu.IsApproved == false))
    {
    MembershipUserW rapper md = new
    MembershipUserW rapper(mu);
    memberList.Add( md);
    }
    }

    if (sortData == null)
    {
    sortData = "UserName";
    }
    if (sortData.Lengt h == 0)
    {
    sortData = "UserName";
    }


    string sortDataBase = sortData;
    string descString = " DESC";
    if (sortData.EndsW ith(descString) )
    {
    sortDataBase = sortData.Substr ing(0,
    sortData.Length - descString.Leng th);
    }

    Comparison<Memb ershipUserWrapp ercomparison = null;

    switch (sortDataBase)
    {
    case "UserName":
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    return
    lhs.UserName.Co mpareTo(rhs.Use rName);
    }
    );
    break;
    case "Email":
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    if (lhs.Email == null | rhs.Email ==
    null)
    {
    return 0;
    }
    else
    {
    return
    lhs.Email.Compa reTo(rhs.Email) ;
    }
    }
    );
    break;
    case "CreationDa te":
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    return
    lhs.CreationDat e.CompareTo(rhs .CreationDate);
    }
    );
    break;
    case "IsApproved ":
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    return
    lhs.IsApproved. CompareTo(rhs.I sApproved);
    }
    );
    break;
    case "IsOnline":
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    return
    lhs.IsOnline.Co mpareTo(rhs.IsO nline);
    }
    );
    break;
    case "LastLoginDate" :
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    return
    lhs.LastLoginDa te.CompareTo(rh s.LastLoginDate );
    }
    );
    break;
    default:
    comparison = new
    Comparison<Memb ershipUserWrapp er>(
    delegate(Member shipUserWrapper lhs,
    MembershipUserW rapper rhs)
    {
    return
    lhs.UserName.Co mpareTo(rhs.Use rName);
    }
    );
    break;
    }

    if (sortData.EndsW ith("DESC"))
    {
    memberList.Sort (comparison);
    memberList.Reve rse();
    }
    else
    {
    memberList.Sort (comparison);
    }

    }

    return memberList;

    }
    =============== =============== ======C#.net code
    end============ =============== =======

    now i want this part of code into vb.net code , can some one please
    provide me the solution.
    I had tried writing myself C#.net code into vb.net code but unable to
    acheive correct vb.net code.I had used some conversion tool also from
    developer fusion site but it is showing error that is some different
    kind of error.Please provide me the vb.net code.
    it's urgent

    Thanks in advance
    Dhananjay
    Tags: None
    • =?Utf-8?B?RGF2aWQgQW50b24=?=
      #2
      RE: issue when converting C#.net code into vb.net

      The following conversion should be pretty close - however, Instant VB can't
      determine the return types of the extracted methods (since VB doesn't have
      anonymous methods - see the 'delegate' keyword in your original code), so it
      uses 'Object' - you'll have to adjust these:

      <DataObjectMeth od(DataObjectMe thodType.Select , False)_
      Public Shared Function GetMembers(ByVa l returnAllApprov edUsers As Boolean,
      ByVal returnAllNotApp rovedUsers As Boolean, ByVal usernameToFind As String,
      ByVal sortData As String) As List(Of MembershipUserW rapper)

      Dim memberList As List(Of MembershipUserW rapper) = New List(Of
      MembershipUserW rapper)()

      ' See if we are looking for just one user
      If usernameToFind IsNot Nothing Then
      Dim mu As MembershipUser = Membership.GetU ser(usernameToF ind)
      If mu IsNot Nothing Then
      Dim md As New MembershipUserW rapper(mu)
      memberList.Add( md)
      End If
      Else
      Dim muc As MembershipUserC ollection = Membership.GetA llUsers()
      For Each mu As MembershipUser In muc
      If (returnAllAppro vedUsers = True AndAlso mu.IsApproved = True) OrElse
      (returnAllNotAp provedUsers = True AndAlso mu.IsApproved = False) Then
      Dim md As New MembershipUserW rapper(mu)
      memberList.Add( md)
      End If
      Next mu

      If sortData Is Nothing Then
      sortData = "UserName"
      End If
      If sortData.Length = 0 Then
      sortData = "UserName"
      End If


      Dim sortDataBase As String = sortData
      Dim descString As String = " DESC"
      If sortData.EndsWi th(descString) Then
      sortDataBase = sortData.Substr ing(0, sortData.Length - descString.Leng th)
      End If

      Dim comparison As Comparison(Of MembershipUserW rapper) = Nothing

      Select Case sortDataBase
      Case "UserName"
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 1)
      Case "Email"
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 2)
      Case "CreationDa te"
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 3)
      Case "IsApproved "
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 4)
      Case "IsOnline"
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 5)
      Case "LastLoginD ate"
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 6)
      Case Else
      comparison = New Comparison(Of MembershipUserW rapper)(Address Of
      AnonymousMethod 7)
      End Select

      If sortData.EndsWi th("DESC") Then
      memberList.Sort (comparison)
      memberList.Reve rse()
      Else
      memberList.Sort (comparison)
      End If

      End If
      Return memberList
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 1(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      Return lhs.UserName.Co mpareTo(rhs.Use rName)
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 2(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      If lhs.Email Is Nothing Or rhs.Email Is Nothing Then
      Return 0
      Else
      Return lhs.Email.Compa reTo(rhs.Email)
      End If
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 3(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      Return lhs.CreationDat e.CompareTo(rhs .CreationDate)
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 4(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      Return lhs.IsApproved. CompareTo(rhs.I sApproved)
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 5(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      Return lhs.IsOnline.Co mpareTo(rhs.IsO nline)
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 6(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      Return lhs.LastLoginDa te.CompareTo(rh s.LastLoginDate )
      End Function
      'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
      could not be determined by Instant VB:
      Private Shared Function AnonymousMethod 7(ByVal lhs As
      MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
      Return lhs.UserName.Co mpareTo(rhs.Use rName)
      End Function


      --
      Source Code Converters
      http://www.tangiblesoftwaresolutions.com
      Source code converters: Convert between C#, C++, Java, and VB with the most accurate and reliable source code converters

      C++ to C#
      C++ to VB
      C++ to Java
      Instant C#: VB to C#
      Instant VB: C# to VB
      Instant C++ VB Edition: VB to C++/CLI
      Instant C++ C# Edition: C# to C++/CLI


      "Dhananjay" wrote:
      Hi All,
      >
      I am facing problem when i am converting C#.net code(Delegate concept)
      into vb.net. I am unable to do that . Can someone help me to solve the
      problem. I am providing my C#.net code.
      >
      =============== =============== ====my code is :-
      =============== =============== ========
      [DataObjectMetho d(DataObjectMet hodType.Select, false)]
      static public List<Membership UserWrapperGetM embers(bool
      returnAllApprov edUsers, bool returnAllNotApp rovedUsers,
      string usernameToFind, string sortData)
      {
      >
      List<Membership UserWrappermemb erList = new
      List<Membership UserWrapper>();
      >
      // See if we are looking for just one user
      if (usernameToFind != null)
      {
      MembershipUser mu =
      Membership.GetU ser(usernameToF ind);
      if (mu != null)
      {
      MembershipUserW rapper md = new
      MembershipUserW rapper(mu);
      memberList.Add( md);
      }
      }
      else
      {
      MembershipUserC ollection muc =
      Membership.GetA llUsers();
      foreach (MembershipUser mu in muc)
      {
      if ((returnAllAppr ovedUsers == true &&
      mu.IsApproved == true) ||
      (returnAllNotAp provedUsers == true &&
      mu.IsApproved == false))
      {
      MembershipUserW rapper md = new
      MembershipUserW rapper(mu);
      memberList.Add( md);
      }
      }
      >
      if (sortData == null)
      {
      sortData = "UserName";
      }
      if (sortData.Lengt h == 0)
      {
      sortData = "UserName";
      }
      >
      >
      string sortDataBase = sortData;
      string descString = " DESC";
      if (sortData.EndsW ith(descString) )
      {
      sortDataBase = sortData.Substr ing(0,
      sortData.Length - descString.Leng th);
      }
      >
      Comparison<Memb ershipUserWrapp ercomparison = null;
      >
      switch (sortDataBase)
      {
      case "UserName":
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      return
      lhs.UserName.Co mpareTo(rhs.Use rName);
      }
      );
      break;
      case "Email":
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      if (lhs.Email == null | rhs.Email ==
      null)
      {
      return 0;
      }
      else
      {
      return
      lhs.Email.Compa reTo(rhs.Email) ;
      }
      }
      );
      break;
      case "CreationDa te":
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      return
      lhs.CreationDat e.CompareTo(rhs .CreationDate);
      }
      );
      break;
      case "IsApproved ":
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      return
      lhs.IsApproved. CompareTo(rhs.I sApproved);
      }
      );
      break;
      case "IsOnline":
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      return
      lhs.IsOnline.Co mpareTo(rhs.IsO nline);
      }
      );
      break;
      case "LastLoginDate" :
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      return
      lhs.LastLoginDa te.CompareTo(rh s.LastLoginDate );
      }
      );
      break;
      default:
      comparison = new
      Comparison<Memb ershipUserWrapp er>(
      delegate(Member shipUserWrapper lhs,
      MembershipUserW rapper rhs)
      {
      return
      lhs.UserName.Co mpareTo(rhs.Use rName);
      }
      );
      break;
      }
      >
      if (sortData.EndsW ith("DESC"))
      {
      memberList.Sort (comparison);
      memberList.Reve rse();
      }
      else
      {
      memberList.Sort (comparison);
      }
      >
      }
      >
      return memberList;
      >
      }
      =============== =============== ======C#.net code
      end============ =============== =======
      >
      now i want this part of code into vb.net code , can some one please
      provide me the solution.
      I had tried writing myself C#.net code into vb.net code but unable to
      acheive correct vb.net code.I had used some conversion tool also from
      developer fusion site but it is showing error that is some different
      kind of error.Please provide me the vb.net code.
      it's urgent
      >
      Thanks in advance
      Dhananjay
      >

        Comment

        • Dhananjay
          #3
          Re: issue when converting C#.net code into vb.net

          On Jan 29, 9:52 pm, David Anton <DavidAn...@dis cussions.micros oft.com>
          wrote:
          The following conversion should be pretty close - however, Instant VB can't
          determine the return types of the extracted methods (since VB doesn't have
          anonymous methods - see the 'delegate' keyword in your original code), so it
          uses 'Object' - you'll have to adjust these:
          >
          <DataObjectMeth od(DataObjectMe thodType.Select , False)_
          Public Shared Function GetMembers(ByVa l returnAllApprov edUsers As Boolean,
          ByVal returnAllNotApp rovedUsers As Boolean, ByVal usernameToFind As String,
          ByVal sortData As String) As List(Of MembershipUserW rapper)
          >
          Dim memberList As List(Of MembershipUserW rapper) = New List(Of
          MembershipUserW rapper)()
          >
          ' See if we are looking for just one user
          If usernameToFind IsNot Nothing Then
          Dim mu As MembershipUser = Membership.GetU ser(usernameToF ind)
          If mu IsNot Nothing Then
          Dim md As New MembershipUserW rapper(mu)
          memberList.Add( md)
          End If
          Else
          Dim muc As MembershipUserC ollection = Membership.GetA llUsers()
          For Each mu As MembershipUser In muc
          If (returnAllAppro vedUsers = True AndAlso mu.IsApproved = True) OrElse
          (returnAllNotAp provedUsers = True AndAlso mu.IsApproved = False) Then
          Dim md As New MembershipUserW rapper(mu)
          memberList.Add( md)
          End If
          Next mu
          >
          If sortData Is Nothing Then
          sortData = "UserName"
          End If
          If sortData.Length = 0 Then
          sortData = "UserName"
          End If
          >
          Dim sortDataBase As String = sortData
          Dim descString As String = " DESC"
          If sortData.EndsWi th(descString) Then
          sortDataBase = sortData.Substr ing(0, sortData.Length - descString.Leng th)
          End If
          >
          Dim comparison As Comparison(Of MembershipUserW rapper) = Nothing
          >
          Select Case sortDataBase
          Case "UserName"
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 1)
          Case "Email"
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 2)
          Case "CreationDa te"
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 3)
          Case "IsApproved "
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 4)
          Case "IsOnline"
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 5)
          Case "LastLoginD ate"
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 6)
          Case Else
          comparison = New Comparison(Of MembershipUserW rapper)(Address Of
          AnonymousMethod 7)
          End Select
          >
          If sortData.EndsWi th("DESC") Then
          memberList.Sort (comparison)
          memberList.Reve rse()
          Else
          memberList.Sort (comparison)
          End If
          >
          End If
          Return memberList
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 1(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          Return lhs.UserName.Co mpareTo(rhs.Use rName)
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 2(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          If lhs.Email Is Nothing Or rhs.Email Is Nothing Then
          Return 0
          Else
          Return lhs.Email.Compa reTo(rhs.Email)
          End If
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 3(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          Return lhs.CreationDat e.CompareTo(rhs .CreationDate)
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 4(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          Return lhs.IsApproved. CompareTo(rhs.I sApproved)
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 5(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          Return lhs.IsOnline.Co mpareTo(rhs.IsO nline)
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 6(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          Return lhs.LastLoginDa te.CompareTo(rh s.LastLoginDate )
          End Function
          'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
          could not be determined by Instant VB:
          Private Shared Function AnonymousMethod 7(ByVal lhs As
          MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
          Return lhs.UserName.Co mpareTo(rhs.Use rName)
          End Function
          >
          --http://www.tangiblesof twaresolutions. com
          C++ to C#
          C++ to VB
          C++ to Java
          Instant C#: VB to C#
          Instant VB: C# to VB
          Instant C++ VB Edition: VB to C++/CLI
          Instant C++ C# Edition: C# to C++/CLI
          >
          "Dhananjay" wrote:
          Hi All,
          >
          I am facing problem when i am converting C#.net code(Delegate concept)
          into vb.net. I am unable to do that . Can someone help me to solve the
          problem. I am providing my C#.net code.
          >
          =============== =============== ====my code is :-
          =============== =============== ========
          [DataObjectMetho d(DataObjectMet hodType.Select, false)]
          static public List<Membership UserWrapperGetM embers(bool
          returnAllApprov edUsers, bool returnAllNotApp rovedUsers,
          string usernameToFind, string sortData)
          {
          >
          List<Membership UserWrappermemb erList = new
          List<Membership UserWrapper>();
          >
          // See if we are looking for just one user
          if (usernameToFind != null)
          {
          MembershipUser mu =
          Membership.GetU ser(usernameToF ind);
          if (mu != null)
          {
          MembershipUserW rapper md = new
          MembershipUserW rapper(mu);
          memberList.Add( md);
          }
          }
          else
          {
          MembershipUserC ollection muc =
          Membership.GetA llUsers();
          foreach (MembershipUser mu in muc)
          {
          if ((returnAllAppr ovedUsers == true &&
          mu.IsApproved == true) ||
          (returnAllNotAp provedUsers == true &&
          mu.IsApproved == false))
          {
          MembershipUserW rapper md = new
          MembershipUserW rapper(mu);
          memberList.Add( md);
          }
          }
          >
          if (sortData == null)
          {
          sortData = "UserName";
          }
          if (sortData.Lengt h == 0)
          {
          sortData = "UserName";
          }
          >
          string sortDataBase = sortData;
          string descString = " DESC";
          if (sortData.EndsW ith(descString) )
          {
          sortDataBase = sortData.Substr ing(0,
          sortData.Length - descString.Leng th);
          }
          >
          Comparison<Memb ershipUserWrapp ercomparison = null;
          >
          switch (sortDataBase)
          {
          case "UserName":
          comparison = new
          Comparison<Memb ershipUserWrapp er>(
          delegate(Member shipUserWrapper lhs,
          MembershipUserW rapper rhs)
          {
          return
          lhs.UserName.Co mpareTo(rhs.Use rName);
          }
          );
          break;
          case "Email":
          comparison = new
          Comparison<Memb ershipUserWrapp er>(
          delegate(Member shipUserWrapper lhs,
          MembershipUserW rapper rhs)
          {
          if (lhs.Email == null | rhs.Email ==
          null)
          {
          return 0;
          }
          else
          {
          return
          lhs.Email.Compa reTo(rhs.Email) ;
          }
          }
          );
          break;
          case "CreationDa te":
          comparison = new
          Comparison<Memb ershipUserWrapp er>(
          delegate(Member shipUserWrapper lhs,
          MembershipUserW rapper rhs)
          {
          return
          lhs.CreationDat e.CompareTo(rhs .CreationDate);
          }
          );
          break;
          case "IsApproved ":
          comparison = new
          Comparison<Memb ershipUserWrapp er>(
          delegate(Member shipUserWrapper lhs,
          MembershipUserW rapper rhs)
          {
          return
          lhs.IsApproved. CompareTo(rhs.I sApproved);
          }
          );
          break;
          case "IsOnline":
          comparison = new
          Comparison<Memb ershipUserWrapp er>(
          delegate(Member shipUserWrapper lhs,
          MembershipUserW rapper rhs)
          {
          return
          lhs.IsOnline.Co mpareTo(rhs.IsO nline);
          }
          );
          break;
          case "LastLoginDate" :
          comparison = new
          >
          ...
          >
          read more »


          Hi David,

          First of all thanks a lot for help.
          After copying the vb.net converted code( which i required) given by
          you, I have got an error (Address Of AnonymousMethod ) which says ''
          method 'private shared function AnonymousMethod 7(lhs as
          membershipUtili ties.membership UserWrapper, rhs as
          membershipUtili ties.membership UserWrapper ) As Object' doesn't have
          same signature As delegate 'Delegate Function Comparision(Of T) (x as
          membershipUserW rapper, y as membershipUserW rapper) As Integer ''

          How do i proceed please guide me as earliest as possible


          Thanks in advance
          Dhananjay

            Comment

            • =?Utf-8?B?RGF2aWQgQW50b24=?=
              #4
              Re: issue when converting C#.net code into vb.net

              Just change the signature of the converted method to match the delegate.
              --
              Source Code Converters
              http://www.tangiblesoftwaresolutions.com
              Source code converters: Convert between C#, C++, Java, and VB with the most accurate and reliable source code converters

              C++ to C#
              C++ to VB
              C++ to Java
              Instant C#: VB to C#
              Instant VB: C# to VB
              Instant C++ VB Edition: VB to C++/CLI
              Instant C++ C# Edition: C# to C++/CLI


              "Dhananjay" wrote:
              On Jan 29, 9:52 pm, David Anton <DavidAn...@dis cussions.micros oft.com>
              wrote:
              The following conversion should be pretty close - however, Instant VB can't
              determine the return types of the extracted methods (since VB doesn't have
              anonymous methods - see the 'delegate' keyword in your original code), so it
              uses 'Object' - you'll have to adjust these:

              <DataObjectMeth od(DataObjectMe thodType.Select , False)_
              Public Shared Function GetMembers(ByVa l returnAllApprov edUsers As Boolean,
              ByVal returnAllNotApp rovedUsers As Boolean, ByVal usernameToFind As String,
              ByVal sortData As String) As List(Of MembershipUserW rapper)

              Dim memberList As List(Of MembershipUserW rapper) = New List(Of
              MembershipUserW rapper)()

              ' See if we are looking for just one user
              If usernameToFind IsNot Nothing Then
              Dim mu As MembershipUser = Membership.GetU ser(usernameToF ind)
              If mu IsNot Nothing Then
              Dim md As New MembershipUserW rapper(mu)
              memberList.Add( md)
              End If
              Else
              Dim muc As MembershipUserC ollection = Membership.GetA llUsers()
              For Each mu As MembershipUser In muc
              If (returnAllAppro vedUsers = True AndAlso mu.IsApproved = True) OrElse
              (returnAllNotAp provedUsers = True AndAlso mu.IsApproved = False) Then
              Dim md As New MembershipUserW rapper(mu)
              memberList.Add( md)
              End If
              Next mu

              If sortData Is Nothing Then
              sortData = "UserName"
              End If
              If sortData.Length = 0 Then
              sortData = "UserName"
              End If

              Dim sortDataBase As String = sortData
              Dim descString As String = " DESC"
              If sortData.EndsWi th(descString) Then
              sortDataBase = sortData.Substr ing(0, sortData.Length - descString.Leng th)
              End If

              Dim comparison As Comparison(Of MembershipUserW rapper) = Nothing

              Select Case sortDataBase
              Case "UserName"
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 1)
              Case "Email"
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 2)
              Case "CreationDa te"
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 3)
              Case "IsApproved "
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 4)
              Case "IsOnline"
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 5)
              Case "LastLoginD ate"
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 6)
              Case Else
              comparison = New Comparison(Of MembershipUserW rapper)(Address Of
              AnonymousMethod 7)
              End Select

              If sortData.EndsWi th("DESC") Then
              memberList.Sort (comparison)
              memberList.Reve rse()
              Else
              memberList.Sort (comparison)
              End If

              End If
              Return memberList
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 1(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              Return lhs.UserName.Co mpareTo(rhs.Use rName)
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 2(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              If lhs.Email Is Nothing Or rhs.Email Is Nothing Then
              Return 0
              Else
              Return lhs.Email.Compa reTo(rhs.Email)
              End If
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 3(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              Return lhs.CreationDat e.CompareTo(rhs .CreationDate)
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 4(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              Return lhs.IsApproved. CompareTo(rhs.I sApproved)
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 5(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              Return lhs.IsOnline.Co mpareTo(rhs.IsO nline)
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 6(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              Return lhs.LastLoginDa te.CompareTo(rh s.LastLoginDate )
              End Function
              'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
              could not be determined by Instant VB:
              Private Shared Function AnonymousMethod 7(ByVal lhs As
              MembershipUserW rapper, ByVal rhs As MembershipUserW rapper) As Object
              Return lhs.UserName.Co mpareTo(rhs.Use rName)
              End Function

              --http://www.tangiblesof twaresolutions. com
              C++ to C#
              C++ to VB
              C++ to Java
              Instant C#: VB to C#
              Instant VB: C# to VB
              Instant C++ VB Edition: VB to C++/CLI
              Instant C++ C# Edition: C# to C++/CLI

              "Dhananjay" wrote:
              Hi All,
              I am facing problem when i am converting C#.net code(Delegate concept)
              into vb.net. I am unable to do that . Can someone help me to solve the
              problem. I am providing my C#.net code.
              =============== =============== ====my code is :-
              =============== =============== ========
              [DataObjectMetho d(DataObjectMet hodType.Select, false)]
              static public List<Membership UserWrapperGetM embers(bool
              returnAllApprov edUsers, bool returnAllNotApp rovedUsers,
              string usernameToFind, string sortData)
              {
              List<Membership UserWrappermemb erList = new
              List<Membership UserWrapper>();
              // See if we are looking for just one user
              if (usernameToFind != null)
              {
              MembershipUser mu =
              Membership.GetU ser(usernameToF ind);
              if (mu != null)
              {
              MembershipUserW rapper md = new
              MembershipUserW rapper(mu);
              memberList.Add( md);
              }
              }
              else
              {
              MembershipUserC ollection muc =
              Membership.GetA llUsers();
              foreach (MembershipUser mu in muc)
              {
              if ((returnAllAppr ovedUsers == true &&
              mu.IsApproved == true) ||
              (returnAllNotAp provedUsers == true &&
              mu.IsApproved == false))
              {
              MembershipUserW rapper md = new
              MembershipUserW rapper(mu);
              memberList.Add( md);
              }
              }
              if (sortData == null)
              {
              sortData = "UserName";
              }
              if (sortData.Lengt h == 0)
              {
              sortData = "UserName";
              }
              string sortDataBase = sortData;
              string descString = " DESC";
              if (sortData.EndsW ith(descString) )
              {
              sortDataBase = sortData.Substr ing(0,
              sortData.Length - descString.Leng th);
              }
              Comparison<Memb ershipUserWrapp ercomparison = null;
              switch (sortDataBase)
              {
              case "UserName":
              comparison = new
              Comparison<Memb ershipUserWrapp er>(
              delegate(Member shipUserWrapper lhs,
              MembershipUserW rapper rhs)
              {
              return
              lhs.UserName.Co mpareTo(rhs.Use rName);
              }
              );
              break;
              case "Email":
              comparison = new
              Comparison<Memb ershipUserWrapp er>(
              delegate(Member shipUserWrapper lhs,
              MembershipUserW rapper rhs)
              {
              if (lhs.Email == null | rhs.Email ==
              null)
              {
              return 0;
              }
              else
              {
              return
              lhs.Email.Compa reTo(rhs.Email) ;
              }
              }
              );
              break;
              case "CreationDa te":
              comparison = new
              Comparison<Memb ershipUserWrapp er>(
              delegate(Member shipUserWrapper lhs,
              MembershipUserW rapper rhs)
              {
              return
              lhs.CreationDat e.CompareTo(rhs .CreationDate);
              }
              );
              break;
              case "IsApproved ":
              comparison = new
              Comparison<Memb ershipUserWrapp er>(
              delegate(Member shipUserWrapper lhs,
              MembershipUserW rapper rhs)
              {
              return
              lhs.IsApproved. CompareTo(rhs.I sApproved);
              }
              );
              break;
              case "IsOnline":
              comparison = new
              Comparison<Memb ershipUserWrapp er>(
              delegate(Member shipUserWrapper lhs,
              MembershipUserW rapper rhs)
              {
              return
              lhs.IsOnline.Co mpareTo(rhs.IsO nline);
              }
              );
              break;
              case "LastLoginDate" :
              comparison = new
              ...

              read more »
              >
              >
              >
              Hi David,
              >
              First of all thanks a lot for help.
              After copying the vb.net converted code( which i required) given by
              you, I have got an error (Address Of AnonymousMethod ) which says ''
              method 'private shared function AnonymousMethod 7(lhs as
              membershipUtili ties.membership UserWrapper, rhs as
              membershipUtili ties.membership UserWrapper ) As Object' doesn't have
              same signature As delegate 'Delegate Function Comparision(Of T) (x as
              membershipUserW rapper, y as membershipUserW rapper) As Integer ''
              >
              How do i proceed please guide me as earliest as possible
              >
              >
              Thanks in advance
              Dhananjay
              >

                Comment

                Previous template Next
                Working...