将C＃.net代码转换为vb.net时出现问题 [英] issue when converting C#.net code into vb.net
问题描述
大家好，
当我将C＃.net代码（委托概念）
转换为vb.net时，我遇到了问题。我无法做到这一点。有人可以帮我解决
问题。我提供我的C＃.net代码。
============================= =====我的代码是： -
================================ ======
[DataObjectMethod（DataObjectMethodType.Select，false）]
static public List< MembershipUserWrapperGetMembers（bool
returnAllApprovedUsers，bool returnAllNotApprovedUsers，
string usernameToFind，string sortData）
{
List< MembershipUserWrappermemberList = new
列表< MembershipUserWrapper>（）;
//看看我们是否只找一个用户
if（usernameToFind！= null）
{
MembershipUser mu =
Membership.GetUser（usernameToFind）;
if（mu！= null）
{
MembershipUserWrapper md = new
MembershipUserWrapper（mu）;
memberList.Add（md）;
}
}
其他
{
MembershipUserCollection muc =
会员资格.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）;
}
比较< MembershipUserWrappercomparison = null;
开关（sortDataBase）
{
case" UserName"：
比较=新
比较< MembershipUserWrapper> ;（
代表（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
return
lhs.UserName.CompareTo（rhs.UserName）;
}
）;
休息;
case电子邮件：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
if（lhs.Email == null | rhs.Email ==
null）
{
返回0;
}
其他
{
r eturn
lhs.Email.CompareTo（rhs.Email）;
}
}
）;
休息;
case" CreationDate"：
比较=新
比较< MembershipUserWrapper>（
delegate（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
return
lhs.CreationDate。 CompareTo（rhs.CreationDate）;
}
）;
break;
case" IsApproved"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.IsApproved.CompareTo（rhs.IsApproved）;
}
）;
休息;
case" IsOnline"：
比较=新
比较< MembershipUserWrapper> ;（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.IsOnline.CompareTo（rhs.IsOnline）;
}
）;
休息;
case" LastLoginDate"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
return
lhs.LastLoginDate.CompareTo（rhs .LastLoginDate）;
}
）;
休息;
默认：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.UserName.CompareTo（rhs.UserName）;
}
）;
休息;
}
if（sortData.EndsWith（" DESC"））
{
memberList.Sort（比较）;
memberList.Reverse（）;
}
其他
{
memberList.Sort（比较） ;
}
}
返回会员列表;
}
==================================== C＃.net code
end ==================================
现在我想将这部分代码转换为vb.net代码，请一些人请
为我提供解决方案。
我曾经尝试过写自己的C＃.net代码到vb.net代码，但无法
实现正确的vb.net代码。我也使用了一些转换工具来自
开发人员融合网站，但它显示的错误是一些不同的
有点错误。请给我提供vb.net代码。
它是紧急的
谢谢你提前
Dhananjay
对于内联代表（匿名方法）你需要使用VB9
（又名VB 2008）。例如，这部分：
case" Email"：
comparison = new
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
if（lhs.Email == null | rhs。电子邮件==
null）
{
返回0;
}
否则
{
返回
lhs.Email.CompareTo（rhs.Email）;
}
}
将成为：
案例电子邮件
比较=新比较（Of MembershipUserWrapper） （_
函数（lhs AS MembershipUserWrapper，rhs As
MembershipUserWrapper）_
if（lhs.Email什么都没有或rhs.Email什么都没有，
0，lhs.Email.CompareTo（rhs.Email））
" Dhananjay" dh ***** *****@yahoo.co.in在留言中写道
新闻：ac ************************** ******** @ c4g2000h sg.googlegroups.com ...
大家好，
当我转换C＃.net代码时我遇到问题（代理概念）
进入vb.net。我无法做到这一点。有人可以帮我解决
问题。我提供我的C＃.net代码。
============================= =====我的代码是： -
================================ ======
[DataObjectMethod（DataObjectMethodType.Select，false）]
static public List< MembershipUserWrapperGetMembers（bool
returnAllApprovedUsers，bool returnAllNotApprovedUsers，
string usernameToFind，string sortData）
{
List< MembershipUserWrappermemberList = new
列表< MembershipUserWrapper>（）;
//看看我们是否只找一个用户
if（usernameToFind！= null）
{
MembershipUser mu =
Membership.GetUser（usernameToFind）;
if（mu！= null）
{
MembershipUserWrapper md = new
MembershipUserWrapper（mu）;
me mberList.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.Leng th == 0）
{
sortData =" UserName";
}
string sortDataBase = sortData;
string descString =" DESC" ;;
if（sortData.EndsWith（descString））
{
sortDataBase = sortData.Substring（0，
sortData.Length - descString.Length）;
}
比较< MembershipUserWrappercomparison = null;
开关（sortDataBase）
{
case" UserName"：
比较=新
比较< MembershipUserWrapper> ;（
代表（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
return
lhs.UserName.CompareTo（rhs.UserName）;
}
）;
休息;
案例电子邮件：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
if（lhs.Email == null | rhs.Email ==
null）
{
返回0;
}
else
{
返回
lhs.Email.CompareTo（rhs.Email）;
} < br $>
}
）;
休息;
case" CreationDate"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.CreationDate.CompareTo（rhs.CreationDate）;
}
）;
休息;
case" IsApproved"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.IsApproved.CompareTo（rhs.IsApproved）;
}
）;
break;
case" IsOnline"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.IsOnline.CompareTo（rhs.IsOnline）;
}
）;
休息;
caseLastLoginDate：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.LastLoginDate.CompareTo（rhs.LastLoginDate）;
}
）;
休息;
默认：
比较=新
比较< ; MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.UserName.CompareTo（rhs.UserName）;
}
）;
休息;
}
if（sortData.EndsWith（" DESC"））
{
memberList.Sort（比较）;
memberList.Reverse（）;
}
else
{
memberList.Sort（比较）;
}
}
返回会员列表;
}
===================== =============== C＃.net代码
end ====================== ============
现在我想将这部分代码转换为vb.net代码，可以请一些
提供我的解决方案。
我曾尝试将自己的C＃.net代码写入vb.net代码，但无法获得
实现正确的vb.net代码。我曾使用过一些转换工具来自
开发者融合网站，但它显示的错误有些不同
有点错误。请提供给我vb.net代码。
它是紧急的
提前致谢
Dhananjay
好一票！
但是，（对于原始海报）请注意，您必须将原始C＃匿名方法的
主体压缩到一个语句中才能执行此操作。
-
http://www.tangiblesoftwaresolutions.com
C ++到C＃
C ++到VB
C ++到Java
即时C＃：VB到C＃
即时VB：C＃到VB
即时C ++ VB版：VB到C ++ / CLI
即时C ++ C＃版：C＃到C ++ / CLI
&q比尔麦卡锡写道：
对于内联代理（匿名方法），你需要使用VB9
（又名VB 2008）。例如，这部分：
case" Email"：
comparison = new
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
if（lhs.Email == null | rhs。电子邮件==
null）
{
返回0;
}
否则
{
返回
lhs.Email.CompareTo（rhs.Email）;
}
}
将成为：
案例电子邮件
比较=新比较（成员hipUserWrapper）（_
函数（lhs AS MembershipUserWrapper，rhs As
MembershipUserWrapper）_
if（lhs.Email Is Nothing or rhs.Email什么都没有，
0，lhs.Email.CompareTo（rhs.Email））
" Dhananjay" < dh ********** @ yahoo.co.inwrote in message
news：ac ****************** **************** @ c4g2000h sg.googlegroups.com ...
大家好，
当我将C＃.net代码（委托概念）转换为vb.net时，我遇到了问题。我无法做到这一点。有人可以帮我解决
问题。我提供我的C＃.net代码。
============================= =====我的代码是： -
================================ ======
[DataObjectMethod（DataObjectMethodType.Select，false）]
static public List< MembershipUserWrapperGetMembers（bool
returnAllApprovedUsers，bool returnAllNotApprovedUsers，
string usernameToFind，string sortData）
{
List< MembershipUserWrappermemberList = new
列表< MembershipUserWrapper>（）;
//看看我们是否只找一个用户
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）;
}
比较< MembershipUserWrappercomparison = null;
开关（sortDataBase）
{
case" UserName"：
比较=新
比较< MembershipUserWrapper> ;（
代表（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
return
lhs.UserName.CompareTo（rhs.UserName）;
}
）;
休息;
CAS e电子邮件：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
if（lhs.Email == null | rhs.Email ==
null）
{
返回0;
}
else
{
返回
lhs.Email.CompareTo（rhs.Email）;
} < br $>
}
）;
休息;
case" CreationDate"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.CreationDate.CompareTo（rhs.CreationDate）;
}
）;
休息;
case" IsApproved"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.IsApproved.CompareTo（rhs.IsApproved）;
}
）;
break;
case" IsOnline"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
返回
lhs.IsOnline.CompareTo（rhs.IsOnline）;
}
）;
break;
case" LastLoginDate"：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper rhs）
{
return
lhs.LastLoginDate.CompareTo（rhs.LastLoginDate）;
}
）;
休息;
默认值：
比较=新
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
）
MembershipUserWrapper rhs）
{
返回
lhs.UserName.CompareTo（rhs.UserName）;
}
）;
休息;
}
if（sortData.EndsWith（ DESC））
{
memberList.Sort（比较）;
memberList.Reverse（）;
}
其他
{
memberList.Sort（比较）;
}
< br $>
}
返回会员列表;
}
====== ============================== C＃.net代码
end ======= ===========================
现在我想要这个部分o f代码进入vb.net代码，可以请一些
为我提供解决方案。
我曾尝试将自己的C＃.net代码写入vb.net代码但无法
实现正确的vb.net代码。我也使用了一些转换工具来自
开发者融合网站，但它显示的错误有些不同
有点错误。请给我提供vb.net代码。
它是紧急的
提前致谢
Dhananjay
谢谢David。我会提到这一点，但我选择了唯一需要挤压的
anon del。样本中的其余部分看起来是单一的
声明函数
David Anton < Da ******** @ discussion.microsoft.com写信息
news：28 ******************** ************** @ microsof t.com ...
好一个比尔！
但是，（对于原始海报）请注意，您必须将原始C＃匿名方法的
主体压缩到一个语句中才能执行此操作。
-
http://www.tangiblesoftwaresolutions.com
C ++到C＃
C ++到VB
C ++到Java
即时C＃：VB到C＃
即时VB： C＃到VB
即时C ++ VB版：VB到C ++ / CLI
即时C ++ C＃版：C＃到C ++ / CLI
比尔麦卡锡写道：
>
对于内联代理（匿名方法）你需要使用
VB9
（又名VB 2008）。例如，这部分：
case" Email"：
comparison = new
比较< MembershipUserWrapper>（
委托（MembershipUserWrapper lhs，
MembershipUserWrapper） rhs）
{
if（lhs.Email == null | rhs.Email ==
null）
{
返回0;
}
{
返回
lhs.Email.CompareTo（rhs.Email）;
}
}
将成为：
案例电子邮件
比较=新比较（Of MembershipUserWrapper）（_
函数（lhs AS MembershipUserWrapper，rhs As
MembershipUserWrap per）_
if（lhs.Email什么都没有或rhs.Email什么都没有，
0，lhs.Email.CompareTo（rhs.Email））
Dhananjay < dh ********** @ yahoo.co.inwrote in message
新闻：ac ********************** ************ @ c4g2000 hsg.googlegroups.com ...
大家好，
当我将C＃.net代码（委托概念）
转换为vb.net时，我遇到了问题。我无法做到这一点。有人可以帮我解决
问题。我提供我的C＃.net代码。
============================= =====我的代码是： -
================================ ======
[DataObjectMethod（DataObjectMethodType.Select，false）]
static public List< MembershipUserWrapperGetMembers（bool
returnAllApprovedUsers，bool returnAllNotApprovedUsers，
string usernameToFind，string sortData）
{
List< MembershipUserWrappermemberList = new
列表< MembershipUserWrapper>（）;
//看看我们是否只找一个用户
if（usernameToFind！= null）
{
MembershipUser mu =
Membership.GetUser（usernameToFind）;
if（mu！= null）
{
MembershipUserWrapper md = new
MembershipUserWrapper（mu）;
me mberList.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.Leng th == 0）
{
sortData =" UserName";
}
string sortDataBase = sortData;
string descString =" DESC" ;;
if（sortData.EndsWith（descString））
{
sortDataBase = sortData.Substring（0，
sortData.Length - descString.Length）;
}
比较< MembershipUserWrappercomparison = null;
switch (sortDataBase)
{
case "UserName":
comparison = new
Comparison<MembershipUserWrapper> ;(
delegate(MembershipUserWrapper lhs,
MembershipUserWrapper rhs)
{
return
$b $b 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
$b $b 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
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<MembershipUserWrapperGetMembers(bool
returnAllApprovedUsers, bool returnAllNotApprovedUsers,
string usernameToFind, string sortData)
{
List<MembershipUserWrappermemberList = 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<MembershipUserWrappercomparison = 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
Hi,
For the inline delegates (anonymous methods) you will need to be using VB9
(aka VB 2008). For example, this part:
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);
}
}
would become:
Case "Email"
comparison = New Comparison( Of MembershipUserWrapper) ( _
Function(lhs AS MembershipUserWrapper , rhs As
MembershipUserWrapper ) _
if(lhs.Email Is Nothing Or rhs.Email Is Nothing,
0,lhs.Email.CompareTo(rhs.Email))
"Dhananjay" <dh**********@yahoo.co.inwrote in message
news:ac**********************************@c4g2000h sg.googlegroups.com...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<MembershipUserWrapperGetMembers(bool
returnAllApprovedUsers, bool returnAllNotApprovedUsers,
string usernameToFind, string sortData)
{
List<MembershipUserWrappermemberList = 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<MembershipUserWrappercomparison = 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
Nice one Bill!
However, (to the original poster) be aware that you do have to squeeze the
body of the original C# anonymous method into one statement to do this.
--
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
"Bill McCarthy" wrote:
Hi,
For the inline delegates (anonymous methods) you will need to be using VB9
(aka VB 2008). For example, this part:
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);
}
}
would become:
Case "Email"
comparison = New Comparison( Of MembershipUserWrapper) ( _
Function(lhs AS MembershipUserWrapper , rhs As
MembershipUserWrapper ) _
if(lhs.Email Is Nothing Or rhs.Email Is Nothing,
0,lhs.Email.CompareTo(rhs.Email))
"Dhananjay" <dh**********@yahoo.co.inwrote in message
news:ac**********************************@c4g2000h sg.googlegroups.com...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<MembershipUserWrapperGetMembers(bool
returnAllApprovedUsers, bool returnAllNotApprovedUsers,
string usernameToFind, string sortData)
{
List<MembershipUserWrappermemberList = 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<MembershipUserWrappercomparison = 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
Thanks David. I was going to mention that, but instead I picked the only
anon del that needed "squeezing". The rest in the sample look to be single
statement functions
"David Anton" <Da********@discussions.microsoft.comwrote in message
news:28**********************************@microsof t.com...Nice one Bill!
However, (to the original poster) be aware that you do have to squeeze the
body of the original C# anonymous method into one statement to do this.
--
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
"Bill McCarthy" wrote:
>Hi,
For the inline delegates (anonymous methods) you will need to be using
VB9
(aka VB 2008). For example, this part:
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);
}
}
would become:
Case "Email"
comparison = New Comparison( Of MembershipUserWrapper) ( _
Function(lhs AS MembershipUserWrapper , rhs As
MembershipUserWrapper ) _
if(lhs.Email Is Nothing Or rhs.Email Is Nothing,
0,lhs.Email.CompareTo(rhs.Email))
"Dhananjay" <dh**********@yahoo.co.inwrote in message
news:ac**********************************@c4g2000 hsg.googlegroups.com...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<MembershipUserWrapperGetMembers(bool
returnAllApprovedUsers, bool returnAllNotApprovedUsers,
string usernameToFind, string sortData)
{
List<MembershipUserWrappermemberList = 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<MembershipUserWrappercomparison = 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
这篇关于将C＃.net代码转换为vb.net时出现问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
