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

D

Dhananjay

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<MembershipUserWrapper> GetMembers(bool
returnAllApprovedUsers, bool returnAllNotApprovedUsers,
string usernameToFind, string sortData)
{

List<MembershipUserWrapper> memberList = new
List<MembershipUserWrapper>();

// 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<MembershipUserWrapper> comparison = null;

switch (sortDataBase)
{
case "UserName":
comparison = new
Comparison<MembershipUserWrapper>(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.UserName.CompareTo(rhs.UserName);
}
);
break;
case "Email":
comparison = new
Comparison<MembershipUserWrapper>(
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<MembershipUserWrapper>(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.CreationDate.CompareTo(rhs.CreationDate);
}
);
break;
case "IsApproved":
comparison = new
Comparison<MembershipUserWrapper>(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.IsApproved.CompareTo(rhs.IsApproved);
}
);
break;
case "IsOnline":
comparison = new
Comparison<MembershipUserWrapper>(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.IsOnline.CompareTo(rhs.IsOnline);
}
);
break;
case "LastLoginDate":
comparison = new
Comparison<MembershipUserWrapper>(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
lhs.LastLoginDate.CompareTo(rhs.LastLoginDate);
}
);
break;
default:
comparison = new
Comparison<MembershipUserWrapper>(
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
 
P

PhilTheGap

Hi Dhananjay,

you can try with Lutz Rioeder's Reflector. Download this tool, compile your
code to produce a DLL, load it into Reflector then export it with VB...

Philippe
 
D

Dhananjay

Hi Dhananjay,

you can try with Lutz Rioeder's Reflector. Download this tool, compile your
code to produce a DLL, load it into Reflector then export it with VB...

Philippe


HI Philippe,

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.

================================MemebershipUserODS.vb file
=============================================================
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

''' <summary>
''' Class Used to Select, Update, Insert and Delete
''' From the Microsoft ASP.NET Membership API
''' </summary>
'''
<DataObject(True)> _
Public Class MembershipUserODS

''' <summary>
''' This insert method is the default insert method. It is
typically associated with
''' a detailview control for inserting new members.
''' </summary>
''' <param name="userName">MembershipUser.UserName</param>
''' <param name="password">MembershipUser.password</param>
''' <param name="isApproved">MembershipUser.IsApproved</param>
''' <param name="comment">MembershipUser.comment</param>
''' <param name="lastLockoutDate">MembershipUser.lastLockoutDate</
param>
''' <param name="creationDate">MembershipUser.creationDate</param>
''' <param name="email">MembershipUser.email</param>
''' <param name="lastActivityDate">MembershipUser.lastActivityDate</
param>
''' <param name="providerName">MembershipUser.providerName</param>
''' <param name="isLockedOut">MembershipUser.isLockedOut</param>
''' <param name="lastLoginDate">MembershipUser.lastLoginDate</param>
''' <param name="isOnline">MembershipUser.isOnline</param>
''' <param name="passwordQuestion">MembershipUser.passwordQuestion</
param>
''' <param
name="lastPasswordChangedDate">MembershipUser.lastPasswordChangedDate</
param>
'''
<DataObjectMethod(DataObjectMethodType.Insert, True)> _
Public Shared Sub Insert(ByVal userName As String, ByVal isApproved
As Boolean, ByVal comment As String, ByVal lastLockoutDate As
DateTime, ByVal creationDate As DateTime, ByVal email As String, ByVal
lastActivityDate As DateTime, ByVal providerName As String, ByVal
isLockedOut As Boolean, ByVal lastLoginDate As DateTime, ByVal
isOnline As Boolean, ByVal passwordQuestion As String, ByVal
lastPasswordChangedDate As DateTime, ByVal password As String, ByVal
passwordAnswer As String)


' The incoming parameters, password and passwordAnswer are not
properties of the
' MembershipUser class. Membership has special member functions to
deal with these
' two special properties for security reasons. For this reason,
they do not appear
' in a datacontrol that is created with this user object.
'
' the only reason you may want to have defaults is so you can build
insert into your
' datacontrol. A better approach would be to either follow the
example shown in the
' Membership.asp page where the parameters are set directly to the
userobject, or not
' include "new" at all in your control and use the other controls
in the Membership API
' for creating new members. (CreateUserWizard, etc)
'
' It is recommended that you only enable the following lines if you
are sure of what you are doing

'if (password == null)
'{
' password = "pass0word";
'}

'if (passwordAnswer == null)
'{
' passwordAnswer = "Password Answer";
'}



Dim status As MembershipCreateStatus
Membership.CreateUser(userName, password, email, passwordQuestion,
passwordAnswer, isApproved, status)

If status <> MembershipCreateStatus.Success Then
Throw New ApplicationException(status.ToString())
End If

Dim mu As MembershipUser = Membership.GetUser(userName)
mu.Comment = comment
Membership.UpdateUser(mu)

End Sub

''' <summary>
''' Takes as input the original username and the current username
''' </summary>
''' <param name="providerUserKey"></param>
''' <param name="Original_providerUserKey"></param>
'''
<DataObjectMethod(DataObjectMethodType.Delete, True)> _
Public Shared Sub Delete(ByVal UserName As String)
Membership.DeleteUser(UserName, True)
End Sub

''' <summary>
''' This update method is the default update as shown by the class
attribute.
'''
''' </summary>
''' <param name="original_UserName">MembershipUser.UserName
originally retrieved</param>
''' <param name="email">MembershipUser.email</param>
''' <param name="isApproved">MembershipUser.isApproved</param>
''' <param name="comment">MembershipUser.comment</param>
''' <param name="password">MembershipUser.password</param>
''' <param name="passwordAnswer">MembershipUser.passwordAnswer</
param>
''' <param name="lastActivityDate">MembershipUser.lastActivityDate</
param>
''' <param name="lastLoginDate">MembershipUser.lastLoginDate</param>
'''
<DataObjectMethod(DataObjectMethodType.Update, True)> _
Public Shared Sub Update(ByVal UserName As String, ByVal email As
String, ByVal isApproved As Boolean, ByVal comment As String, ByVal
lastActivityDate As DateTime, ByVal lastLoginDate As DateTime)
Dim dirtyFlag As Boolean = False

Dim mu As MembershipUser = Membership.GetUser(UserName)

If mu.Comment Is Nothing OrElse mu.Comment.CompareTo(comment) <> 0
Then
dirtyFlag = True
mu.Comment = comment
End If

If mu.Email Is Nothing OrElse mu.Email.CompareTo(email) <> 0 Then
dirtyFlag = True
mu.Email = email
End If

If mu.IsApproved <> isApproved Then
dirtyFlag = True
mu.IsApproved = isApproved
End If

If dirtyFlag = True Then
Membership.UpdateUser(mu)
End If
End Sub

''' <summary>
''' This is just used to set the IsApproved status.
''' username is always passed in for searching purposes.
''' </summary>
''' <param name="original_username">Current UserName to Update
(primary key)</param>
''' <param name="isApproved">MembershipUser.isApproved</param>
'''
<DataObjectMethod(DataObjectMethodType.Update, False)> _
Public Shared Sub Update(ByVal Username As String, ByVal isApproved
As Boolean)
Dim dirtyFlag As Boolean = False
Dim mu As MembershipUser = Membership.GetUser(Username)

If mu.IsApproved <> isApproved Then
dirtyFlag = True
mu.IsApproved = isApproved
End If
If dirtyFlag = True Then
Membership.UpdateUser(mu)
End If
End Sub

''' <summary>
''' Make a list of MembershipUserWrapper objects
''' </summary>
''' <returns>A List of type MembershipUserWrapper</returns>
'''
<DataObjectMethod(DataObjectMethodType.Select, False)> _
Public Shared Function GetMembers() As List(Of
MembershipUserWrapper)
Return GetMembers(True, True, Nothing, Nothing)
End Function

''' <summary>
''' Make a list of MembershipUserWrapper objects by current sort
''' </summary>
''' <param name="sortData">Whicfh Column to perform the sort on</
param>
''' <returns>A List of type MembershipUserWrapper</returns>
'''
<DataObjectMethod(DataObjectMethodType.Select, True)> _
Public Shared Function GetMembers(ByVal sortData As String) As
List(Of MembershipUserWrapper)
' All Users, All approvalStatus
Return GetMembers(True, True, Nothing, sortData)
End Function

''' <summary>
''' returns all approved users by specified sort
''' </summary>
''' <param name="approvalStatus">if true, return approved users</
param>
''' <param name="sortData">description of sort</param>
''' <returns>A List of type MembershipUserWrapper</returns>
'''
<DataObjectMethod(DataObjectMethodType.Select, False)> _
Public Shared Function GetMembers(ByVal approvalStatus As Boolean,
ByVal sortData As String) As List(Of MembershipUserWrapper)
If approvalStatus = True Then
Return GetMembers(True, False, Nothing, sortData)
Else
Return GetMembers(False, True, Nothing, sortData)
End If
End Function

''' <summary>
''' Return a collection of MembershipUserWrapper's based on criteria
passed in as parameters
''' </summary>
''' <param name="returnAllApprovedUsers">returns all users with
approval set to true</param>
''' <param name="returnAllNotApproviedUsers">return all users with
approval set to false</param>
''' <param name="usernameToFind">return based on username (overrides
approval above)</param>
''' <param name="sortData">sort parameter</param>
''' <returns>Returns a Collection of Users (as recommended by
FxCop)</returns>
'''
<DataObjectMethod(DataObjectMethodType.Select, False)> _
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

' Make a special version of sortData for the switch statement so
that whether or not the
' DESC is appended to the string sortData, it will switch on the
base of that string.
Dim sortDataBase As String = sortData ' init and assume there is
not DESC appended to 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

' FxCopy will give us a warning about returning a List rather than
a Collection.
' We could copy the data, but not worth the trouble.
Return memberList

End Function

Private Shared Function AnonymousMethod1(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Integer
Return lhs.UserName.CompareTo(rhs.UserName)
End Function

Private Shared Function AnonymousMethod2(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Integer
If lhs.Email Is Nothing Or rhs.Email Is Nothing Then
Return 0
Else
Return lhs.Email.CompareTo(rhs.Email)
End If
End Function

Private Shared Function AnonymousMethod3(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.CreationDate.CompareTo(rhs.CreationDate)
End Function

Private Shared Function AnonymousMethod4(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.IsApproved.CompareTo(rhs.IsApproved)
End Function

Private Shared Function AnonymousMethod5(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.IsOnline.CompareTo(rhs.IsOnline)
End Function

Private Shared Function AnonymousMethod6(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.LastLoginDate.CompareTo(rhs.LastLoginDate)
End Function

Private Shared Function AnonymousMethod7(ByVal lhs As
MembershipUserWrapper, ByVal rhs As MembershipUserWrapper) As Object
Return lhs.UserName.CompareTo(rhs.UserName)
End Function
End Class
End Namespace
===================================================end
file============================================================


=================================MembershipUserWrapper.vb
file=============================================================
Imports Microsoft.VisualBasic

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.Generic
Imports System.ComponentModel


Namespace MembershipUtilities



''' <summary>
''' Summary description for MembershipUserWrapper
''' This class is inherited from MembershipUser
''' Using the sytax public class ClassName (..) :
base(initializers...) allows for calling the
''' contstructor of the base class. In this case MembershipUser.
''' </summary>
'''
Public Class MembershipUserWrapper
Inherits MembershipUser

''' <summary>
''' This constructor is used to create a MembershipUserWrapper
from a MembershipUser object. MembershipUser is a default type used
''' in the Membership API provided with ASP.NET 2.0
''' </summary>
''' <param name="mu">MembershipUser object</param>
Public Sub New(ByVal mu As MembershipUser)
MyBase.New(mu.ProviderName, mu.UserName,
mu.ProviderUserKey, mu.Email, mu.PasswordQuestion, mu.Comment, _
mu.IsApproved, mu.IsLockedOut, mu.CreationDate,
mu.LastLoginDate, mu.LastActivityDate, mu.LastPasswordChangedDate, _
mu.LastLockoutDate)
End Sub


''' <summary>
''' This calls the base class UserName property. It is here so
we can tag
''' this property as the primary key so that datakeynames
attribute gets set in the data control.
''' </summary>
'''
<DataObjectField(True)> _
Public Overloads Overrides ReadOnly Property UserName() As
String
Get
Return MyBase.UserName
End Get
End Property



''' <summary>
''' This constructor is used to create a MembershipUserWrapper
from individual parameters values.
''' For details of what each parameter means, see the
Microsoft Membership class.
''' </summary>
''' <param name="comment">Passes to MembershipUser.comment</
param>
''' <param name="creationDate">Passes to
MembershipUser.creationDate</param>
''' <param name="email">Passes to MembershipUser.email</param>
''' <param name="isApproved">Passes to
MembershipUser.isApproved</param>
''' <param name="lastActivityDate">Passes to
MembershipUser.lastActivityDate</param>
''' <param name="lastLoginDate">Passes to
MembershipUser.lastLoginDate</param>
''' <param name="passwordQuestion">Passes to
MembershipUser.passwordQuestion</param>
''' <param name="providerUserKey">Passes to
MembershipUser.providerUserKey</param>
''' <param name="userName">Passes to MembershipUser.userName</
param>
''' <param name="lastLockoutDate">Passes to
MembershipUser.lastLockoutDate</param>
''' <param name="providerName">Passes to
MembershipUser.providerName</param>
'''
Public Sub New(ByVal comment As String, ByVal creationDate As
DateTime, ByVal email As String, ByVal isApproved As Boolean, ByVal
lastActivityDate As DateTime, ByVal lastLoginDate As DateTime, _
ByVal passwordQuestion As String, ByVal providerUserKey As
Object, ByVal userName As String, ByVal lastLockoutDate As DateTime,
ByVal providerName As String)
' This calls a constructor of MembershipUser automatically
because of the base reference above
MyBase.New(providerName, userName, providerUserKey, email,
passwordQuestion, comment, _
isApproved, False, creationDate, lastLoginDate,
lastActivityDate, DateTime.Now, _
lastLockoutDate)
End Sub

End Class

End Namespace

=====================================end
file=======================================================================
please try to provide me the solution ASAP. Thanks!
 
P

PhilTheGap

Hi Dhananjay,

Dhananjay said:
HI Philippe,

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.
Nope ! I didn't send you this message...
please have a look and try to correct the code.Thanks in advance.
Sorry but I don't have the time for your request. Ask a MVP !

Best regards
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,484
Members
44,903
Latest member
orderPeak8CBDGummies

Latest Threads

Top