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 :-
======================================
[DataObjectMethod(DataObjectMethodType.Select, false)]
static public List GetMembers(bool
returnAllApprovedUsers, bool returnAllNotApprovedUsers,
string usernameToFind, string sortData)
{

List memberList = new
List();

// See if we are looking for just one user
if (usernameToFind != null)
{
MembershipUser mu =
Membership.GetUser(usernameToFind);
if (mu != null)
{
MembershipUserWrapper md = new
MembershipUserWrapper(mu);
memberList.Add(md);
}
}
else
{
MembershipUserCollection muc =
Membership.GetAllUsers();
foreach (MembershipUser mu in muc)
{
if ((returnAllApprovedUsers == true &&
mu.IsApproved == true) ||
(returnAllNotApprovedUsers == true &&
mu.IsApproved == false))
{
MembershipUserWrapper md = new
MembershipUserWrapper(mu);
memberList.Add(md);
}
}

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


string sortDataBase = sortData;
string descString = " DESC";
if (sortData.EndsWith(descString))
{
sortDataBase = sortData.Substring(0,
sortData.Length - descString.Length);
}

Comparison comparison = null;

switch (sortDataBase)
{
case "UserName":
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.UserName.CompareTo(rhs.UserName);
}
);
break;
case "Email":
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
if (lhs.Email == null | rhs.Email ==
null)
{
return 0;
}
else
{
return
lhs.Email.CompareTo(rhs.Email);
}
}
);
break;
case "CreationDate":
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.CreationDate.CompareTo(rhs.CreationDate);
}
);
break;
case "IsApproved":
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.IsApproved.CompareTo(rhs.IsApproved);
}
);
break;
case "IsOnline":
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.IsOnline.CompareTo(rhs.IsOnline);
}
);
break;
case "LastLoginDate":
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.LastLoginDate.CompareTo(rhs.LastLoginDate);
}
);
break;
default:
comparison = new
Comparison(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.UserName.CompareTo(rhs.UserName);
}
);
break;
}

if (sortData.EndsWith("DESC"))
{
memberList.Sort(comparison);
memberList.Reverse();
}
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

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:

_
Public Shared Function GetMembers(ByVal returnAllApprovedUsers As Boolean,
ByVal returnAllNotApprovedUsers As Boolean, ByVal usernameToFind As String,
ByVal sortData As String) As List(Of MembershipUserWrapper)

Dim memberList As List(Of MembershipUserWrapper) = New List(Of
MembershipUserWrapper)()

' See if we are looking for just one user
If usernameToFind IsNot Nothing Then
Dim mu As MembershipUser = Membership.GetUser(usernameToFind)
If mu IsNot Nothing Then
Dim md As New MembershipUserWrapper(mu)
memberList.Add(md)
End If
Else
Dim muc As MembershipUserCollection = Membership.GetAllUsers()
For Each mu As MembershipUser In muc
If (returnAllApprovedUsers = True AndAlso mu.IsApproved = True) OrElse
(returnAllNotApprovedUsers = True AndAlso mu.IsApproved = False) Then
Dim md As New MembershipUserWrapper(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.EndsWith(descString) Then
sortDataBase = sortData.Substring(0, sortData.Length - descString.Length)
End If

Dim comparison As Comparison(Of MembershipUserWrapper) = Nothing

Select Case sortDataBase
Case "UserName"
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod1)
Case "Email"
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod2)
Case "CreationDate"
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod3)
Case "IsApproved"
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod4)
Case "IsOnline"
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod5)
Case "LastLoginDate"
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod6)
Case Else
comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
AnonymousMethod7)
End Select

If sortData.EndsWith("DESC") Then
memberList.Sort(comparison)
memberList.Reverse()
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 AnonymousMethod1(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.UserName.CompareTo(rhs.UserName)
End Function
'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
could not be determined by Instant VB:
Private Shared Function AnonymousMethod2(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
If lhs.Email Is Nothing Or rhs.Email Is Nothing Then
Return 0
Else
Return lhs.Email.CompareTo(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 AnonymousMethod3(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.CreationDate.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 AnonymousMethod4(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.IsApproved.CompareTo(rhs.IsApproved)
End Function
'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
could not be determined by Instant VB:
Private Shared Function AnonymousMethod5(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.IsOnline.CompareTo(rhs.IsOnline)
End Function
'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
could not be determined by Instant VB:
Private Shared Function AnonymousMethod6(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.LastLoginDate.CompareTo(rhs.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 AnonymousMethod7(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.UserName.CompareTo(rhs.UserName)
End Function


--
http://www.tangiblesoftwaresolutions.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 :-
> ======================================
> [DataObjectMethod(DataObjectMethodType.Select, false)]
> static public List GetMembers(bool
> returnAllApprovedUsers, bool returnAllNotApprovedUsers,
> string usernameToFind, string sortData)
> {
>
> List memberList = new
> List();
>
> // See if we are looking for just one user
> if (usernameToFind != null)
> {
> MembershipUser mu =
> Membership.GetUser(usernameToFind);
> if (mu != null)
> {
> MembershipUserWrapper md = new
> MembershipUserWrapper(mu);
> memberList.Add(md);
> }
> }
> else
> {
> MembershipUserCollection muc =
> Membership.GetAllUsers();
> foreach (MembershipUser mu in muc)
> {
> if ((returnAllApprovedUsers == true &&
> mu.IsApproved == true) ||
> (returnAllNotApprovedUsers == true &&
> mu.IsApproved == false))
> {
> MembershipUserWrapper md = new
> MembershipUserWrapper(mu);
> memberList.Add(md);
> }
> }
>
> if (sortData == null)
> {
> sortData = "UserName";
> }
> if (sortData.Length == 0)
> {
> sortData = "UserName";
> }
>
>
> string sortDataBase = sortData;
> string descString = " DESC";
> if (sortData.EndsWith(descString))
> {
> sortDataBase = sortData.Substring(0,
> sortData.Length - descString.Length);
> }
>
> Comparison comparison = null;
>
> switch (sortDataBase)
> {
> case "UserName":
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> return
> lhs.UserName.CompareTo(rhs.UserName);
> }
> );
> break;
> case "Email":
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> if (lhs.Email == null | rhs.Email ==
> null)
> {
> return 0;
> }
> else
> {
> return
> lhs.Email.CompareTo(rhs.Email);
> }
> }
> );
> break;
> case "CreationDate":
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> return
> lhs.CreationDate.CompareTo(rhs.CreationDate);
> }
> );
> break;
> case "IsApproved":
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> return
> lhs.IsApproved.CompareTo(rhs.IsApproved);
> }
> );
> break;
> case "IsOnline":
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> return
> lhs.IsOnline.CompareTo(rhs.IsOnline);
> }
> );
> break;
> case "LastLoginDate":
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> return
> lhs.LastLoginDate.CompareTo(rhs.LastLoginDate);
> }
> );
> break;
> default:
> comparison = new
> Comparison(
> delegate(MembershipUserWrapper lhs,
> MembershipUserWrapper rhs)
> {
> return
> lhs.UserName.CompareTo(rhs.UserName);
> }
> );
> break;
> }
>
> if (sortData.EndsWith("DESC"))
> {
> memberList.Sort(comparison);
> memberList.Reverse();
> }
> 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
>

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

On Jan 29, 9:52 pm, David Anton
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:
>
> _
> Public Shared Function GetMembers(ByVal returnAllApprovedU=
sers As Boolean,
> ByVal returnAllNotApprovedUsers As Boolean, ByVal usernameToFind As String=
,
> ByVal sortData As String) As List(Of MembershipUserWrapper)
>
> Dim memberList As List(Of MembershipUserWrapper) =
=3D New List(Of
> MembershipUserWrapper)()
>
> ' See if we are looking for just one user
> If usernameToFind IsNot Nothing Then
> Dim mu As MembershipUser =3D Membership.Ge=
tUser(usernameToFind)
> If mu IsNot Nothing Then
> Dim md As New MembershipUserWrappe=
r(mu)
> memberList.Add(md)
> End If
> Else
> Dim muc As MembershipUserCollection =3D Me=
mbership.GetAllUsers()
> For Each mu As MembershipUser In muc
> If (returnAllApprovedUsers =3D Tru=
e AndAlso mu.IsApproved =3D True) OrElse
> (returnAllNotApprovedUsers =3D True AndAlso mu.IsApproved =3D False) Then
> Dim md As New MembershipUs=
erWrapper(mu)
> memberList.Add(md)
> End If
> Next mu
>
> If sortData Is Nothing Then
> sortData =3D "UserName"
> End If
> If sortData.Length =3D 0 Then
> sortData =3D "UserName"
> End If
>
> Dim sortDataBase As String =3D sortData
> Dim descString As String =3D " DESC"
> If sortData.EndsWith(descString) Then
> sortDataBase =3D sortData.Substrin=
g(0, sortData.Length - descString.Length)
> End If
>
> Dim comparison As Comparison(Of Membership=
UserWrapper) =3D Nothing
>
> Select Case sortDataBase
> Case "UserName"
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod1)
> Case "Email"
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod2)
> Case "CreationDate"
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod3)
> Case "IsApproved"
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod4)
> Case "IsOnline"
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod5)
> Case "LastLoginDate"
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod6)
> Case Else
> comparison =3D New Compari=
son(Of MembershipUserWrapper)(AddressOf
> AnonymousMethod7)
> End Select
>
> If sortData.EndsWith("DESC") Then
> memberList.Sort(comparison)
> memberList.Reverse()
> Else
> memberList.Sort(comparison)
> End If
>
> End If
> Return memberList
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod1(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> Return lhs.UserName.CompareTo(rhs.UserName)
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod2(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> If lhs.Email Is Nothing Or rhs.Email Is Nothing Th=
en
> Return 0
> Else
> Return lhs.Email.CompareTo(rhs.Email)
> End If
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod3(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> Return lhs.CreationDate.CompareTo(rhs.CreationDate=
)
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod4(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> Return lhs.IsApproved.CompareTo(rhs.IsApproved)
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod5(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> Return lhs.IsOnline.CompareTo(rhs.IsOnline)
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod6(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> Return lhs.LastLoginDate.CompareTo(rhs.LastLoginDa=
te)
> End Function
> 'TODO: INSTANT VB TODO TASK: The return type of this anony=
mous method
> could not be determined by Instant VB:
> Private Shared Function AnonymousMethod7(ByVal lhs As
> MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> Return lhs.UserName.CompareTo(rhs.UserName)
> End Function
>
> --http://www.tangiblesoftwaresolutions.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 :-
> > ==================== =====
==============
> > [DataObjectMethod(DataObjectMethodType.Select, false)]
> > static public List GetMembers(bool
> > returnAllApprovedUsers, bool returnAllNotApprovedUsers,
> > string usernameToFind, string sortData)
> > {
>
> > List memberList =3D new
> > List();
>
> > // See if we are looking for just one user
> > if (usernameToFind !=3D null)
> > {
> > MembershipUser mu =3D
> > Membership.GetUser(usernameToFind);
> > if (mu !=3D null)
> > {
> > MembershipUserWrapper md =3D new
> > MembershipUserWrapper(mu);
> > memberList.Add(md);
> > }
> > }
> > else
> > {
> > MembershipUserCollection muc =3D
> > Membership.GetAllUsers();
> > foreach (MembershipUser mu in muc)
> > {
> > if ((returnAllApprovedUsers == true &&
> > mu.IsApproved == true) ||
> > (returnAllNotApprovedUsers == true &&
> > mu.IsApproved == false))
> > {
> > MembershipUserWrapper md =3D new
> > MembershipUserWrapper(mu);
> > memberList.Add(md);
> > }
> > }
>
> > if (sortData == null)
> > {
> > sortData =3D "UserName";
> > }
> > if (sortData.Length == 0)
> > {
> > sortData =3D "UserName";
> > }
>
> > string sortDataBase =3D sortData;
> > string descString =3D " DESC";
> > if (sortData.EndsWith(descString))
> > {
> > sortDataBase =3D sortData.Substring(0,
> > sortData.Length - descString.Length);
> > }
>
> > Comparison comparison =3D null;
>
> > switch (sortDataBase)
> > {
> > case "UserName":
> > comparison =3D new
> > Comparison(
> > delegate(MembershipUserWrapper lhs,
> > MembershipUserWrapper rhs)
> > {
> > return
> > lhs.UserName.CompareTo(rhs.UserName);
> > }
> > );
> > break;
> > case "Email":
> > comparison =3D new
> > Comparison(
> > delegate(MembershipUserWrapper lhs,
> > MembershipUserWrapper rhs)
> > {
> > if (lhs.Email == null | rhs.Email =
==
> > null)
> > {
> > return 0;
> > }
> > else
> > {
> > return
> > lhs.Email.CompareTo(rhs.Email);
> > }
> > }
> > );
> > break;
> > case "CreationDate":
> > comparison =3D new
> > Comparison(
> > delegate(MembershipUserWrapper lhs,
> > MembershipUserWrapper rhs)
> > {
> > return
> > lhs.CreationDate.CompareTo(rhs.CreationDate);
> > }
> > );
> > break;
> > case "IsApproved":
> > comparison =3D new
> > Comparison(
> > delegate(MembershipUserWrapper lhs,
> > MembershipUserWrapper rhs)
> > {
> > return
> > lhs.IsApproved.CompareTo(rhs.IsApproved);
> > }
> > );
> > break;
> > case "IsOnline":
> > comparison =3D new
> > Comparison(
> > delegate(MembershipUserWrapper lhs,
> > MembershipUserWrapper rhs)
> > {
> > return
> > lhs.IsOnline.CompareTo(rhs.IsOnline);
> > }
> > );
> > break;
> > case "LastLoginDate":
> > comparison =3D new
>
> ...
>
> read more =BB



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 AnonymousMethod7(lhs as
membershipUtilities.membershipUserWrapper, rhs as
membershipUtilities.membershipUserWrapper ) As Object' doesn't have
same signature As delegate 'Delegate Function Comparision(Of T) (x as
membershipUserWrapper, y as membershipUserWrapper) As Integer ''

How do i proceed please guide me as earliest as possible


Thanks in advance
Dhananjay

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

Just change the signature of the converted method to match the delegate.
--
http://www.tangiblesoftwaresolutions.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:

> On Jan 29, 9:52 pm, David Anton
> 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:
> >
> > _
> > Public Shared Function GetMembers(ByVal returnAllApprovedUsers As Boolean,
> > ByVal returnAllNotApprovedUsers As Boolean, ByVal usernameToFind As String,
> > ByVal sortData As String) As List(Of MembershipUserWrapper)
> >
> > Dim memberList As List(Of MembershipUserWrapper) = New List(Of
> > MembershipUserWrapper)()
> >
> > ' See if we are looking for just one user
> > If usernameToFind IsNot Nothing Then
> > Dim mu As MembershipUser = Membership.GetUser(usernameToFind)
> > If mu IsNot Nothing Then
> > Dim md As New MembershipUserWrapper(mu)
> > memberList.Add(md)
> > End If
> > Else
> > Dim muc As MembershipUserCollection = Membership.GetAllUsers()
> > For Each mu As MembershipUser In muc
> > If (returnAllApprovedUsers = True AndAlso mu.IsApproved = True) OrElse
> > (returnAllNotApprovedUsers = True AndAlso mu.IsApproved = False) Then
> > Dim md As New MembershipUserWrapper(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.EndsWith(descString) Then
> > sortDataBase = sortData.Substring(0, sortData.Length - descString.Length)
> > End If
> >
> > Dim comparison As Comparison(Of MembershipUserWrapper) = Nothing
> >
> > Select Case sortDataBase
> > Case "UserName"
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod1)
> > Case "Email"
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod2)
> > Case "CreationDate"
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod3)
> > Case "IsApproved"
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod4)
> > Case "IsOnline"
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod5)
> > Case "LastLoginDate"
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod6)
> > Case Else
> > comparison = New Comparison(Of MembershipUserWrapper)(AddressOf
> > AnonymousMethod7)
> > End Select
> >
> > If sortData.EndsWith("DESC") Then
> > memberList.Sort(comparison)
> > memberList.Reverse()
> > 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 AnonymousMethod1(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > Return lhs.UserName.CompareTo(rhs.UserName)
> > End Function
> > 'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
> > could not be determined by Instant VB:
> > Private Shared Function AnonymousMethod2(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > If lhs.Email Is Nothing Or rhs.Email Is Nothing Then
> > Return 0
> > Else
> > Return lhs.Email.CompareTo(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 AnonymousMethod3(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > Return lhs.CreationDate.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 AnonymousMethod4(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > Return lhs.IsApproved.CompareTo(rhs.IsApproved)
> > End Function
> > 'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
> > could not be determined by Instant VB:
> > Private Shared Function AnonymousMethod5(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > Return lhs.IsOnline.CompareTo(rhs.IsOnline)
> > End Function
> > 'TODO: INSTANT VB TODO TASK: The return type of this anonymous method
> > could not be determined by Instant VB:
> > Private Shared Function AnonymousMethod6(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > Return lhs.LastLoginDate.CompareTo(rhs.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 AnonymousMethod7(ByVal lhs As
> > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > Return lhs.UserName.CompareTo(rhs.UserName)
> > End Function
> >
> > --http://www.tangiblesoftwaresolutions.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 :-
> > > ======================================
> > > [DataObjectMethod(DataObjectMethodType.Select, false)]
> > > static public List GetMembers(bool
> > > returnAllApprovedUsers, bool returnAllNotApprovedUsers,
> > > string usernameToFind, string sortData)
> > > {
> >
> > > List memberList = new
> > > List();
> >
> > > // See if we are looking for just one user
> > > if (usernameToFind != null)
> > > {
> > > MembershipUser mu =
> > > Membership.GetUser(usernameToFind);
> > > if (mu != null)
> > > {
> > > MembershipUserWrapper md = new
> > > MembershipUserWrapper(mu);
> > > memberList.Add(md);
> > > }
> > > }
> > > else
> > > {
> > > MembershipUserCollection muc =
> > > Membership.GetAllUsers();
> > > foreach (MembershipUser mu in muc)
> > > {
> > > if ((returnAllApprovedUsers == true &&
> > > mu.IsApproved == true) ||
> > > (returnAllNotApprovedUsers == true &&
> > > mu.IsApproved == false))
> > > {
> > > MembershipUserWrapper md = new
> > > MembershipUserWrapper(mu);
> > > memberList.Add(md);
> > > }
> > > }
> >
> > > if (sortData == null)
> > > {
> > > sortData = "UserName";
> > > }
> > > if (sortData.Length == 0)
> > > {
> > > sortData = "UserName";
> > > }
> >
> > > string sortDataBase = sortData;
> > > string descString = " DESC";
> > > if (sortData.EndsWith(descString))
> > > {
> > > sortDataBase = sortData.Substring(0,
> > > sortData.Length - descString.Length);
> > > }
> >
> > > Comparison comparison = null;
> >
> > > switch (sortDataBase)
> > > {
> > > case "UserName":
> > > comparison = new
> > > Comparison(
> > > delegate(MembershipUserWrapper lhs,
> > > MembershipUserWrapper rhs)
> > > {
> > > return
> > > lhs.UserName.CompareTo(rhs.UserName);
> > > }
> > > );
> > > break;
> > > case "Email":
> > > comparison = new
> > > Comparison(
> > > delegate(MembershipUserWrapper lhs,
> > > MembershipUserWrapper rhs)
> > > {
> > > if (lhs.Email == null | rhs.Email ==
> > > null)
> > > {
> > > return 0;
> > > }
> > > else
> > > {
> > > return
> > > lhs.Email.CompareTo(rhs.Email);
> > > }
> > > }
> > > );
> > > break;
> > > case "CreationDate":
> > > comparison = new
> > > Comparison(
> > > delegate(MembershipUserWrapper lhs,
> > > MembershipUserWrapper rhs)
> > > {
> > > return
> > > lhs.CreationDate.CompareTo(rhs.CreationDate);
> > > }
> > > );
> > > break;
> > > case "IsApproved":
> > > comparison = new
> > > Comparison(
> > > delegate(MembershipUserWrapper lhs,
> > > MembershipUserWrapper rhs)
> > > {
> > > return
> > > lhs.IsApproved.CompareTo(rhs.IsApproved);
> > > }
> > > );
> > > break;
> > > case "IsOnline":
> > > comparison = new
> > > Comparison(
> > > delegate(MembershipUserWrapper lhs,
> > > MembershipUserWrapper rhs)
> > > {
> > > return
> > > lhs.IsOnline.CompareTo(rhs.IsOnline);
> > > }
> > > );
> > > 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 AnonymousMethod7(lhs as
> membershipUtilities.membershipUserWrapper, rhs as
> membershipUtilities.membershipUserWrapper ) As Object' doesn't have
> same signature As delegate 'Delegate Function Comparision(Of T) (x as
> membershipUserWrapper, y as membershipUserWrapper) As Integer ''
>
> How do i proceed please guide me as earliest as possible
>
>
> Thanks in advance
> Dhananjay
>

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

On Jan 30, 1:40 am, David Anton
wrote:
> Just change the signature of the converted method to match the delegate.
> --http://www.tangiblesoftwaresolutions.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:
> > On Jan 29, 9:52 pm, David Anton
> > 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:
>
> > > =
_
> > > Public Shared Function GetMembers(ByVal returnAllAppro=
vedUsers As Boolean,
> > > ByVal returnAllNotApprovedUsers As Boolean, ByVal usernameToFind As St=
ring,
> > > ByVal sortData As String) As List(Of MembershipUserWrapper)
>
> > > Dim memberList As List(Of MembershipUserWrappe=
r) =3D New List(Of
> > > MembershipUserWrapper)()
>
> > > ' See if we are looking for just one user
> > > If usernameToFind IsNot Nothing Then
> > > Dim mu As MembershipUser =3D Membershi=
p.GetUser(usernameToFind)
> > > If mu IsNot Nothing Then
> > > Dim md As New MembershipUserWr=
apper(mu)
> > > memberList.Add(md)
> > > End If
> > > Else
> > > Dim muc As MembershipUserCollection =
=3D Membership.GetAllUsers()
> > > For Each mu As MembershipUser In muc
> > > If (returnAllApprovedUsers =3D=
True AndAlso mu.IsApproved =3D True) OrElse
> > > (returnAllNotApprovedUsers =3D True AndAlso mu.IsApproved =3D False) T=
hen
> > > Dim md As New Membersh=
ipUserWrapper(mu)
> > > memberList.Add(md)
> > > End If
> > > Next mu
>
> > > If sortData Is Nothing Then
> > > sortData =3D "UserName"
> > > End If
> > > If sortData.Length =3D 0 Then
> > > sortData =3D "UserName"
> > > End If
>
> > > Dim sortDataBase As String =3D sortDat=
a
> > > Dim descString As String =3D " DESC"
> > > If sortData.EndsWith(descString) Then
> > > sortDataBase =3D sortData.Subs=
tring(0, sortData.Length - descString.Length)
> > > End If
>
> > > Dim comparison As Comparison(Of Member=
shipUserWrapper) =3D Nothing
>
> > > Select Case sortDataBase
> > > Case "UserName"
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod1)
> > > Case "Email"
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod2)
> > > Case "CreationDate"
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod3)
> > > Case "IsApproved"
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod4)
> > > Case "IsOnline"
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod5)
> > > Case "LastLoginDate"
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod6)
> > > Case Else
> > > comparison =3D New Com=
parison(Of MembershipUserWrapper)(AddressOf
> > > AnonymousMethod7)
> > > End Select
>
> > > If sortData.EndsWith("DESC") Then
> > > memberList.Sort(comparison)
> > > memberList.Reverse()
> > > Else
> > > memberList.Sort(comparison)
> > > End If
>
> > > End If
> > > Return memberList
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod1(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > Return lhs.UserName.CompareTo(rhs.UserName)
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod2(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > If lhs.Email Is Nothing Or rhs.Email Is Nothin=
g Then
> > > Return 0
> > > Else
> > > Return lhs.Email.CompareTo(rhs.Email)
> > > End If
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod3(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > Return lhs.CreationDate.CompareTo(rhs.Creation=
Date)
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod4(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > Return lhs.IsApproved.CompareTo(rhs.IsApproved=
)
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod5(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > Return lhs.IsOnline.CompareTo(rhs.IsOnline)
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod6(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > Return lhs.LastLoginDate.CompareTo(rhs.LastLog=
inDate)
> > > End Function
> > > 'TODO: INSTANT VB TODO TASK: The return type of this a=
nonymous method
> > > could not be determined by Instant VB:
> > > Private Shared Function AnonymousMethod7(ByVal lhs As
> > > MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
> > > Return lhs.UserName.CompareTo(rhs.UserName)
> > > End Function
>
> > > --http://www.tangiblesoftwaresolutions.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 concep=
t)
> > > > into vb.net. I am unable to do that . Can someone help me to solve t=
he
> > > > problem. I am providing my C#.net code.
>
> > > > ==================== ===
============my code is :-
> > > > ==================== ===
================
> > > > [DataObjectMethod(DataObjectMethodType.Select, false)]
> > > > static public List GetMembers(bool
> > > > returnAllApprovedUsers, bool returnAllNotApprovedUsers,
> > > > string usernameToFind, string sortData)
> > > > {
>
> > > > List memberList =3D new
> > > > List();
>
> > > > // See if we are looking for just one user
> > > > if (usernameToFind !=3D null)
> > > > {
> > > > MembershipUser mu =3D
> > > > Membership.GetUser(usernameToFind);
> > > > if (mu !=3D null)
> > > > {
> > > > MembershipUserWrapper md =3D new
> > > > MembershipUserWrapper(mu);
> > > > memberList.Add(md);
> > > > }
> > > > }
> > > > else
> > > > {
> > > > MembershipUserCollection muc =3D
> > > > Membership.GetAllUsers();
> > > > foreach (MembershipUser mu in muc)
> > > > {
> > > > if ((returnAllApprovedUsers == true &&
> > > > mu.IsApproved == true) ||
> > > > (returnAllNotApprovedUsers == true &&
> > > > mu.IsApproved == false))
> > > > {
> > > > MembershipUserWrapper md =3D new
> > > > MembershipUserWrapper(mu);
> > > > memberList.Add(md);
> > > > }
>
> ...
>
> read more =BB



Hi David,

Thanks a lot for reply.
Here in i am providing my both code files , can you please see where
is the problem. I have tried to correct it but it was not
successful.can you please provide me correct complete code. The
problem is same which i mentioned you. It gives error on Anonymous
method(i.e; Delegate concept).In the last reply you told me to change
the signature of method.problem lies in MembershipUserODS file.
please have a look and try to correct the code.Thanks in advance.

==================== =====3D=
=======3DMemebershipUserODS.vb file
==================== =====3D=
==================== =====3D=
===========3D
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Globalization
Imports System.Collections.ObjectModel

Namespace MembershipUtilities

'''